Sujet Précédent Sujet Suivant

Problème de transfert de données

Résolu/Fermé
nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018 - 13 avril 2018 à 18:54
nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018 - 17 avril 2018 à 20:16
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 ???

2 réponses

Réponse 1 / 2
yg_be Messages postés 22692 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 avril 2024 1 471
13 avril 2018 à 21:17
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 vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018
14 avril 2018 à 15:40
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 22692 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 avril 2024 1 471
14 avril 2018 à 16:24
as-tu un message d'erreur?
peux-tu partager ton fichier?
0
nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018
14 avril 2018 à 16:39
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 22692 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 avril 2024 1 471 > nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018
14 avril 2018 à 16:43
peux-tu partager ton fichier?
0
nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018
14 avril 2018 à 16:47
oui mais je sais pas comment le partager ici
0
Réponse 2 / 2
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 209
17 avril 2018 à 15:42
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 vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018
17 avril 2018 à 17:16
d'accord merci
0
nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018
17 avril 2018 à 19:44
mercii infiniment Eric, j'ai arrivé à résoudre mon problème :D
0

Discussions similaires

Exemple de base de données access
Abdlahsaki -
Fleptche -

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

5 réponses
Germain
germai -
Dexterccm -

1 réponse
Bonjour, impossible de trouver le pilote Acquisition de données PCI
Bjr.asusK550L -
leyo -

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

13 réponses