J'essaye de faire mon premier formulaire vba et il y a toujours un truc qui ne fonctionne pas, après avoir rempli mes données, ca les indique bien sur mon tableau exell mais par la suite, plutot que de passer à la ligne suivante, il efface et recommence toujours la même ligne, voici ce que j'ai mis comme code:
Private Sub valider_Click()
Dim numLigneVide As Integer
'on active la page "Prévente"
Worksheets("Prévente").Activate
'on trouve la dernière ligne vide du tableau et on l'ajoute dans une variable
numLigneVide = ActiveSheet.Columns(5).Find("").Row
'On verifie que les champs obligatoire sont correctement remplis
If plein.Text = "" Then
MsgBox "veuillez entrer le num de place", vbCritical, "champs manquant"
plein.SetFocus
Else
'on remplit les données dans notre tableau
ActiveSheet.Cells(numLigneVide, 3) = plein.Text
ActiveSheet.Cells(numLigneVide, 4) = article.Text
ActiveSheet.Cells(numLigneVide, 5) = gratuit.Text
'on efface le formulaire et on remet le focus sur nom
plein.Text = ""
plein.SetFocus
End If
End Sub
Je suis désolée si la réponse est déjà sur le site, j'ai regarder j'en ai vu quelqu un qui pouvait y resembler mais ne comprenant pas la ligne de code ajoutée en réponse, je préfére mettre tout mon code pour que quelqu'un puisse me dire ou je me suis plantée.