[XL_2010] Problème fonction if then else

Version imprimable

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:

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!

Essaie comme ceci

Code:

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

25/07/2014, 15h09
Teva29

Merci!
Mais la valeur s'inscrit une première fois mais pas les autres fois avec ce code :(
25/07/2014, 15h29
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
25/07/2014, 15h35
Teva29

Cela peux continuer jusqu'a l'infini enfin c'est le but, mais la même A2 ne s'incrémente pas.
25/07/2014, 18h47
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.
29/08/2014, 16h19
Teva29

1 pièce(s) jointe(s)

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

Merci

Code:

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

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:

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

01/09/2014, 17h26
Teva29

Super ça fonctionne!

Merci!