Faire un offset(1,0) dans un tableau filtré ??

Salut !

ActiveCell.EntireColumn.Find("*", ActiveCell).Select

Cordialement

"Myriam" <NoSpam_la.bande.a.basil@Netcourrier.com> a écrit dans le message
de news:ONYSP8DEFHA.3728@TK2MSFTNGP14.phx.gbl...

Bonjour à toutes et tous !!

Désolé mais je sais que la réponse est déjà passée, mais je la trouve pas
!!

Dans un tableau filtré (toutes les ligne ne sont pas visible), j'ai besoin
de faire un :

ActiveCell.Offset(1,0).select

Or celui-ci descend sur la ligne suivante 'invisible ' !!

Comment se déplacer de ligne visible en ligne visible ???

Merci !

Myriam wrote:

Bonjour à toutes et tous !!

Désolé mais je sais que la réponse est déjà passée, mais je la trouve pas !!

Dans un tableau filtré (toutes les ligne ne sont pas visible), j'ai besoin
de faire un :

ActiveCell.Offset(1,0).select

Or celui-ci descend sur la ligne suivante 'invisible ' !!

Comment se déplacer de ligne visible en ligne visible ???

Merci !


bonjour,

with ActiveCell
i=0
do
i=i+1
until .offset(i,1).visible=true

.offset(i,1).select
end with


à part cela, le code est toujours plus rapide quand on ne sélectionne
pas les cellules.

ici, au lieu de travailler sur la cellule active et la sélection, voici
un exemple de ce qu'on peut écrire:

au départ:
set maCellule=selection
puis ton traitement
puis
with maCellule
i=0
do
i=i+1
until .offset(i,1).visible=true

set maCellule =.offset(i,1)
end with
boucler sur ton traitement

Cordialement

Bourby

Bonjour Myriam,

Quelque chose de simple :

'--------------------------
Sub CelluleSuivante()

Dim B As Long
B = ActiveCell.Row
Do Until Rows(B + 1).EntireRow.Hidden = False
B = B + 1
Loop
Cells(B + 1, 1).Select

End Sub
'--------------------------

Salutations!



"Myriam" <NoSpam_la.bande.a.basil@Netcourrier.com> a écrit dans le message de news:
ONYSP8DEFHA.3728@TK2MSFTNGP14.phx.gbl...
Bonjour à toutes et tous !!

Désolé mais je sais que la réponse est déjà passée, mais je la trouve pas !!

Dans un tableau filtré (toutes les ligne ne sont pas visible), j'ai besoin
de faire un :

ActiveCell.Offset(1,0).select

Or celui-ci descend sur la ligne suivante 'invisible ' !!

Comment se déplacer de ligne visible en ligne visible ???

Merci !