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.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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
    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