Sélection de lignes filtrées excel
Bonjour,
Et oui les joie des débuts en VBA....
Pour faire simple :
J'ai un tableau dont j'ai trié les colonnes avec une macro autofilter
et je cherche maintenant à sélectionner uniquement les lignes prises dans les filtres pour en colorer une sur deux.
fin = Range("A8").End(xlDown).Row
tout = Range(Cells(8, 1), Cells(fin, 49))
tout.SpecialCells(xlCellTypeVisible).Select
For Each i In Selection
i.Select
ActiveCell.Offset(1, 0).Interior.ColorIndex = 15
Next
End Sub
J'étais parti la dessus mais ca ne fonctionne pas, j'aurais besoin d'un petit coup de main :)
Merci d'avance !
Et oui les joie des débuts en VBA....
Pour faire simple :
J'ai un tableau dont j'ai trié les colonnes avec une macro autofilter
et je cherche maintenant à sélectionner uniquement les lignes prises dans les filtres pour en colorer une sur deux.
fin = Range("A8").End(xlDown).Row
tout = Range(Cells(8, 1), Cells(fin, 49))
tout.SpecialCells(xlCellTypeVisible).Select
For Each i In Selection
i.Select
ActiveCell.Offset(1, 0).Interior.ColorIndex = 15
Next
End Sub
J'étais parti la dessus mais ca ne fonctionne pas, j'aurais besoin d'un petit coup de main :)
Merci d'avance !
Configuration: Windows XP Firefox 2.0.0.14
4 réponses
-
Petit up, svp je suis un peu bloqué
-
re petit up désolé :)
-
Salut Duki,
ne sois pas désolé, la persévérance finit par payer.
Essaie en utilisant la propriété Hidden de chaque ligne
Par exemple :Tout.Select For Each Cellule In Selection If Cellule.EntireRow.Hidden = False Then 'instructions End If Next Cellule
A suivre... -
I.
