Boucle sur données filtrées - VBA

[mimy]

Bonjour,

J'ai un tableau qui commence à la ligne A4 et qui se termine en cellule D50.
J'ai pu réaliser un filtre en VBA afin de filtrer sur un critère de la colonne A.

J'ai fait ensuite:

For each cell in MapPlage
sum=sum+range("D"&cell.row)
Next cell

Lorsque je fais un tour de boucle, l'incrément ne se fait pas directement après le "next cell".
En gros mon code boucle 4 fois sur la même valeur de la première cellule filtrée et ne passe qu'à la cellule suivante qu'au bout de la 5eme fois.
Je pense que c'est dû à la position de mon tableau.

Quelqu'un pourrais m'aider?

Merci!

 

[vgendron]

Re : Boucle sur données filtrées - VBA

Bonjour,

je pense qu'il faut que tu redéfinisses ta plage uniquement avec les cellules visibles (issues de ton filtre)

Set maplage = Range("A4😀50").SpecialCells(xlCellTypeVisible)
For each cell in MapPlage
sum=sum+range("D"&cell.row)
Next cell

comme il n'y a pas de fichier. c'est pas testé ;-)

 

[mimy]

Re : Boucle sur données filtrées - VBA

Merci.

Mais je l'ai déjà fait et ça ne marche pas.

J'ai mis un exemple en pièce jointe

Merci encore

 

[vgendron]

Re : Boucle sur données filtrées - VBA

rajoutte ceci dans ta boucle..
tu comprendras tout de suite pourquoi tu as 4 fois la meme valeur

For Each Cell In MaPlage
MsgBox Cell.Address

et une question. tu en fais quoi de ta sum?

 

[mimy]

Re : Boucle sur données filtrées - VBA

Merci 😀

Trop bete l'erreur!

Merci!

 

[mimy]

Re : Boucle sur données filtrées - VBA

J'ai commencé mon code. Je ne l'ai pas encore terminé!
Merci encore