Discussion :

[Teva29]

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!

[parmi]

Essaie comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    Dim I As Long, nbLignes As Long
 
    nbLignes = Sheets("Feuil1").Cells(Rows.Count, "A").End(xlUp).Row
 
    For I = 1 To nbLignes
        If Sheets("Feuil1").Range("A" & I) = "" Then
            Sheets("Feuil1").Range("A" & I) = textbox1.Value
            Exit For
        End If
    Next

[Teva29]

Merci!
Mais la valeur s'inscrit une première fois mais pas les autres fois avec ce code

[parmi]

J'ai peut-être mal saisi.
Est-ce que tu remplis seulement A1 et A2 ou ça peut continuer A3, A4,... ?

Ça devrait fonctionner tant que tu changes le textbox1

[Teva29]

Cela peux continuer jusqu'a l'infini enfin c'est le but, mais la même A2 ne s'incrémente pas.

[parmi]

Ton textbox est sur un Userform ?
Lorsque tu sors du textbox, ça devrait changer la première cellule vide la colonne A de la feuille Feuil1.

[Teva29]

J'ai mis en pièce jointe le fichier pour faciliter les choses.

Merci

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
Dim L As Long
L = 1
Do While Sheets("Feuil1").Cells(L, "A") <> ""
    L = L + 1
Loop
Sheets("Feuil1").Cells(L, "A") = "toto"
End Sub

[parmi]

Essaie comme ceci pour voir.
Ça va inscrire la valeur du textbox sur la première ligne vide
Pour ce qui est de l'incrémentation, je ne suis pas certain de bien comprendre...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
    Dim I As Long, nbLignes As Long
 
    nbLignes = Sheets("Feuil1").Cells(Rows.Count, "A").End(xlUp).Row
 
    For I = 1 To nbLignes + 1
        If Sheets("Feuil1").Range("A" & I) = "" Then
            Sheets("Feuil1").Range("A" & I) = TextBox1.Value
            Exit For
        End If
    Next
 
    UserForm1.Hide
End Sub

[Teva29]

Super ça fonctionne!

Merci!