Cette macro obtenue ici me permet de récupérer la valeur U de la première
ligne visible du résultat d'un filtre pour la recopier en U1.(colonne 21)
Je voudrais en plus récupérer la valeur W de la dernière ligne visible du
résultat du filtre et la reporter en W1. (colonne 22). Le filtre commence
en ligne 3, les 1 et 2 étant gelée et resrvées aux titres et autres
boutons.
Ce ne doit pas être bien compliqué mais je n'y parviens pas.
Merci.
Sub AutoChangeU1()
Dim rng As Range
ligneFreezepanes = 3
d = Range("A" & Cells.Rows.Count).End(xlUp).Address
'Définir un Range ne contenant que les lignes visibles sous la ligne 2
Set rng = Range("a" & ligneFreezepanes & ":" &
d).SpecialCells(xlCellTypeVisible)
OUPS Vous aurez compris que la colonne W est la colonne 23 et non 22 !!
"milloche" a écrit dans le message de news: %
Bonjour
Cette macro obtenue ici me permet de récupérer la valeur U de la première ligne visible du résultat d'un filtre pour la recopier en U1.(colonne 21)
Je voudrais en plus récupérer la valeur W de la dernière ligne visible du résultat du filtre et la reporter en W1. (colonne 22). Le filtre commence en ligne 3, les 1 et 2 étant gelée et resrvées aux titres et autres boutons.
Ce ne doit pas être bien compliqué mais je n'y parviens pas.
Merci.
Sub AutoChangeU1()
Dim rng As Range
ligneFreezepanes = 3
d = Range("A" & Cells.Rows.Count).End(xlUp).Address
'Définir un Range ne contenant que les lignes visibles sous la ligne 2
Set rng = Range("a" & ligneFreezepanes & ":" & d).SpecialCells(xlCellTypeVisible)
ligne = rng.Cells(1, 1).Row
colonne = 21
Premiere = "R" & ligne & "C" & colonne
Application.Goto Reference:=Premiere, Scroll:úlse
Range("u1") = ActiveCell.Value
End Sub
OUPS
Vous aurez compris que la colonne W est la colonne 23 et non 22 !!
"milloche" <mille.jean-marieZZZ@neuf.fr> a écrit dans le message de news:
%23nH8aAIXKHA.3876@TK2MSFTNGP05.phx.gbl...
Bonjour
Cette macro obtenue ici me permet de récupérer la valeur U de la première
ligne visible du résultat d'un filtre pour la recopier en U1.(colonne 21)
Je voudrais en plus récupérer la valeur W de la dernière ligne visible du
résultat du filtre et la reporter en W1. (colonne 22). Le filtre commence
en ligne 3, les 1 et 2 étant gelée et resrvées aux titres et autres
boutons.
Ce ne doit pas être bien compliqué mais je n'y parviens pas.
Merci.
Sub AutoChangeU1()
Dim rng As Range
ligneFreezepanes = 3
d = Range("A" & Cells.Rows.Count).End(xlUp).Address
'Définir un Range ne contenant que les lignes visibles sous la ligne 2
Set rng = Range("a" & ligneFreezepanes & ":" &
d).SpecialCells(xlCellTypeVisible)
OUPS Vous aurez compris que la colonne W est la colonne 23 et non 22 !!
"milloche" a écrit dans le message de news: %
Bonjour
Cette macro obtenue ici me permet de récupérer la valeur U de la première ligne visible du résultat d'un filtre pour la recopier en U1.(colonne 21)
Je voudrais en plus récupérer la valeur W de la dernière ligne visible du résultat du filtre et la reporter en W1. (colonne 22). Le filtre commence en ligne 3, les 1 et 2 étant gelée et resrvées aux titres et autres boutons.
Ce ne doit pas être bien compliqué mais je n'y parviens pas.
Merci.
Sub AutoChangeU1()
Dim rng As Range
ligneFreezepanes = 3
d = Range("A" & Cells.Rows.Count).End(xlUp).Address
'Définir un Range ne contenant que les lignes visibles sous la ligne 2
Set rng = Range("a" & ligneFreezepanes & ":" & d).SpecialCells(xlCellTypeVisible)
ligne = rng.Cells(1, 1).Row
colonne = 21
Premiere = "R" & ligne & "C" & colonne
Application.Goto Reference:=Premiere, Scroll:úlse
Range("u1") = ActiveCell.Value
End Sub
isabelle
bonjour Milloche,
d = Range("A" & Cells.Rows.Count).End(xlUp).Address valeur = Range("W" & Range(d).Row)
isabelle
milloche a écrit :
OUPS Vous aurez compris que la colonne W est la colonne 23 et non 22 !!
"milloche" a écrit dans le message de news: %
Bonjour
Cette macro obtenue ici me permet de récupérer la valeur U de la première ligne visible du résultat d'un filtre pour la recopier en U1.(colonne 21)
Je voudrais en plus récupérer la valeur W de la dernière ligne visible du résultat du filtre et la reporter en W1. (colonne 22). Le filtre commence en ligne 3, les 1 et 2 étant gelée et resrvées aux titres et autres boutons.
Ce ne doit pas être bien compliqué mais je n'y parviens pas.
Merci.
Sub AutoChangeU1()
Dim rng As Range
ligneFreezepanes = 3
d = Range("A" & Cells.Rows.Count).End(xlUp).Address
'Définir un Range ne contenant que les lignes visibles sous la ligne 2
Set rng = Range("a" & ligneFreezepanes & ":" & d).SpecialCells(xlCellTypeVisible)
ligne = rng.Cells(1, 1).Row
colonne = 21
Premiere = "R" & ligne & "C" & colonne
Application.Goto Reference:=Premiere, Scroll:úlse
Range("u1") = ActiveCell.Value
End Sub
bonjour Milloche,
d = Range("A" & Cells.Rows.Count).End(xlUp).Address
valeur = Range("W" & Range(d).Row)
isabelle
milloche a écrit :
OUPS
Vous aurez compris que la colonne W est la colonne 23 et non 22 !!
"milloche" <mille.jean-marieZZZ@neuf.fr> a écrit dans le message de news:
%23nH8aAIXKHA.3876@TK2MSFTNGP05.phx.gbl...
Bonjour
Cette macro obtenue ici me permet de récupérer la valeur U de la première
ligne visible du résultat d'un filtre pour la recopier en U1.(colonne 21)
Je voudrais en plus récupérer la valeur W de la dernière ligne visible du
résultat du filtre et la reporter en W1. (colonne 22). Le filtre commence
en ligne 3, les 1 et 2 étant gelée et resrvées aux titres et autres
boutons.
Ce ne doit pas être bien compliqué mais je n'y parviens pas.
Merci.
Sub AutoChangeU1()
Dim rng As Range
ligneFreezepanes = 3
d = Range("A" & Cells.Rows.Count).End(xlUp).Address
'Définir un Range ne contenant que les lignes visibles sous la ligne 2
Set rng = Range("a" & ligneFreezepanes & ":" &
d).SpecialCells(xlCellTypeVisible)
d = Range("A" & Cells.Rows.Count).End(xlUp).Address valeur = Range("W" & Range(d).Row)
isabelle
milloche a écrit :
OUPS Vous aurez compris que la colonne W est la colonne 23 et non 22 !!
"milloche" a écrit dans le message de news: %
Bonjour
Cette macro obtenue ici me permet de récupérer la valeur U de la première ligne visible du résultat d'un filtre pour la recopier en U1.(colonne 21)
Je voudrais en plus récupérer la valeur W de la dernière ligne visible du résultat du filtre et la reporter en W1. (colonne 22). Le filtre commence en ligne 3, les 1 et 2 étant gelée et resrvées aux titres et autres boutons.
Ce ne doit pas être bien compliqué mais je n'y parviens pas.
Merci.
Sub AutoChangeU1()
Dim rng As Range
ligneFreezepanes = 3
d = Range("A" & Cells.Rows.Count).End(xlUp).Address
'Définir un Range ne contenant que les lignes visibles sous la ligne 2
Set rng = Range("a" & ligneFreezepanes & ":" & d).SpecialCells(xlCellTypeVisible)
ligne = rng.Cells(1, 1).Row
colonne = 21
Premiere = "R" & ligne & "C" & colonne
Application.Goto Reference:=Premiere, Scroll:úlse
Range("u1") = ActiveCell.Value
End Sub
FFO
Salut à toi
J'allais te le signaler !!!!
W est en colonne 23
Voici ton code modifié pour récupérer la nouvelle valeur de W derni ère ligne visible en W1
Dim rng As Range
ligneFreezepanes = 3
d = Range("A" & Cells.Rows.Count).End(xlUp).Address
'Définir un Range ne contenant que les lignes visibles sous la ligne 2