prob sur vba

bonjour,

je trouve un problème lors de saisie de données sur mon classeur, le prob c'est que je veux affecter la valeur d'un combobox sur une cellule, cela ne marche pas, en raison de mon code est sur un userform4 et le combobox est sur userform1

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click() Dim derligne As Integer If MsgBox("confirmez-vous l'ajout de vos données?", vbYesNo, "confirmation") = vbYes Then Cells(derligne, 1) = UserForm1.ComboBox1.Value End If End Sub

---

que dois-je faire?? aidez moi svp ???

bonsoir nouha, la forum
Je voix pas ou vous définissez le derligne ??? on plus derligne comme long et non pas integer

exemple

Code:

---

1 2 3 4 5 6 7

Dim derligne As Long with sheets("tonFeuil") ' à adapter derligne = .Range("A" & Rows.Count).End(xlUp).Row If MsgBox("confirmez-vous l'ajout de vos données?", vbYesNo, "confirmation") = vbYes Then .Cells(derligne, 1) = UserForm1.ComboBox1.Value End If end with

---

J'arrive pas à comprendre ce dysfonctionnement entre userform1 et userform4 ??? plus d'explication ya o5ti :D

voilà le fichier: https://drive.google.com/open?id=1CR...GHi-e9cpL_VnDv