Avant dernière ligne visible

[Chris401]

Bonsoir à tous

Je récupère la dernière ligne visible d'un tableau filtré avec ce code

 ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

Mais je cherche à récupérer l'avant dernière ligne visible afin de copier certaines colonnes

Exemple dans fichier joint

Merci de votre aide
Cordialement
Chris

 

[gosselien]

Re : Avant dernière ligne visible

Bonjour,

avec un filtre élaboré peut être ?

P.

 

[Chris401]

Re : Avant dernière ligne visible

Bonsoir gosselien

Tu verrais ça comment exactement ?

Cordialement
Chris

 

[gosselien]

Re : Avant dernière ligne visible

Hmmm hmmm pas certain que ça soit ce que tu demandes


Je dirais plutot que j'évite la dernière ligne (vide) pour ton code 332 tel que filtré à l'ouverture du fichier (pas de vba)

P.

 

[Chris401]

Re : Avant dernière ligne visible

Re

Merci de ta proposition mais effectivement ce n'est pas ce que j'attends.
Il faut impérativement travailler dans le tableau actuel.

Je poste un autre fichier qui explique peut-être mieux mon attente.

Merci encore de ta participation

Chris

 

[CISCO]

Re : Avant dernière ligne visible

Bonsoir

Peut être avec le code suivant

Sub test()
Dim avtdernlig As Integer
Dim dernlig As Integer
Dim t As Boolean

dernlig = Range("A1").End(xlDown).Row
avtdernlig = dernlig
t = False

For i = dernlig To 1 Step -1
    If Rows(i).Hidden = True Then
    t = True
    ElseIf t Then
    avtdernlig = i
    i = 1
    End If
Next i

ActiveSheet.Range("F" & avtdernlig & ":H" & avtdernlig).Copy Range("F" & dernlig & ":H" & dernlig)

End Sub

@ plus

 

[Chris401]

Re : Avant dernière ligne visible

Bonsoir Cisco

Ton code fonctionne parfaitement bien.
Merci beaucoup et bonne nuit.

Cordialement
Chris

 

[CISCO]

Re : Avant dernière ligne visible

Bonsoir

Bonsoir Cisco

Ton code fonctionne parfaitement bien.
Merci beaucoup et bonne nuit.

Cordialement
Chris

Cela ne fonctionne pas, il me semble, si plusieurs lignes ne sont pas masquées tout à la fin.

@ plus

 

[Chris401]

Re : Avant dernière ligne visible

Re

Tu as tout à fait raison.
C'est une configuration rare, mais elle peut se produire.

Il faudrait trouver l'avant dernière ligne visible par rapport à la ligne active.

Edit : à priori, il suffit que :

dernlig = ActiveCell.Row

Chris

 

[CISCO]

Re : Avant dernière ligne visible

Bonjour

J'ai un peu simplifié le code précédent, sur le post #6, valable que s'il ni a qu'une ligne visible en bas du tableau.

S'il y a plusieurs lignes visibles à la fin du tableau, ta proposition dernlig = ActiveCell.Row ne fonctionne que si on a sélectionné une des cellules de la dernière ligne, là où on veut faire le collage !!

Le code suivant semble fonctionner, avec deux variantes (Cf. commentaires dans le code)

Sub test()
Dim avtdernlig As Integer
Dim dernlig As Integer
Dim t As Boolean

dernlig = Range("A1").End(xlDown).Row

t = False
For i = dernlig To 1 Step -1
    
    'supprimer la ligne de code ci-dessous si on veut coller sur la dernière ligne visible du tableau
    'la laisser tel que, si on veut coller sur la première ligne visible en dessous du dernier groupe de lignes masquées
    If t = False Then dernlig = i
    If Rows(i).Hidden = True Then
    t = True
    ElseIf t Then
    avtdernlig = i
  
   'supprimer la ligne de code ci-dessous si on veut coller sur la dernière ligne visible du tableau
   'la laisser tel que, si on veut coller sur la première ligne visible en dessous du dernier groupe de lignes masquées
    dernlig = dernlig + 1
    i = 1
    End If
    
Next i

ActiveSheet.Range("F" & avtdernlig & ":H" & avtdernlig).Copy Range("F" & dernlig & ":H" & dernlig)
End Sub

@ plus

 

[mapomme]

Re : Avant dernière ligne visible

Bonjour à tous,

Juste pour le fun, un essai dans le fichier joint (double-cliquez sur n'importe quelle cellule de la dernière ligne visible)

 

[Chris401]

Re : Avant dernière ligne visible

Bonjour CISCO

S'il y a plusieurs lignes visibles à la fin du tableau, ta proposition dernlig = ActiveCell.Row ne fonctionne que si on a sélectionné une des cellules de la dernière ligne, là où on veut faire le collage !!

C'est le cas puisque je filtre sur un double click dans la cellule B (cf le fichier du post #5)
J'ai testé ton dernier code et il me convient parfaitement

mapomme : merci de ton aide ; ton code fonctionne s'il n'y a pas d'autre lignes sous la ligne concernée.

Bonne journée à tous
Chris