Gestion ComboBox [VBA-E] - VB/VBA/VBS - Programmation
Marsh Posté le 31-07-2006 à 09:36:36
Salut,
1/ tu enregistres toutes les valeurs qui apparaissent dans ta combo avant de quitter, sur une feuille annexe. Et tu la recharges a chaque ouverture de fichier.
2/ Lors du Initialize tu impose la valeur de ta combobox
3/ Pas compris la question... Comment ca rien ne se passe ?
Marsh Posté le 31-07-2006 à 10:02:13
jpcheck a écrit : Salut, |
1/ pas pratique ce truc... menfin ainsi va la vie !!
2/ J'ai pas trop compris comment ça marchait le Initialize
3/ Normalement, lorsque je sélectionne un élément de la liste du combobox en cliquand dessus, alors il se lance une sub. Par contre lorsque ma combobox ne contient qu'un élément, si je clique dessus, rien ne se passe, la sub ne se lance pas.
Marsh Posté le 31-07-2006 à 10:06:47
1/ quand je dit feuille annexe, tu le mets sur une des feuilles de ton workbook bien sûr.
2/Initialize se déclenche lors du .Show de ton UserForm
3/ tu peux nous montrer ta sub stp ?
Marsh Posté le 31-07-2006 à 10:15:44
jpcheck a écrit : 1/ quand je dit feuille annexe, tu le mets sur une des feuilles de ton workbook bien sûr. |
1/ Ouais t'inquiète j'avais compris !! De toute façon j'ai déjà une colonne qui se rempli des noms de fichiers que l'on retrouve dans la combobox donc ça va pas ête compliqué !
2/ J'ai pas de userform !! ma combobox est directement sur ma feuille. Est-ce que je peux affecter une valeur à combobox.value après chaque clic, une fois la valeur cliquée récupérée
3/
La sub qui est sur ma feuille
Private Sub ComboBox_EditionPV_Click()
PVaEditer = Worksheets("Commandes" ).ComboBox_EditionPV.Text
EditionPV.EditionPV
End Sub
Puis le module editionPV
NomFichierDepouillement = ActiveWorkbook.Name
LignePV = Worksheets("Mesures" ).Cells.Find(What:=PVaEditer).Row
ColonnePV = Worksheets("Mesures" ).Cells.Find(What:=PVaEditer).Column
NomPV = ("PV - " & Worksheets("Mesures" ).Cells(LignePV + 2, 2).Value)
Sheets("PV Vierge" ).Copy
PathNomPV = Application.GetSaveAsFilename(NomPV & ".xls", "Fichiers Excel (*.xls), *.xls" )
If PathNomPV = "Faux" Then
Application.DisplayAlerts = False
Workbooks(2).Close
Application.DisplayAlerts = True
End
End If
.........
Marsh Posté le 01-08-2006 à 10:13:59
surikat14 a écrit : 1/ pas pratique ce truc... menfin ainsi va la vie !! |
1/ Bon pour le un, c'est bon
2/ & 3/ En fait j'affecte une valeur à combobox.valeu à chaque fin de procédurer pour avoir un titre à ma combobox constant. Dans le coup, même avec une seule valeur dans ma combobox, ça marche !!
Par contre, je ne sais pas si c'est très propre comme prog...
Marsh Posté le 04-08-2006 à 11:14:07
Nouvelle question sur les combobox
J'ai donc une combobox dans un userform. Tout se passe bien sauf lorsque je clique sur la croix pour fermer cette combobox. En effet, lorsque je la re-ouvre, ma combobox est alors vide... why !?
Faut-il que je remplisse ma combobox à chaque fois que j'ouvre le userform ??
Marsh Posté le 04-08-2006 à 11:19:01
surikat14 a écrit : |
mets le dans l'evenement initialize de ta Usf oui
Marsh Posté le 04-08-2006 à 11:25:29
jpcheck a écrit : mets le dans l'evenement initialize de ta Usf oui |
C'est bizarre ce phénomène...
L'initialize marche au poil
bien !!
Marsh Posté le 31-07-2006 à 09:25:28
Bonjour tout le monde !!
Allez pour ce début de semaine, trois petites questions sur les combobox...
1/ Comment faire pour que les valeurs restent enregistrées dans la combobox même lorsque je quitte le prog. Je m'explique : la combobox contient des noms des fichiers. Or quand je quitte excel et que je le relance, ma liste est vide. Il ne me reste plus qu'un nom, visiblement le nom sur lequel j'ai cliqué en dernier
2/ Ce qui m'amène à la deuxième question : Comment faire pour que la valeur titre apparaissant dans la combobox soit toujours la même. Là la valeur qui reste c'est la dernière valeur sur laquelle j'ai cliqué...
3/ Dernière question : Quand je n'ai qu'une valeur dans ma combobox, si je clique dessus rien ne se passe... comment faire !?
Désolé pour ce flot de question, mais je me suis arraché les cheveux vendredi sans réponse... et là j'en ai marre
Merci d'avance pour votre aide