de l'aide sur combobox avec valeur de combo box

[milaerdo]

Bonjour
J'ai pas de connaissance en VBA
Ma demande que la valeur d'une combo N°1 soit de 1 à 31 sest fait
que la Combo 2 ai comme valeur de départ le résultat de la combo 1 voir exemple
Merci de vous penchez sur ma demande A+
Et metric d'avance. 😉 [file name=combo.zip size=10529]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/combo.zip[/file]

 

[_Thierry]

Bonjour Milaerdo, le Forum

J'ai deux nouvelles pour toi...Une Mauvaise, et une Bonne...

La Mauvaise... Pour ce que tu demandes pour des ComboBox ActiveX, ce ne peut-être fait qu'en VBA


La Bonne... Les Codes VBA sont assez simples...


Tout d'abord tu retournes en 'mode Design' et tu supprimes pûrement et simplement les Settings que tu as fait pour tes ComboBox au niveau de 'LinkedCell' (B1, B3 etc) et de 'ListFillRange' (A1:A31) qui vont faire un double emploi avec le code VBA ci-dessous en 'mode RunTime'...

Ensuite tu vas placer (Copier/Coller) ces Codes dans le Private Module de ta Feuille ('Feuil1')... Pour ce faire, tu fais un click droit sur l'onglet de ta feuille et dans le menu contextuel 'Visualiser le Code'... C'est dans ce module que tout va se faire...

Pour l'initialisation de la première ComboBox1. J'ai choisi l'évènement 'Activate' de la Feuille. Mais on peut en choisr d'autre, comme simplement l'ouverture du classeur... (mais on y reviendra si besoin...)

'IL FAUT CHANGER DE FEUILLE ET REVENIR SUR 'Feuil1' POUR QUE CA S'ACTIVE...

Private Sub Worksheet_Activate() Dim i As Byte
Me.ComboBox1.Clear

    For i = 1 To 31
        Me.ComboBox1.AddItem i
    Next
End Sub

Ensuite c'est le plus simple ... IL faut juste être logique dans les numéros des ComboBox pour le faire jusqu'à 15 ComboBox...

COMBOBOX1 EVENEMENT CHANGE :

Private Sub ComboBox1_Change()
Dim i As Byte
Me.ComboBox2.Clear

If Me.ComboBox1 = '' Then Exit Sub
    
    For i = Me.ComboBox1 To 31
        Me.ComboBox2.AddItem i
    Next
Me.Range('B1'Â'Â') = Me.ComboBox1
End Sub

COMBOBOX2 EVENEMENT CHANGE :

Private Sub ComboBox2_Change()
Dim i As Byte
Me.ComboBox3.Clear

If Me.ComboBox2 = '' Then Exit Sub

    For i = Me.ComboBox2 To 31
        Me.ComboBox3.AddItem i
    Next
Me.Range('B3'Â'Â') = Me.ComboBox2
End Sub

En clair voilà ce qui se passe :

Private Sub ComboBox2_Change()
Dim i As Byte
Me.ComboBox3.Clear 'Je nettoie les précédentes infos...
If Me.ComboBox2 = '' Then Exit Sub 'si on est vide je sors...

For i = Me.ComboBox2 To 31 'Pour i = valeur de la ComboBox2 jusqu'à 31...
Me.ComboBox3.AddItem i 'On ajoute les valeur 'i'
Next
Me.Range('B3') = Me.ComboBox2 'on écrit en B3
End Sub

Et ainsi de suite... Tu devrais y arriver...

Bon Courage et n'hésite pas à revenir si tu as un ennui...
@+Thierry

Message édité par: _Thierry, à: 02/03/2005 16:45

 

[milaerdo]

Merci
Super j'ai du travail pour la soirée
si je ne donne pas de nouvelle C que tt va bien

A+

 

[milaerdo]

Ben!!! je cherche mais
Oh fait bonjour

ai beaucoup cherché j'ai copié les instruction mais cela ne fonctionne pas il doit y avoir une action à faire mais où!!!
Merci d'avence pour ces cours de VBA [file name=combo_20050303075711.zip size=8685]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/combo_20050303075711.zip[/file]

 

[_Thierry]

Re bonjour Milaerdo, le Forum

Comme promis dans ton autre Fil, je reviens avec une version corrigée...

Tu as les explications dans le Private Module de la Feuille...

Bonne Journée
@+Thierry [file name=ComboBox-Corrected-Version_20050303112604.zip size=11063]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ComboBox-Corrected-Version_20050303112604.zip[/file]

 

[milaerdo]

UN SEUL MOT PARFOIS OUBLIE
MERCI