Discussion :

[jpenja]

bonjour,
je voudrais savoir s'il est possible sous Excel d'alimenter une listbox avec les résultats d'une recherche effectue sur une plage de cellule avec un critère spécifique.
Exemple : la colonne B contient tous les noms de personnes
PB:Affiche dans la listbox toutes les pers. s'appelant "trucmuche"

[Ragnarok85]

Bonjour,

C'est possible. Il faut procéder en 2 étapes:
-Création d'une nouvelle plage de valeur en extrayant les valeurs voulus.
-Sélectionner cette plage de valeur pour ta liste.

Cordialement,

Antoine

[jpenja]

Merci Antoine
pour ce qui est de l'affectation de la plage je connais via la propriété Rowsource de la listbox.
Ce qui me pose pb c'est comment coder la création de la plage contenant les cellules extraites.

[Ragnarok85]

On va dire que t'as une plage de cellule de A1 à An, tes valeurs actuelles.
Et une plage de B1 à Bn.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
i=1
j=1
Do until Range("A" & i)=null
   If Range("A" & i)="critere" then
         range("B" & j)=Range("A" & i)
         j=j+1
   end if
   i=i+1
Loop

Tu réajustes le code et corrige les erreurs .

[jpenja]

Merci à toi .
Celà fonctionne parfaitement( juste adapté et remplacé le null par "").
si je peut abuser j'avais essayé ce code mais il ne me balayait pas toutes les cellules de la colonne c et je ne voyais pas mon erreur.si tu a encore un peu de tps pour m'éclairer, je suis preneur.

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
 
'Dim c As Range
'i = 2
'j = 2
 
'For Each c In Range([c2], [c65000]).End(xlUp)
 '   If UserForm3.OptionButton1.Value = True Then
  '      If Feuil2.Range("a" & i) = Critrech Then
   '         Feuil6.Range("b" & j) = Feuil2.Range("c" & i) & "  " & Feuil2.Range("d" & i)
    '        j = j + 1
     '   End If
    'End If
    'If UserForm3.OptionButton2.Value = True Then
     '   If Feuil2.Range("c" & i) = Critrech Then
      '      Feuil6.Range("b" & j) = Feuil2.Range("c" & i) & "  " & Feuil2.Range("d" & i)
       '     j = j + 1
        'End If
    'End If
'Next c

[Ragnarok85]

Ton problème ne serait pas la variable i? Tu devrais pas la remplacer par une autre variable? c?

Code :

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

Feuil2.Range("c" & i)

Seulement pour les cellules de la colonne C.