Bonjour,

je reviens vers vous pour déplacer automatiquement le curseur dans open calc

j'ai une macro qui fonctionne sous excel recopiée ci dessous

est ce que quelqu'un peut me la transformer pour open calc?

Attribute VBA_ModuleType=VBAModule Sub VBA_Modul

Sub Auto_Open()

Worksheets("28").OnEntry = "Form1_Eingabe_Test" End Sub

Function Diff(IstWert, SollWert) If (IstWert = 0) Or (SollWert = 0) Then Diff = "-.-" Else If (IstWert - SollWert) > 0 Then Diff = "+" + CStr(IstWert - SollWert) Else Diff = CStr(IstWert - SollWert) End If End If End Function

Sub Form1_Eingabe_Test()

If ActiveCell.Column = 3 Then If ActiveCell.Row = 17 Then ActiveCell.Offset(-10, 4).Activate End If End If If ActiveCell.Column = 7 Then If ActiveCell.Row = 17 Then ActiveCell.Offset(-10, 4).Activate End If End If

If ActiveCell.Column = 11 Then If ActiveCell.Row = 17 Then ActiveCell.Offset(-10, 4).Activate End If End If

If ActiveCell.Column = 15 Then If ActiveCell.Row = 14 Then ActiveCell.Offset(-7, 4).Activate End If End If

If ActiveCell.Column = 19 Then If ActiveCell.Row = 10 Then ActiveCell.Offset(-3, 4).Activate End If End If

If ActiveCell.Column = 23 Then If ActiveCell.Row = 24 Then ActiveCell.Offset(-0, 0).Activate End If End If End Sub End Sub