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
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
