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 !
Configuration: Windows XP
Firefox 2.0.0.14

4 réponses

  1. Duki-
     
    Petit up, svp je suis un peu bloqué
    0
  2. Ivan-hoe Messages postés 433 Date d'inscription   Statut Membre Dernière intervention   310
     
    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
  3. Ivan-hoe Messages postés 433 Date d'inscription   Statut Membre Dernière intervention   310
     
    I.
    0