Re : Formulaire saisi donnée dans un emplacement précis
Bonjour
tu peux t'inspirer de ce simple code
Mais attention problème sur les deux dernier champs qui ne corresponde pas aux champs de la feuille
Le principe:
Avec find tu recherches n° col et N) de ligne du debut de la zone de saisie
et ensuite tu écris tes données
Private Sub CommandButton1_Click()
With Sheets("feuil1")
c = .Rows(2).Find(Me.ComboBox1).Column
l = .Columns(1).Find(Me.ListBox2).Row
Set deb = .Cells(l, c)
For n = 1 To 7
deb.Offset(n, 0) = Me.Controls("textbox" & n + 1).Value
Next
End With
End Sub