Discussion :

[nouhaaa1995]

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 vba :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ???

[BENNASR]

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

exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nouhaaa1995]

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