Sélection de lignes filtrées excel

Duki- -  
Ivan-hoe Messages postés 433 Date d'inscription   Statut Membre Dernière intervention   -
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 !
A voir également:

4 réponses

Duki-
 
Petit up, svp je suis un peu bloqué
0
duki-
 
re petit up désolé :)
0
Ivan-hoe Messages postés 433 Date d'inscription   Statut Membre Dernière intervention   309
 
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...
0
Ivan-hoe Messages postés 433 Date d'inscription   Statut Membre Dernière intervention   309
 
I.
0