2 ComboBox lier avec TextBox
ci joint mon fichier
prière de régler mon problème
merci
regarde le message sur le vba
Yvouille a écrit :Repère dans mon code la ligne ci-dessous
ComboBox1 = Format(ComboBox1, "dd.mm.yyyy").
Ce format de date suisse ("dd.mm.yyyy") doit être remplacé par un format de date valable sur ta machine (probablement "dd/mm/yyyy").
Tu n’as pas fait ce que je t’ai demandé ce matin par mon message ci-dessus. Le fichier que tu me renvoies maintenant comporte toujours le format de date suisse !!!
Yvouille a écrit :Peux-tu quand même en plus poster une image qui montre l’état de ton ComboBox1 après que tu aies sélectionné une date, à la même étape que sur l’image ci-dessous ?
Tu n’as pas répondu à ma demande ci-dessous. Comme tu ne t’intéresses pas à ton problème, je ne vais pas m’y intéressé plus longtemps non plus.
Bonne continuation, sur notre forum ou sur d’autres forums sur lesquels tu as placé la même demande.
AHH C'est bon mon problème et résolu
merci merci et prière de m'excuser pour le dérangement
dernière question svp comment maintenant liée ce userform avec autre feuille du méme classeur svp
merci encore
j'ai une autre feuille sur le classeur nommé (VENTE)
comment affecter ce userfom sur cette page
Private Sub ComboBox1_Change()
ComboBox1 = Format(ComboBox1, "dd/mm/yyyy")
End Sub
Private Sub CommandButton3_Click()
Ligne = WorksheetFunction.Match(CSng(CDate(ComboBox1)), Range("A:A"), 0)
Colonne = WorksheetFunction.Match(ComboBox2, Rows("3"), 0)
Cells(Ligne, Colonne) = TextBox29
End Sub
Private Sub TextBox29_Change()
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "journées"
journées = Sheets("VENTE").Cells(1, i + 1)
For i = 3 To 100
ComboBox2.AddItem Cells(3, i)
Next
End Sub
Supprimer car posté en même temps que le complément ci-dessus.
j'ai une autre feuille sur le classeur nommé (VENTE)
comment affecter ce userfom sur cette page
je dois modifier quoi?
Private Sub ComboBox1_Change()
ComboBox1 = Format(ComboBox1, "dd/mm/yyyy")
End Sub
Private Sub CommandButton3_Click()
Ligne = WorksheetFunction.Match(CSng(CDate(ComboBox1)), Range("A:A"), 0)
Colonne = WorksheetFunction.Match(ComboBox2, Rows("3"), 0)
Cells(Ligne, Colonne) = TextBox29
End Sub
Private Sub TextBox29_Change()
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "journées"
journées = Sheets("VENTE").Cells(1, i + 1)
For i = 3 To 100
ComboBox2.AddItem Cells(3, i)
Next
End Sub
bakhti16 a écrit :j'ai une autre feuille sur le classeur nommé (VENTE)
J'ai rouvert trois fois ton fichier, il n'y a pas de feuille vente !!
voila mon fichier actualisé
Je sais que je t'ai dérangé
mais aide moi svp pour la dérnière fois
merci
Salut
j'attend toujours votre réponse
bonne nuit
Bonsoir
Merci de me répondre svp , j'attends toujours
Merci
Salut,
J’ai une vie privée à côté du Forum Excel-Pratique, il serait donc bien d’attendre l’aide gratuite que je t’offre environ 24 heures si nécessaire.
Je n’ai pas compris ton trip d’ajouter la ligne de code TextBox29 = Cells(Ligne, Colonne) dans ta macro !! Ca t’avance à quoi ??
Dans le fichier ci-joint, le code est complété de manière à remplir la feuille de base ainsi que la feuille ‘’VENTE’’.
Si tu avais posé tout de suite les bonnes questions et que tu avais posté le bon fichier, toi et moi on aurait gagné de nombreuses heures.
Ciao