Bonsoir,
j'ai crée un userform, ou j'aimerai que quand je valide la saisie, les renseignements présents sur le formulaire s'inscrivent dans ma feuille stock sur la première ligne vide qu'il rencontre. Jusque là j'ai réussi à peu près a atteindre mon objectif, à une grosse nuance près c est que c'est pas la bonne feuille ou les renseignements s'inscrivent, ça va à la bonne ligne, mais sur la première feuille de mon classeur, "accueil" en l’occurrence.
Là ça dépasse mes modestes compétences de novice.
Merci de votre aide.
Voici le code que j'ai inscrit.
Private Sub VALIDATIONENTREE_Click()
Dim i As Integer
If entrée.marque = "" Or entrée.designation = "" Or entrée.teinte = "" Or entrée.quantité = "" Or entrée.péremption = "" Then
MsgBox "Merci de remplir tous les champs"
Else
i = 3
Do While Worksheets("stock").Cells(i, 2) <> ""
Cells(i, 2).Offset(1, 0).Select
i = i + 1
Loop
Worksheets("stock").Select
ActiveCell.Value = entrée.marque.Value
ActiveCell.Offset(0, 1).Value = entrée.designation.Value
ActiveCell.Offset(0, 2).Value = entrée.teinte.Value
ActiveCell.Offset(0, 3).Value = entrée.quantité.Value
ActiveCell.Offset(0, 4).Value = entrée.péremption.Value
Unload entrée
End If
End Sub