VB formulaire intégrer des données dans feuil

Bonjour,

Voilà un exemple qui récupère le numéro de la ligne quand on clique dans une cellule.

Dans cet exemple on travaille sur la feuille 1 et le formulaire s'ouvre quand on clique sur une cellule de colonne A.
Sur le formulaire il y a un bouton nommé "cmdValider" et les TextBoxes.
On a un UserForm1 (formulaire) et un module (module1) :

Dans l'éditeur VB de la feuille 1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 1 Then
        Module1.setNumLig (Target.Row)
        UserForm1.Show
    End If

End Sub

Dans le module1 :

Private numLig As Long

Public Sub setNumLig(ByVal str As Long)
    numLig = str
End Sub

Public Function getNumLig() As Long
    getNumLig = numLig
End Function

Public Sub Valider()

    Sheets(1).Range("B" & numLig).Value = UserForm1.TextBox1.Text
    Sheets(1).Range("C" & numLig).Value = UserForm1.TextBox2.Text
    '....
    
End Sub

Dans le UserForm1 :

Private Sub cmdValider_Click()
    Module1.Valider
End Sub

Voilà, tu dois pouvoir y arriver avec ça.

Bon courage.

;o)

Cest exactement ce qu'il me fallait ! Merci Polux31.