Excel VBA : valeur d'une cellule dans un sélection avec filtre

Bonjour,

dans une feuille Excel, j'ai filtré manuellement mes lignes sur un critère.

Ma macro doit récupérer la valeur de la 2e ligne , 2e colonne dans cette sélection dont certaines lignes sont masquées par le filtre manuel (hors macro).

Pouvez-vous m'aider ?

Merci

bonjour et bienvenu,

vous ne dites pas grand chose, donc c'est un pari. On copie & colle les cellules visibles 10 lignes en dessous la plage filtrée, on lit la cellule et on supprime de nouveau ces cellules. (S'il y a des données là, il faut coller à un autre endroit.)

Sub Test()
     Set c = ActiveSheet.AutoFilter.Range    'la plage filtrée
     i = c.Columns(1).SpecialCells(xlVisible).Count     'nombre de lignes visibles
     c.Copy                                  'copy la plage filtrée
     With c.Offset(c.Rows.Count + 10).Resize(i, c.Columns.Count)     'plage 10 lignes en dessous votre plage
          .PasteSpecial xlValues             'coller les cellules visible
          MsgBox "la valeur est " & .Cells(2, 2).Value     'valeur de la 2ième ligne, 2ième cellule (11ère ligne = entête
          .ClearContents                     'RAZ
     End With
End Sub

Super,

c'est effectivement très simple... il suffisait d'y penser !

Merci encore