Filtre auto > Dernière cellule visible > VBA

Salut,

rajoute à ton code un truc du style :

Selection.SpecialCells(xlCellTypeVisible).Select

Ca marche ?

CAP2

Non

Selection.SpecialCells(xlCellTypeVisible).Address

me renvoie

$A$2:$L$2,$A$14:$L$14,$A$18:$L$18,$A$21:$L$21,$A$24:$L$24,$A$29:$L$29,$A$31:
$L$31,$A$35:$L$37,$A$41:$L$41,$A$46:$L$47,$A$50:$L$50,$A$52:$L$52,$A$55:$L$5
5,$A$58:$L$58,$A$60:$L$60,$A$64:$L$64,$A$68:$L$68,$A$71:$L$71,$A$74:$L$74,$A
$77:$L$77,$A$79:$L$79

La dernière cellule visible étant L1357

une autre idée ???

PHILIPPE


"CAP2" <CAP2@azerty.net> a écrit dans le message de
news:eno$gMz5EHA.828@TK2MSFTNGP14.phx.gbl...

Salut,

rajoute à ton code un truc du style :

Selection.SpecialCells(xlCellTypeVisible).Select

Ca marche ?

CAP2

J'essaie d'atteindre la dernière Ligne visible d'une table en mode filtre
auto.

Sub zzzz()
Set plg = Range("A1", Cells(Cells.Find("*", , , , 2, 2).Row, Cells.Find("*", , ,
, 1, 2).Column))
MsgBox plg(plg.Count).Address
End Sub

PS : Je te déconseille fortement d'utiliser la méthode "SpecialCells" avec le
type "xlCellTypeLastCell"
Elle réserve bien des surprises car elle considère comme non vide les cellules
formatées autrement que par défaut et mémorise les précédentes
saisies/formatages mêmes s'ils ont été supprimés

Pour le fun :
Sub zzz2()
x StrReverse(Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Address)
y = """" & x & """"
MsgBox StrReverse(Left(x, Evaluate("find(""$""," & y & ",find(""$""," & y &
")+1)")))
End Sub

AV

Salut,

c'est normal puisque SpecialCells(xlCellTypeVisible) renvoie la plage des
cellules visibles. Il faut donc que tu continues avec :

Selection.SpecialCells(xlCellTypeLastCell).Address

à stocker dans une variable ou à afficher dans une MsgBox ou autre, pour
obtenir ton adresse de dernière cellule visible...

C'est mieux ?

CAP2

Salut Alain,

merci pour la remarque, j'en prends bonne note ;o))

CAP2

Génial,

Merci AV ( et presque AV César :-))))

Mais ça necessite quelques explications ????

La syntaxe de find est
expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection,
MatchCase, MatchByte, SearchFormat)

Mais

cells.find("*",,,,2,2) .row , qui retourne la ligne de la dernière cellule
non vide, je vois pas bine comment ça fonctionne. Si tu peux expliquer, ça
m'évitera de copier bêtement.

Je pense que je comprendrais le

cells.find("*",,,,2,2) .Column :-))))

Merci d'avance

Philippe


"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de
news:uw2gLXz5EHA.924@TK2MSFTNGP14.phx.gbl...

J'essaie d'atteindre la dernière Ligne visible d'une table en mode
filtre

auto.

Sub zzzz()
Set plg = Range("A1", Cells(Cells.Find("*", , , , 2, 2).Row,
Cells.Find("*", , ,

, 1, 2).Column))
MsgBox plg(plg.Count).Address
End Sub

PS : Je te déconseille fortement d'utiliser la méthode "SpecialCells" avec
le

type "xlCellTypeLastCell"
Elle réserve bien des surprises car elle considère comme non vide les
cellules

formatées autrement que par défaut et mémorise les précédentes
saisies/formatages mêmes s'ils ont été supprimés

Pour le fun :
Sub zzz2()
x >
StrReverse(Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Address

)

y = """" & x & """"
MsgBox StrReverse(Left(x, Evaluate("find(""$""," & y & ",find(""$""," & y
&

")+1)")))
End Sub

AV

cells.find("*",,,,2,2) .row , qui retourne la ligne de la dernière cellule
non vide, je vois pas bine comment ça fonctionne. Si tu peux expliquer, ça
m'évitera de copier bêtement.

Il s'agit simplement du remplacement d'une constante vba par son index
Exemple avec l'argument "SearchOrder" :
2 choix possibles xlByColumns ou xlByRows
Si tu mets 1 ça signifiera xlByColumns et pour 2 ce sera xlByRows
Etc...

AV