Bonsoir à tous,
Encore une fois je viens chercher de l'aide.
Voilà, j'utilise ce code sur Excel et il fonctionne très bien:
Private Sub CommandButton1_Click()
If XXXX.TextBox1.Value = "" And XXXX.TextBox1.Value = "" Then
XXXX.TextBox1.Value = Format(Time, "hh:mm") 'Affiche heure TxtB1
ElseIf XXXX.TextBox1.Value <> "" Then 'Si TxtB1 déjà rempli alors
XXXX.TextBox2.Value = Format(Time, "hh:mm") 'Affiche heure dans TxtB2
End If
End Sub
Par contre, j'ai essayé de l'adapter (j'ai fait plusieurs changements et les ai testés), le code ne fonctionne pas. J'ai beau aller voir sur mon livre et l'aide VBA, je n'y arrive toujours pas à trouver la solution.
Quelqu'un saurait d'où peut provenir la faute de syntaxe?
Merci pour votre aide.
Encore une fois je viens chercher de l'aide.
Voilà, j'utilise ce code sur Excel et il fonctionne très bien:
Private Sub CommandButton1_Click()
If XXXX.TextBox1.Value = "" And XXXX.TextBox1.Value = "" Then
XXXX.TextBox1.Value = Format(Time, "hh:mm") 'Affiche heure TxtB1
ElseIf XXXX.TextBox1.Value <> "" Then 'Si TxtB1 déjà rempli alors
XXXX.TextBox2.Value = Format(Time, "hh:mm") 'Affiche heure dans TxtB2
End If
End Sub
Par contre, j'ai essayé de l'adapter (j'ai fait plusieurs changements et les ai testés), le code ne fonctionne pas. J'ai beau aller voir sur mon livre et l'aide VBA, je n'y arrive toujours pas à trouver la solution.
Quelqu'un saurait d'où peut provenir la faute de syntaxe?
Merci pour votre aide.