Discussion :

[informer]

En adaptant ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
            Set xlsRangeAutoFilter = .SpecialCells(xlCellTypeVisible)
 
            For Each oRange In xlsRangeAutoFilter.Rows
                Debug.Print oRange.Row
            Next

Et j'obtiens

1
1
1
29
29
29

Reste plus qu'a le traiter et faire un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set oRange = .Rows(29).Cells

Pour pointer sur la bonne ligne

Merci beaucoup Philippe pour ton aide

[Philippe Tulliez]

Bonjour,
Non comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub t()
 Dim rngAfterFilter As Range, rngRow As Range
 With ThisWorkbook.Worksheets("BD").Range("A1").CurrentRegion
   With .Offset(1).Resize(.Rows.Count - 1)
     Set rngAfterFilter = .SpecialCells(xlCellTypeVisible)
   End With
 End With
 For Each rngRow In rngAfterFilter.Rows
   Debug.Print rngRow.Row ' Affichage du numéro de la ligne filtrée
 Next
End Sub

pour obtenir
1
29

[informer]

Topissime Philippe

Par contre pourrais tu m'expliquer le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With .Offset(1).Resize(.Rows.Count - 1)

Il fait commencer à la ligne après la ligne des entêtes si je comprends bien

J'ai toujours 3 iterations car dans le fichier Excel, il y a des 2 regroupements.

Merci encore pour ton aide et ta patience

[Philippe Tulliez]

Bonjour,

Par contre pourrais tu m'expliquer le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With .Offset(1).Resize(.Rows.Count - 1)

Il fait commencer à la ligne après la ligne des entêtes si je comprends bien

Exactement.
La ligne qui précède avec la propriété CurrentRegion englobe le titre et les données donc celle-ci se déplace d'une ligne et redimensionne le nombre de lignes moins une

[informer]

Encore merci Philippe pour ton aide extrêmement précieuse.

Au cas où ça pourrait servir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim oRange As Range, a As Range
 
'---- Merci à Philippe
With Application.ActiveSheet.Range("A1").CurrentRegion
 
 '---------------------------------------------------------------------------------------------------------------------------------------
'                                     ATTENTION 
'           Instruction générant une erreur si le filtrage (autoFilter) ne renvoie aucune ligne de données
'           Donc préconise de tester rows.count et si > 1 alors faire l'instruction 
'-------------------------------------------------------------------------------------------------------------------------------------------
With .Offset(1).Resize(.Rows.Count - 1)    
   Set oRange = .SpecialCells(xlCellTypeVisible)
   End With
End With

Donc propose plutôt pour ne pas à gérer l'erreur ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim oRange As Range, a As Range
 
With Application.ActiveSheet.Range("A1").CurrentRegion
      Set oRange = .SpecialCells(xlCellTypeVisible)
End With
 
Debug.Print oRange.Address
Debug.Print oRange.Rows.Count
 
For Each a In oRange.Rows
    If a.Row > 1 Then -----------> Si 1 alors c'est l'entête
        Debug.Print a.Row
        a.Columns(4) = 100
    End If
Next