Date Combobox VBA malgré les nombreux postes
Fermé
Stef9259
Messages postés
4
Date d'inscription
samedi 5 juin 2010
Statut
Membre
Dernière intervention
14 juin 2010
-
14 juin 2010 à 12:07
Stef9259 Messages postés 4 Date d'inscription samedi 5 juin 2010 Statut Membre Dernière intervention 14 juin 2010 - 14 juin 2010 à 20:54
Stef9259 Messages postés 4 Date d'inscription samedi 5 juin 2010 Statut Membre Dernière intervention 14 juin 2010 - 14 juin 2010 à 20:54
A voir également:
- Date Combobox VBA malgré les nombreux postes
- Publipostage date en anglais ✓ - Forum Excel
- Publipostage date inversée ✓ - Forum Word
- Find vba - Astuces et Solutions
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Erreur 1004 vba ✓ - Forum VB / VBA
1 réponse
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
14 juin 2010 à 13:06
14 juin 2010 à 13:06
Bonjour,
Il faut le faire lors de l'initialisation de la combo et non dans l'évènement change().
ComboBoxMonat2.AddItem Format(Worksheets("Forecast").Range("B1") , "mmm-yy")
etc ...
;o)
Il faut le faire lors de l'initialisation de la combo et non dans l'évènement change().
ComboBoxMonat2.AddItem Format(Worksheets("Forecast").Range("B1") , "mmm-yy")
etc ...
;o)
14 juin 2010 à 13:17
Merci encore pour ton aide!
Stef
14 juin 2010 à 18:35
Mon Probleme est finalement pas completement résolu. L'affichage de la combobox fonctionne bien comme prévu. Le probleme maintenant est lorsque je fais un:
FIchiersortie.Worksheets(2).Range("A1:C10).find(ComboBoxMonat2.Value, LookIn:=xlValues, LookAt:=xlPart, _ SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
un message d'erreur apparait:
"Variable non-définie" (Erreur 91)
J'ai fait un MsgBox avant le find pour vérifier ce qu'il renvoyait. Et il renvoi "Feb. 2010" (si j'ai selectionné Feb. 2010 ds la combobox. Dc normal!
J'en deduit que le format de date n'est pas géré par la fonction Find.
Aurais tu une idée (sans changer le format de la date dans la combobox)?
Encore Merci
Stef9259
14 juin 2010 à 19:08
14 juin 2010 à 20:54
Nomfichiersortie = Application.GetOpenFilename("Excel File, *.xsl;*.xlsx;*.xls")
If Nomfichiersortie <> False Then
Set Fichiersortie = Workbooks.Open(Nomfichiersortie)
J'ai 2 fichiersentrée dans lesquelles je vais chercher des données et un fichiersortie dans lequel je rassemble les données des fichiersentrées. Les comboboxs permettent à l'utilisateur de rassembler les données sur un critère ou plusieurs critères.
Cette Combobox Date est la dernière de mes Comboboxs et la seule qui ne fonctionne pas encoroe.