Incrémentation de liste grace à userform

[manwholooklikedude]

Bonjour les aminches, ça farte ?

J'essaye de construire un fichier qui me permette grâce à un userform d'incrémenter une base de données, je m'explique:

l'userform s'ouvre
l'utilisateur écrit son nom
il valide
le nom se stocke en A1
l'utilisateur suivant écrit son nom
il valide
le nom se stocke en A2
...
...

J'ai mis un fichier en exemple avec l'état d'avancement du machin mais je sèche sur le reste du code et j'ai besoin d'un coup de pouce.......

Merci d'avance

 

[kjin]

Re : Incrémentation de liste grace à userform

Bonsoir,
A quoi peut servir le bouton si tu ne t'en sert pas ?!

Private Sub CommandButton1_Click()
d = [A65000].End(xlUp).Row + 1
Cells(d, 1) = TextBox1
End Sub

A+
kjin

 

[guytou18]

Re : Incrémentation de liste grace à userform (solution parmi tant d'autres)

Private Sub CommandButton1_Click()
    Dim lig As Integer
    lig = Worksheets("feuil1").Range("A65536").End(xlUp).Row
    If lig = 1 And Cells(1, 1).Value = "" Then lig = 0
    lig = lig + 1
    
    If TextBox1 = "" Then
        Exit Sub
    Else
        Worksheets("feuil1").Cells(lig, 1) = TextBox1
        TextBox1 = ""
        TextBox1.SetFocus
    End If
End Sub

 

[guytou18]

Re : Incrémentation de liste grace à userform

Bonsoir,
A quoi peut servir le bouton si tu ne t'en sert pas ?!

Private Sub CommandButton1_Click()
d = [A65000].End(xlUp).Row + 1
Cells(d, 1) = TextBox1
End Sub

A+
kjin

le problème, c'est que si la feuille est vide, on n'écrit jamais dans A1 avec ce code

 

[kjin]

Re : Incrémentation de liste grace à userform

Bonjour,

...le problème, c'est que si la feuille est vide, on n'écrit jamais dans A1 avec ce code

3400 messages plus loin, qq chose me dit qu'un jour, en A1, sera écrit "NOM"
Alors je prends des raccourcis ! 😉
A+
kjin

 

[manwholooklikedude]

Re : Incrémentation de liste grace à userform

C'est pas faux, lol.

Merci de vos réponses, j'ai pas eu le temps de tester tout ça mais je regarde bientôt

 

[guytou18]

Re : Incrémentation de liste grace à userform

Bonjour,

3400 messages plus loin, qq chose me dit qu'un jour, en A1, sera écrit "NOM"
Alors je prends des raccourcis ! 😉
A+
kjin

un raccourci judicieux consisterait à ne rien écrire du tout ! même pas en A1