OptionButton et recherche simultanée

[lynyrd]

bonjour le forum
En sélectionnant l'OptionButton3 et la ComboBox1,est t'il possible de faire la recherche simultanemment sur les colonnes A,C et E et afficher le résultat dans la ListBox ?
Merci.

 

[Compte Supprimé 979]

Re : OptionButton et recherche simultanée

Bonjour lynyrd

Dans la sub

Private Sub obG2() 'prodédure des boutons d'option du Groupee G2

Il faut changer le code de la boucle

For Each cel In pl 'boucle sur toutes les cellules de la plage pl
    dico(cel.Value) = "" 'alimente le dictionnaire
    dico(cel.Offset(0, 2).Value) = ""
    dico(cel.Offset(0, 4).Value) = ""
Next cel 'prochaine cellule de la boucle

A+

 

[lynyrd]

Re : OptionButton et recherche simultanée

Bonjour
Merci BrunoM45
Les 3 noms s'affichent bien dans la ComboBox,mais seul "toto"est effectif et s'affiche dans la ListBox.
Merci.

 

[lynyrd]

Re : OptionButton et recherche simultanée

Re
Un petit up
Merci.

 

[laetitia90]

Re : OptionButton et recherche simultanée

bonjour lynyrd,Bruno
comme je comprends
dans combo

Private Sub ComboBox1_Change() 'au changement dans la ComboBox1
Me.ListBox1.Clear 'vide la ListBox1
For x = 1 To 9 'boucle sur les 9 textboxes
    Me.Controls("TextBox" & x).Value = "" 'vide la textbox
Next x 'prochaine textbox de la boucle
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
  
  If cel = ComboBox1 Or cel.Offset(0, 2) = ComboBox1 Or cel.Offset(0, 4) = ComboBox1 Then'modif

ect...
dans proprietées de la listbox
ColumnCount=9
ColumnWidths=80 pt;0 pt;80 pt;0 pt;80 pt;0 pt;0 pt;0 pt;0 pt ' a adapter

 

[lynyrd]

Re : OptionButton et recherche simultanée

Merci Laetitia90
Bon week-end