Vba ligne suivante

Fermé
clivia - 31 mai 2010 à 14:08
Bonjour,

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.

Merci d'avance.