Macro replace dans macro

[Bernard91]

Bonjour le forum,
J'ai cherché mais je n'ai pas trouvé la solution.
J'ai une macro qui fonctionne pour remplir une listbox dans 1 multipage et je voudrais qu'une autre listbox sur le même formulaire soit remplie avec les mêmes éléments car la page ne sera plus apparente.
J'avais 2 choix:
- faire que listbox1 remplisse listbox2 mais je n'ai pas pu.
- faire de nouveau tourner la macro mais en remplaçant la destination listbox1 par listbox2. Je voulais éviter de recopier tous le code.
Merci de vos réponses

 

[Blunet]

Salut Bernard, comprends pas qd tu dis : la page ne sera plus apparente
Pour remplir la 2nde liste des éléments de la première :

Private Sub UserForm_Activate()
ListBox1.RowSource = 'b1:b6'
ListBox2.RowSource = ListBox1.RowSource
End Sub

Ciao

 

[Blunet]

re,
Un fichier joint :
http://cjoint.com/?gwlG6SrOgG

 

[Bernard91]

Le Forum, Blunet
En effet je vais effectuer des recherches en fonction de plusieurs groupes de critères se trouvant dans des listboxs et qui sont aussi les groupes de critères. Ces listboxs au départ sont remplies par la méthode des tableaux basée sur le travail de _Thierry. Et malheureusement ta solution n'est pas adéquate mais je te remercie tout de même.

 

[KarlTheo]

faire de nouveau tourner la macro mais en remplaçant la destination listbox1 par listbox2

Comme ça?

Dim a
For i = 1 To 2
  Select Case i
    Case 1: Set a = ListBox1
    Case 2: Set a = ListBox2
  End Select

  With a
    .RowSource = 'a2:a4'
    'Ou plutôt ton code pour remplir la LB1
    'a base de critères et qui du coup ne sera
    'pas dupliqué
  End With
Next i

 

[Bernard91]

Le Forum, KarlTheo,
Je te remercie, je vais essayer et tu as répondu à mes attentes si je ne reviens pas c'est que c'est bon, j'ai pu l'adapter.
A bientôt