Code pour alimenter 2 ComboBox en VBA

**JackOuYA** · 05/12/2008, 16h37

Ok Rajoute une variable pour t'interdire d'utiliser combo1_change si celle-ci n'est pas totalement remplie..

en haut de la feuille de code déclare une variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Option Explicit
Dim yaCombo1OK as boolean

à l'ouverture de ta feuille rajoute en fin d'initialisation la mise à 1 de cette variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
.....
yaCombo1ok = true

teste l'état de ce flag dans change.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub ComboBox1_Change()
'Remplissage Comb2
if yaCombo1OK then Alim_Combo 2, ComboBox1.Value
End Sub

tu dis quoi ...

**NEC14** · 08/12/2008, 08h19

Bonjour JackOuYa,

Je viens de mettre en place le code que tu m'as donné. Rien de nouveau se passe, la ComboBox2 reste vide.
Par contre, si je mets ton bout de code "yaCombo1ok = true" en fin d'initialisation, je ne peux plus entrer quoi que ce soit dans ComboBox1.

**NEC14** · 09/12/2008, 15h06

Bonjour,

J'ai trouvé ce code et je voudrais l'adapter à mon problème, pouvez-vous m'apporter votre lumière ?
La feuille où se trouve les données se nomme "Données". La Colonne A concerne l'alimentation du CombBox1, la colonne B celle du ComboBox2.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$2" And Target.Count = 1 Then
        If IsError(Application.Match(Target.Value, [choix1], 0)) Then
          If MsgBox("On ajoute?", vbYesNo) = vbYes Then
           [choix1].End(xlToRight).Offset(0, 1) = Target.Value
          Else
           Application.Undo
          End If
        Else
          Target.Offset(0, 1) = Sheets("listes").Range("choix2")(1).Offset(1, Application.Match(Target, [choix1], 0) - 1)
        End If
  End If
  If Target.Address = "$C$2" And Target.Count = 1 Then
        d = Application.Match(Target.Offset(0, -1), [choix1], 0) - 1
        If IsError(Application.Match(Target.Value, [choix2].Offset(0, d), 0)) Then
          If MsgBox("On ajoute?", vbYesNo) = vbYes Then
           n = Application.CountA([choix2].Offset(0, d))
           c = Sheets("listes").Range("choix2").Column
           Sheets("listes").Cells(n + 1, c + d) = Target.Value
          Else
           Application.Undo
          End If
   End If
  End If
End Sub

**NEC14** · 10/12/2008, 09h01

Bonjour à tous,

J'ai travaillé encore tard hier soir pour résoudre ce problème.
Je vous mets en pièce jointe une partie de mon fichier avec l'UserForm et la feuille "Données" afin que vous puissiez vous rendre compte où ça bug.
Je n'y arrive pas et cela me désespère.

**neiluj26** · 10/12/2008, 09h13

Bonjour,

Ca vaut ce que ça vaut, et je débute en vba, mais je procède comme ça (à placer dans ton userform et à adapter à ton cas, bien sûr):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public i As Long, DerLig As Long
Private Sub ComboBox1_Afterupdate()
DerLig = Sheets("Feuil1").[A65536].End(xlUp).Row
For i = 2 To DerLig
    If Sheets("Feuil1").Cells(i, 7) = ComboBox1.Value Then
        ComboBox2.AddItem (Sheets("Feuil1").Cells(i, 2))
    End If
Next
End Sub
Private Sub ComboBox2_Afterupdate()
For i = 2 To DerLig
    If Sheets("Feuil1").Cells(i, 2) = ComboBox2.Value Then
        TextBox1 = Sheets("Feuil1").Cells(i, 1)
    End If
Next
End Sub

Et j'ai placé ceci dans un module standard (à adapter aussi):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Formulaire()
Application.DisplayAlerts = False
Dim j As Integer
Load FrmConditionsClients
    For j = 2 To Sheets("Feuil1").[G65536].End(xlUp).Row
        FrmConditionsClients.ComboBox1 = Sheets("Feuil1").Range("G" & j)
'        Filtrage des doublons
        If FrmConditionsClients.ComboBox1.ListIndex = -1 Then _
            FrmConditionsClients.ComboBox1.AddItem Sheets("Feul1").Range("G" & j)
    Next j
    FrmConditionsClients.Show
Application.DisplayAlerts = True
End Sub

Je prendrai bonne note des remarques aussi.

**NEC14** · 10/12/2008, 10h52

Bonjour neiluj26,

Merci pour ton code. Peux-tu m'apporter quelques explications car ce matin je patauge un peu dans la semoule.

A quoi se réfère For i =2, Cells(i,7), Cells(i,2) et Cells(i,1) ?

Cela va peut-être te paraitre idiot, mais je n'arrive pas à décripter ton code, dur dur ce matin

**neiluj26** · 10/12/2008, 11h22

Bonjour,

En gros, j'ai une feuille récapitulative (que j'ai nommée Feuil1 dans le code que je t'ai donné) où je stocke diverses informations sur les clients export de mon entreprise. Pour que des utilisateurs puissent effectuer des recherches ou des modifications plus facilement, j'ai créé un formulaire.

Au déclenchement de la macro (le code du module standard), je charge le formulaire, puis ajoute les items de la colonne G (qui contient les différents pays de nos clients) de Feuil1 en éliminant les doublons.
Le For j = 2 To Sheets("Feuil1").[G65536].End(xlUp).Row me permet de balayer les items de Feuil1 de la ligne 2 à la dernière ligne.

Puis, pour le code que j'ai mis dans le formulaire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public i As Long, DerLig As Long ' Déclaration des variables
Private Sub ComboBox1_Afterupdate() 'Routine qui se déclenche quand l'utilisateur a choisi une valeur de combobox1
 
'Définition de la dernière ligne de Feuil1 pour pouvoir balayer tout le tableau
DerLig = Sheets("Feuil1").[A65536].End(xlUp).Row 
 
'Je commence à la ligne 2 et je vais jusqu'à la dernière ligne définie à la ligne de code du dessus
For i = 2 To DerLig 
 
'Si la valeur de la colonne 7 (donc la colonne des pays dont je parlais) de la ligne courante (i) est égale à la valeur choisie dans Combobox1, alors j'ajoute la valeur de la colonne B (celle des noms des clients) de la même courante dans combobox2
    If Sheets("Feuil1").Cells(i, 7) = ComboBox1.Value Then
        ComboBox2.AddItem (Sheets("Feuil1").Cells(i, 2))
    End If

Au final, si l'utilisateur choisit par exemple "Italie" dans Combobox1, seuls les clients italiens, dans combobox2.

Next
End Sub

**NEC14** · 10/12/2008, 12h04

Merci pour ces explications, je comprends mieux.
Voilà le code tel qu'il est chez moi, mais ça ne marche pas.
Les données qui doivent alimenter le ComboBox1 sont dans la feuille "Données", colonne A. Les données pour ComboBox2, en colonne B.
Mais rien ne se passe, où ai-je fais une erreur ?

Dans l'UserForm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public i As Long, DerLig As Long
Private Sub ComboBox1_AfterUpdate()
DerLig = Sheets("Données").[A65530].End(xlUp).Row
For i = 2 To DerLig
    If Sheets("Données").Cells(i, 7) = ComboBox1.Value Then
        ComboBox2.AddItem (Sheets("Données").Cells(i, 2))
        End If
    Next
End Sub
Private Sub ComboBox2_AfterUpdate()
For i = 2 To DerLig
    If Sheets("Données").Cells(i, 2) = ComboBox2.Value Then
        ComboBox1 = Sheets("Données").Cells(i, 1)
    End If
Next
End Sub

Dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Formulaire()
Application.DisplayAlerts = False
Dim j As Integer
Load frmop
    For j = 2 To Sheets("Données").[A65530].End(xlUp).Row
    frmop.ComboBox1 = Sheets("Données").Range("A" & j)
 
    If frmop.ComboBox1.ListIndex = -1 Then
        frmop.ComboBox1.AddItem Sheets("Données").Range("A" & j)
    Next j
    frmop.Show
Application.DisplayAlerts = True
End Sub

**neiluj26** · 10/12/2008, 14h02

Je pense que c'est ici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub ComboBox1_AfterUpdate()
DerLig = Sheets("Données").[A65530].End(xlUp).Row
For i = 2 To DerLig
    If Sheets("Données").Cells(i, 7) = ComboBox1.Value Then
        ComboBox2.AddItem (Sheets("Données").Cells(i, 2))
        End If
    Next
End Sub

Tu devrais remplacer Cells(i,7) par Cells(i,1) si j'ai bien compris, puisque la données de ta combobox1 se trouvent dans la colonne A de la feuille "Données".

**NEC14** · 10/12/2008, 14h13

J'ai fait la modification, mais toujours les Combo restent vides

**neiluj26** · 10/12/2008, 14h24

Ben je ne comprends pas ce que tu veux faire avec ce bout de code...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub ComboBox2_AfterUpdate()
For i = 2 To DerLig
    If Sheets("Données").Cells(i, 2) = ComboBox2.Value Then
        ComboBox1 = Sheets("Données").Cells(i, 1)
    End If
Next
End Sub

Pour le reste, je ne vois pas pourquoi ça ne marche pas. Ta feuille "Données" est dans le même classeur que ton userform?
Si tu enlèves le bout de code du dessus, est-ce que tu as des données dans ta combobox1 quand tu déclenches la macro "Formulaire"?

**NEC14** · 10/12/2008, 15h19

Oups! pas besoin de ce bout de code. Je suis allé trop vite.
Sinon mes 2 combo sont bien alimentées. Par contre, si je choisis "Allocation" dans le Combo1, il ne devrait apparaitre dans le Combo2 que "Mariage, Pacs, etc.", alors que toute la liste apparait.
Que se passe t'il ?

**neiluj26** · 10/12/2008, 16h20

Tu peux recopier le code que tu as utilisé ici?

**NEC14** · 10/12/2008, 16h46

Dans l'UserForm :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public i As Long, Derlig As Long
Private Sub ComboBox1_AfterUpdate()
Derlig = Sheets("Données").["A65536"].End(xlUp).Row
For i = 2 To Derlig
    If Sheets("Données").Cells(i, 1) = ComboBox1.Value Then
        ComboBox2.AddItem (Sheets("Données").Cells(i, 2))
    End If
End Sub
Private Sub ComboBox2_AfterUpdate()
For i = 2 To Derlig
    If Sheets("Données").Cells(i, 2) = ComboBox2.Value Then
        ComboBox1 = Sheets("Données").Cells(i, 1)
    End If
Next
End Sub

Dans un module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Formulaire()
Application.DisplayAlerts = False
Dim j As Integer
 
Load FrmOp
    For j = 2 To Sheets("Données").[A65536].End(xlUp).Row
    FrmOp.ComboBox1 = Sheets("Données").Range("A" & j)
 
    If FrmOp.ComboBox1.ListIndex = -1 Then
    FrmOp.ComboBox1.AddItem Sheets("Données").Range("A" & j)
    Next j
    FrmOp.Show
Application.DisplayAlerts = True
End Sub

**neiluj26** · 10/12/2008, 19h41

J'avoue que je sèche un peu (je disais bien que je débute en vba), mais je ne comprends pas pourquoi, dans cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Derlig = Sheets("Données").["A65536"].End(xlUp).Row

tu as mis A65536 entre guillemets.

Sinon, mis à part le bout de code dont je te demandais ce que tu allais faire, je ne vois pas de différence avec mon code (qui fonctionne pour moi). Pourquoi tu ne supprimes pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub ComboBox2_AfterUpdate()
For i = 2 To Derlig
    If Sheets("Données").Cells(i, 2) = ComboBox2.Value Then
        ComboBox1 = Sheets("Données").Cells(i, 1)
    End If

?

**ouskel'n'or** · 10/12/2008, 23h52

Je n'ai pas tout lu, simplement le dernier code. Il serait plus rapide d'utiliser Find pour rechercher la donnée que parcourir ta colonne ligne par ligne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub ComboBox1_AfterUpdate()
Dim c as range
    With Sheets("Données").Columns("A:A")
        set c = .find(ComboBox1.Value, lookIn:=xlvalues, lookat:=xlwhole)
        if not c is nothing then
              ComboBox2.AddItem Sheets("Données").Cells(C.row, 2)
        endif
        set c = nothing
    End with
End Sub

En faisant ça tu ajoutes la donnée située dans la cellule située dans la colonne B de la ligne de la donnée cherchée dans la colonne A.
A toutes fins utiles

Bonne nuit

**NEC14** · 11/12/2008, 08h21

Bonjour Ouske'l'nor,

J'ai mis en place ton code, mais les Combo restent vides.

N'y a t'il pas un petit problème avec lookat:=xlWhole car il reste en minuscule alors que LookIn est en majuscule ?

Je cherche également, ce problème résolu, j'aurai fini mon appli mais pour l'instant il me faut le résoudre

**ouskel'n'or** · 11/12/2008, 14h05

Vérifie c en recherche. Pour ça, met un point d'arrêt sur la ligne "if not c is nothing then" et passe la souris sur c. Tu dois avoir la valeur cherchée. Si tu as "nothing", alors le problème est ailleurs, par exemple je ne comprends pas pourquoi tu places ton code dans "Private Sub ComboBox1_AfterUpdate()"
C'est dans le clic ou le double clic du combo que tu dois le placer.
Tu dis.
A+

**NEC14** · 11/12/2008, 14h11

Euh! comment met-on un point d'arrêt ?

**NEC14** · 11/12/2008, 14h36

Voici le code tel que je l'ai frappé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Cb2_Click()
Dim c As Range
    With Sheets("Données").Columns("A:A")
        Set c = .Find(Cb2.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
              Cb3.AddItem Sheets("Données").Cells(c.Row, 2)
        End If
        Set c = Nothing
    End With
End Sub

Lorsque je mets un point d'arrêt là où tu m'as dit, il ne se passe rien.

Code pour alimenter 2 ComboBox en VBA

Macros et VBA Excel

Discussions similaires

Partager

Partager