UserForm : ajouter les valeurs de chps sur une ligne selon exemple ci-joint

Hervé à dit:

bonjour

j'ai compris que tu voulais renvoyer la donnée à l'intersection des lignes et colonnes, un code à essayer :

Code:

Private Sub CommandButton1_Click()
Dim colonne As Range
Dim ligne As Range

Set colonne = Rows(9).Find(TextBox2)
Set ligne = Columns(1).Find(TextBox1)

If Not colonne Is Nothing And Not ligne Is Nothing Then
    Cells(ligne.Row, colonne.Column) = TextBox1
Else
    MsgBox "Données non trouvées.", , "Attention..."
    Exit Sub
End If

End Sub

si c'est le cas, n'aurais tu pas interet à utiliser des combobox pour limiter les choix de l'utilisateur ?

salut

Cliquez pour agrandir...