Bonjour à tous,

J'ai un problème avec une fonction if then else que je n'arrive pas a faire fonctionner correctement.
Le but de ma macro est d'incrémenter La cellule A1 avec une textbox mais si l'on recommence l'opération et que la cellule à 1 est déja remplie la cellule à incrémenter doit alors être A2.
En gros : Si A1 = "" alors A1 = textbox1 Sinnon A2= texbox1

le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub TextBox1_Change()
     If Sheets("Feuil1").[A1] = ("") Then
          Sheets("Feuil1").[A1] = TextBox1.Value
     Else
          Sheets("Feuil1").Range("A2") = TextBox1.Value
     End If
 
End Sub
je n'arrive pas a joindre le fichier on me dit qu'il est non valide!

Merci!