Problème de transfert de données

Résolu
nouhaaa1995 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   -  
nouhaaa1995 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   -
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 ???
A voir également:

2 réponses

Réponse 1 / 2
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonsoir, que dois-tu faire? peut-être expliquer ce qui se passe, as-tu un message d'erreur?
ensuite, partager ton fichier.
0
nouhaaa1995 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
as-tu un message d'erreur?
peux-tu partager ton fichier?
0
nouhaaa1995 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention  
 
non je ne l'ai pas mais
Cells(derligne, 2) = UserForm3.ComboBox1.Value
Cells(derligne, 3) = UserForm3.ComboBox2.Value
ne s'affichent pas dans ma feuille
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > nouhaaa1995 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention  
 
peux-tu partager ton fichier?
0
nouhaaa1995 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention  
 
oui mais je sais pas comment le partager ici
0
Réponse 2 / 2
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonjour, 

Unload UserForm3 ' userform à cacher
UserForm4.Show

Unload vide tout l'UF, contente-toi de 
UserForm3.Hide

eric
0
nouhaaa1995 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention  
 
d'accord merci
0
nouhaaa1995 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention  
 
mercii infiniment Eric, j'ai arrivé à résoudre mon problème :D
0

Discussions similaires

Erreur la zone de données passée à un appel système est insu
Vincent -
Panth33ra -

5 réponses
Code de renvoi d'appel : Ooredo, Mobilis...
midoou07 -
Camille -

13 réponses
je tombe sur le service de diffusion des donnees?que faire?
cockies -
PeterPan972 -

5 réponses
Barre de données en pourcentage (maintenir 100% comme max)
Jessica -
Jessica -

2 réponses