dans une table avec filtre, les titres sont en ligne 1 et j'ai besoin de
récupérer la valeur qui est dans la première ligne affichée.
Quand la table n'est pas filtrée, c'est la ligne 2, je m'en sors avec
[A1].Offset(1, 0).Value
mais quand la table est filtrée, je ne sais pas comment sélectionner la
cellule qui est sous la ligne de titre.
dans une table avec filtre, les titres sont en ligne 1 et j'ai besoin de récupérer la valeur qui est dans la première ligne affichée. Quand la table n'est pas filtrée, c'est la ligne 2, je m'en sors avec [A1].Offset(1, 0).Value mais quand la table est filtrée, je ne sais pas comment sélectionner la cellule qui est sous la ligne de titre.
dans une table avec filtre, les titres sont en ligne 1 et j'ai besoin de
récupérer la valeur qui est dans la première ligne affichée.
Quand la table n'est pas filtrée, c'est la ligne 2, je m'en sors avec
[A1].Offset(1, 0).Value
mais quand la table est filtrée, je ne sais pas comment sélectionner la
cellule qui est sous la ligne de titre.
dans une table avec filtre, les titres sont en ligne 1 et j'ai besoin de récupérer la valeur qui est dans la première ligne affichée. Quand la table n'est pas filtrée, c'est la ligne 2, je m'en sors avec [A1].Offset(1, 0).Value mais quand la table est filtrée, je ne sais pas comment sélectionner la cellule qui est sous la ligne de titre.
Merci d'avance à qui me mettra sur la voie.
Jac
Daniel
Bonsoir.
Sub test() Dim c As Range For Each c In Range("_filterdatabase").Offset(1, 0).Resize(, 1) If c.EntireRow.Hidden = False Then MsgBox c.Address Exit Sub End If Next c End Sub
Cordialement. Daniel "Jac" a écrit dans le message de news: 45e4640a$0$23929$
Bonjour à tous,
dans une table avec filtre, les titres sont en ligne 1 et j'ai besoin de récupérer la valeur qui est dans la première ligne affichée. Quand la table n'est pas filtrée, c'est la ligne 2, je m'en sors avec [A1].Offset(1, 0).Value mais quand la table est filtrée, je ne sais pas comment sélectionner la cellule qui est sous la ligne de titre.
Merci d'avance à qui me mettra sur la voie.
Jac
Bonsoir.
Sub test()
Dim c As Range
For Each c In Range("_filterdatabase").Offset(1, 0).Resize(, 1)
If c.EntireRow.Hidden = False Then
MsgBox c.Address
Exit Sub
End If
Next c
End Sub
Cordialement.
Daniel
"Jac" <Jsansp@mfra.net> a écrit dans le message de news:
45e4640a$0$23929$426a74cc@news.free.fr...
Bonjour à tous,
dans une table avec filtre, les titres sont en ligne 1 et j'ai besoin de
récupérer la valeur qui est dans la première ligne affichée.
Quand la table n'est pas filtrée, c'est la ligne 2, je m'en sors avec
[A1].Offset(1, 0).Value
mais quand la table est filtrée, je ne sais pas comment sélectionner la
cellule qui est sous la ligne de titre.
Sub test() Dim c As Range For Each c In Range("_filterdatabase").Offset(1, 0).Resize(, 1) If c.EntireRow.Hidden = False Then MsgBox c.Address Exit Sub End If Next c End Sub
Cordialement. Daniel "Jac" a écrit dans le message de news: 45e4640a$0$23929$
Bonjour à tous,
dans une table avec filtre, les titres sont en ligne 1 et j'ai besoin de récupérer la valeur qui est dans la première ligne affichée. Quand la table n'est pas filtrée, c'est la ligne 2, je m'en sors avec [A1].Offset(1, 0).Value mais quand la table est filtrée, je ne sais pas comment sélectionner la cellule qui est sous la ligne de titre.