Discussion :

[stargates01]

Bonjour à tous,

Voilà, j'ai un petit soucis en voulant rechercher/parcourir une valeur dans une colonne qui par ailleurs fait l'objet d'un filtre. J'ai donc un tableau (par exemple A1:D50) pour lequel j'ai activé les filtres (Autofilter) et sélectionné que certaines valeurs de ma colonne B ce qui a pour conséquence de ne m'afficher que 20 lignes de mon tableau sur les 50.

Maintenant je souhaiterais parcourir ma colonne A par la méthode Find pour repérer toutes les cellules de cette colonne contenant la valeur 2. Je suis en vba et ai donc une ligne de type Activesheet.Range("A1:A50").Find(2, Lookin:= xlValues). Malheureusement je constate que cette méthode ne recherche la valeur 2 que dans les lignes visibles, et ignore les lignes invisilbes de mon objet Range.

Auriez-vous une piste pour que la recherche se fasse également dans les lignes non visibles (donc ignorées par le filtre en place sur la colonne B) si possible sans avoir à retirer mon filtre puis le réappliquer... Tous les post que j'ai lu concernent en général la façon d'identifier que les cellules visibles, ce qui est plutôt le problème inverse du miens.


Merci à ceux qui prendront le temps de m'éclairer.

Stargates

[boisgontierjacques]

Bonsoir,

Lire le champ A1:D50 dans un tableau et effectuer les recherches dans le tableau par exemple (rapide)
On peut aussi utiliser application.match sur une colonne.

Jacques Boisgontier

[Daniel.C]

Bonjour,

Fais une boucle sur la plage de la colonne B.

[stargates01]

Merci pour vos réponses. Je vais approfondir la méthode match.

Qu'entends-tu par "Fais une boucle sur la colonne B" ?

Je crois que j'ai compris pour la boucle (je suis unpeu lent ce soir...). Le problème est que je souhaite appliquer mon code à un tableau qui peut atteindre 150.000 lignes et je pense que la méthode find et findnext est plus performante que la boucle (si j'arrivais à l'appliquer sur les cellules invisibles).

[Daniel.C]

Utilise une variable tableau, c'est très rapide :

Code :

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

1
2
3
4
5
6
Tablo = Range("B1:B150000")
For i = 1 To 150000
    If Cells(i, 2) = 2 Then
        MsgBox Cells(i, 2)
    End If
Next i

[stargates01]

Merci, j'avais pas pensé à la variable tableau qui doit effectivement aller beaucoup plus vite qu'une boucle sur les cellules de la feuille. Je vais tester et reviendrai clore le sujet. J'espère que Tablo = Range("A1:A15000") ne charge pas que les cellules visibles...

Merci encore.
Stargates

[boisgontierjacques]

Code :

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

1
2
3
4
5
 
  a = [A1:A60000]
  v = "Nom50000"
  pos = Application.Match(v, a, 0)
  MsgBox pos

Jacques Boisgontier

[Daniel.C]

Des fois, je me mettrais des coups de pied au c..

Code :

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

1
2
3
4
5
6
7
8
Dim Tablo As Variant, Ligne
Ligne = Cells(Rows.Count, 2).End(xlUp).Row
Tablo = Application.Transpose(Range("B1:B" & Ligne))
For i = 1 To UBound(Tablo)
    If Tablo(i) = 2 Then
        MsgBox Tablo(i)   'i représente la ligne trouvée
    End If
Next i

[keygen08]

Bonjour
remplacer

Code :

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

Activesheet.Range("A1:A50").Find(2, Lookin:= xlValues).

Par

Code :

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

Activesheet.Range("A1:A50").Find(2, Lookin:= xlformulas).

et la recherche se fera également dans les lignes cachées