Discussion :

[drjacky]

Bonjour,

voici ma problématique :
Je fais un autofilter sur MaFeuille.
Je dois parcourir le range filtré (avec xlCellTypeVisible) ; pour chaque ligne, je dois récupérer la valeur de la colonne B.

Problème : comment obtenir le numéro de ligne absolu après filtrage ? Je ne parviens qu'à récupérer le numéro de la ligne filtrée.

Un extrait de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
'Filtrage des lignes
Selection.AutoFilter Field:=25, Criteria1:="<>"
 
Set plage = MaFeuille.UsedRange.SpecialCells(xlCellTypeVisible)
'Parcours du range filtré
For Each ligne In plage.Cells
     If MaFeuille.Range("B" & ?).Value = "True" Then 'problème
          'traitements divers
     End If
Next

Merci de votre aide.

Etienne J.

[mercatog]

essaies comme ceci (à adapter)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim c As Range, Plage As Range
 
Set Plage = Sheets("Feuil1").Range("A1:AB100") 'à adapter
Plage.AutoFilter Field:=25, Criteria1:="<>"
'Parcours du range filtré
For Each c In Plage.Range("B:B").SpecialCells(xlCellTypeVisible)
    If c.Value = True Then  'problème
'traitements divers
    End If
Next c
Set Plage = Nothing

[drjacky]

Merci de ta réponse.

Apparemment, ça ne fonctionne pas. Précision utile : je dois aussi avoir accès aux autres colonnes du range (jusqu'à AA)
Plus concrètement, j'ai, dans chaque cellule en A une checkbox ; chaque checkbox est liée à la cellule d'à côté (B) qui affiche si la case est cochée ou non (chaine "TRUE"/"FALSE")
Lorsque je parcours mon range, je dois récupérer certaines valeurs de la ligne seulement si la case en A est cochée.

D'autres idées ? Merci d'avance.

Etienne J.

[mercatog]

Apparemment ça fonctionnerait si on arrive à cerner le fonctionnement. Lisez les quelques commentaire au sein du 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
17
18
19
Dim c As Range, Plage As Range
Dim LastLig As Long, Lig As Long
 
With Sheets("Feuil1")
   .AutoFilterMode = False
   LastLig = .Cells(.Rows.Count, "B").End(xlUp).Row
   Set Plage = .Range("A1:AA" & LastLig)
   Plage.AutoFilter Field:=25, Criteria1:="<>"
   'Parcours du range filtré
   For Each c In .Range("B2:B" & LastLig).SpecialCells(xlCellTypeVisible)
      If c.Value = True Then   'problème
         Lig = c.Row  '(on parcourt la colonne B des données visibles et on récupère la ligne
         MsgBox .Range("AA" & Lig).Value & vbTab & .Range("C" & Lig).Value
         'ici par exemple on affiche la donnée de AA et C
         'traitements divers
      End If
   Next c
   Set Plage = Nothing
End With

[drjacky]

Bonjour et merci. Désolé d'avoir tardé à répondre, je n'avais pas accès au net.

j'ai testé ton code : il fonctionne mais ne prend apparemment pas en compte toutes les lignes... et je ne parviens pas à trouver lesquelles sont zappées.

Une idée ?

Merci

Etienne