Macro VBA recherche multicritères

tototiti2008

XLDnaute Barbatruc

• 11 Août 2008

• #2

Re : Macro VBA recherche multicritères

Bonjour Mattharm,

Le plus simple est de faire un filtre automatique...

 

Vote positif 0 Vote négatif

M

Mattharm

XLDnaute Occasionnel

• 11 Août 2008

• #3

Re : Macro VBA recherche multicritères

Bonjour tototiti,

Excel ne prend pas les filtres automatiques multiples (à ma connaissances) ?

Est il possible de lancer des filtres en VBA ? 😉

Merci

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 11 Août 2008

• #4

Re : Macro VBA recherche multicritères

tu veux faire un filtre sur 2 champs différents, le filtre automatique prend ça trés bien en charge.
Tu enregistres une macro, tu filtres le champ A sur la valeur 1, tu filtres le champ B sur la valeur 0, tu arrêtes l'enregistreur...

si je suis à côté du sujet, mets-nous un petit fichier exemple, ça clarifiera les choses

 

Vote positif 0 Vote négatif

M

Mattharm

XLDnaute Occasionnel

• 11 Août 2008

• #5

Re : Macro VBA recherche multicritères

Non pil poil dans les clous 😉

Je pense que ça va marcher !
Je vais faire mes tests (dans la soirée) et je repasse dire si tout est ok 😉

Merci
mattharm

 

Vote positif 0 Vote négatif

M

Mattharm

XLDnaute Occasionnel

• 11 Août 2008

• #6

Re : Macro VBA recherche multicritères

Juste une question complémentaire :

J'ai dit à Excel que ma première ligne est la 6ème, donc lorsque ma macro s'exécute, elle lit à partir de la ligne 6.

Lorsque je lui dis de filtrer les données il arrive que les premières données soit par exemple la ligne 25 !

Mais il continue à me lire à partir de la ligne 6 ! (normal)

Comment peut on lui expliquer de ne lire que les données filtrées ? 😎


Merci

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 11 Août 2008

• #7

Re : Macro VBA recherche multicritères

c'est une macro qui lit les données ?

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 11 Août 2008

• #8

Re : Macro VBA recherche multicritères

bon, je vais supposer que c'est une macro qui lit les données de la colonne A:

Dim Cellule as Range
For each Cellule in Range("A1:A1000").SpecialCells(xlCellTypeVisible)
'Lit Cellule
Next Cellule

 

Vote positif 0 Vote négatif

M

Mattharm

XLDnaute Occasionnel

• 11 Août 2008

• #9

Re : Macro VBA recherche multicritères

Re-

Actuellement, je définit une variable ligne à 6 et ensuite je lis de 6 à la fin.

Est il possible de faire quelque chose du style :

Code:

While cell(ligne,1).SpecialCells(xlCellTypeVisible) = false

ligne = ligne +1

Wend

Je sais que specialcells s'utiise avec un type Range, mais comment faire pour ne pas boucler mais pour lire 1 à 1 (en choisissant quand on passe à la suivante) mes lignes ?

Merci 😉

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 12 Août 2008

• #10

Re : Macro VBA recherche multicritères

Bonjour à tous,

tu dis que tu ne veux pas boucler... mais tu mets le code d'une boucle... je ne comprend pas bien 😕

 

Vote positif 0 Vote négatif

M

Mattharm

XLDnaute Occasionnel

• 12 Août 2008

• #11

Re : Macro VBA recherche multicritères

Bonjour,

En fait dans mon code, je lis la ligne 6 puis il y a 2 boutons pour avance ou reculer.

Si un filtre est appliqué, la ligne 6 ne va peut être pas apparaître. Je voudrais donc mettre une condition du genre :

Code:

dim ligne as integer
ligne = 6

if cells(ligne,1).SpecialCells(xlCellTypeVisible) = false then
ligne = ligne +1
end if

Et donc comme je veux commencer à la première ligne visible, il me faut une boucle While qui boucle tant que la ligne n'est pas visible !

Ais je été plus clair ?

Merci
Mattharm

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 12 Août 2008

• #12

Re : Macro VBA recherche multicritères

peut-être avec :

Activesheet.range(cells(6,1),cells(activesheet.range("A65536").end(xlup).row,1)).specialcells(xlCellTypeVisible).range("A1").row

 

Vote positif 0 Vote négatif

M

Mattharm

XLDnaute Occasionnel

• 12 Août 2008

• #13

Re : Macro VBA recherche multicritères

tototiti2008 à dit:

peut-être avec :

Activesheet.range(cells(6,1),cells(activesheet.range("A65536").end(xlup).row,1)).specialcells(xlCellTypeVisible).range("A1").row

Cliquez pour agrandir...

🙄 Keskecékeça ?

Tu veux que je mette ça ou dans mon code ?

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 12 Août 2008

• #14

Re : Macro VBA recherche multicritères

ça te renvoie le numéro de la 1ère ligne visible dans la plage de la ligne 6 jusqu'à la dernière ligne remplie en colonne A... donc pas besoin de boucler jusqu'à ce que la ligne soit visible, là tu as son numéro de ligne...

 

Vote positif 0 Vote négatif

M

Mattharm

XLDnaute Occasionnel

• 12 Août 2008

• #15

Re : Macro VBA recherche multicritères

tototiti2008 à dit:

ça te renvoie le numéro de la 1ère ligne visible dans la plage de la ligne 6 jusqu'à la dernière ligne remplie en colonne A... donc pas besoin de boucler jusqu'à ce que la ligne soit visible, là tu as son numéro de ligne...

Cliquez pour agrandir...

Et donc quand j'appuie sur le bouton suivant ? 🙄 Je remets ce code à partir du numéro précédemment trouvé 🙂

Ca pourrait marcher ! Je vais essayer ça tout à l'heure (je suis sur autre chose là)

Merci à toi 😉 tototiti2008 😎

 

Vote positif 0 Vote négatif