Bonjour,
je suis sous excel 97 et je réalise une macro possédant un userform sur lequel on retrouve 2 combobox permettant de faire des recherche sur des critéres différents, sur un tableau stocké dans mon classeur, feuille 1.
Mon probléme c'est que je n'arrive pas à initialiser correctement mes combobox?
Pour précision les combobox sont indépendantes.
J'ai ceci comme code :
Private Sub UserForm_Initialize()
Dim c As Range
Dim d As Range
Set plage = Feuil1.Range("b1:b" & Feuil1.Range("b65536").End(xlUp).Row)
'On ajoute des occurences uniques à la combobox des noms
bChargementListe = True
For Each d In plage.Cells
If d.Row <> plage.Range("b1").Row Then
ComboBox1.Text = Trim(d.Text) 'cette ligne entraine l'évènement cbNoms_Click()
If ComboBox1.ListIndex = -1 Then
' test de la valeur de d si elle vaut rien alors on affiche pas comme sa sa enléve les trou dans les combobox
If d <> "" Then ComboBox1.AddItem d
End If
End If
Next
ComboBox1.ListIndex = -1
bChargementListe = False
Set plage = Feuil1.Range("A1:A" & Feuil1.Range("A65536").End(xlUp).Row)
'On ajoute des occurences uniques à la combobox des noms
bChargementListe = True
For Each c In plage.Cells
If c.Row <> plage.Range("A1").Row Then
cbDenomination.Text = Trim(c.Text) 'cette ligne entraine l'évènement cbNoms_Click()
If cbDenomination.ListIndex = -1 Then
' test de la valeur de c si elle vaut rien alors on affiche pas comme sa sa enléve les trou dans les combobox
If c <> "" Then cbDenomination.AddItem c
End If
End If
Next
cbDenomination.ListIndex = -1
bChargementListe = False
End Sub
Avec ce code la premiére combobox fonctione mais pas la seconde; et je pense que pour faire fonctionner les deux en même temps, il faudrait mettre une condition permettant de savoir sur quelle combobox l'utilisateur veut faire sa recherche?
Enfin c'est mon point de vue et je peux me tromper.
J'attend avec impatience vos idées et votre aide.
Merci par avance et je reste disponible pour plus d'informations.
je suis sous excel 97 et je réalise une macro possédant un userform sur lequel on retrouve 2 combobox permettant de faire des recherche sur des critéres différents, sur un tableau stocké dans mon classeur, feuille 1.
Mon probléme c'est que je n'arrive pas à initialiser correctement mes combobox?
Pour précision les combobox sont indépendantes.
J'ai ceci comme code :
Private Sub UserForm_Initialize()
Dim c As Range
Dim d As Range
Set plage = Feuil1.Range("b1:b" & Feuil1.Range("b65536").End(xlUp).Row)
'On ajoute des occurences uniques à la combobox des noms
bChargementListe = True
For Each d In plage.Cells
If d.Row <> plage.Range("b1").Row Then
ComboBox1.Text = Trim(d.Text) 'cette ligne entraine l'évènement cbNoms_Click()
If ComboBox1.ListIndex = -1 Then
' test de la valeur de d si elle vaut rien alors on affiche pas comme sa sa enléve les trou dans les combobox
If d <> "" Then ComboBox1.AddItem d
End If
End If
Next
ComboBox1.ListIndex = -1
bChargementListe = False
Set plage = Feuil1.Range("A1:A" & Feuil1.Range("A65536").End(xlUp).Row)
'On ajoute des occurences uniques à la combobox des noms
bChargementListe = True
For Each c In plage.Cells
If c.Row <> plage.Range("A1").Row Then
cbDenomination.Text = Trim(c.Text) 'cette ligne entraine l'évènement cbNoms_Click()
If cbDenomination.ListIndex = -1 Then
' test de la valeur de c si elle vaut rien alors on affiche pas comme sa sa enléve les trou dans les combobox
If c <> "" Then cbDenomination.AddItem c
End If
End If
Next
cbDenomination.ListIndex = -1
bChargementListe = False
End Sub
Avec ce code la premiére combobox fonctione mais pas la seconde; et je pense que pour faire fonctionner les deux en même temps, il faudrait mettre une condition permettant de savoir sur quelle combobox l'utilisateur veut faire sa recherche?
Enfin c'est mon point de vue et je peux me tromper.
J'attend avec impatience vos idées et votre aide.
Merci par avance et je reste disponible pour plus d'informations.