Problème de transfert de données
Résolu
nouhaaa1995
Messages postés
79
Statut
Membre
-
nouhaaa1995 Messages postés 79 Statut Membre -
nouhaaa1995 Messages postés 79 Statut Membre -
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
" 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 ???
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
" 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 ???
2 réponses
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonsoir, que dois-tu faire? peut-être expliquer ce qui se passe, as-tu un message d'erreur?
ensuite, partager ton fichier.-
bonjour,
mon probléme est que j'ai plusieurs userfoms( usf1, usf2, usf3)
Dans USF3, il y a un commande bouton pour enregistrer les données, mais ces données sont dans USF1,USF2,USF3, et il doivent étre transferer à un classeur excel.
mais je sais pas comment la faire
aidez-moi svp
Private Sub CommandButton1_Click()
Dim derligne As Integer
If MsgBox("confirmez-vous l'ajout de vos données?", vbYesNo, "confirmation") = vbYes Then
derligne = Sheets("capitaliser").Range("A456541").End(xlUp).Row + 1
Cells(derligne, 1) = TextBox1.Value
Cells(derligne, 2) = UserForm3.ComboBox1.Value
Cells(derligne, 3) = UserForm3.ComboBox2.Value
end if
end sub -
-
-
-
-
-
Bonjour,
Unload UserForm3 ' userform à cacher UserForm4.Show
Unload vide tout l'UF, contente-toi deUserForm3.Hide
eric
