Comment selectionner une ou plusieurs lignes entieres jusqu'à trouver une valeur

[nychko]

Bonjour,
je souhaiterais selectionner à partir de la premiere ligne toutes les autres lignes jusqu'à trouver la valeur "sous-total" figurant dans une cellule de la colonne A. puis faire un copier de ces lignes
Je vous remercie par avance.

 

[Hervé]

Bonjour

essaye ceci :

Public Sub nychko()
dim c as range
For Each c In Range("a1:a" & Range("a5000").End(xlUp).Row)
If c.Value Like "sous-total" Then
Range("a1:a" & c.Offset(-1, 0).Row).EntireRow.Copy
End If
Next c
End Sub

si tu veux la ligne sous-totaux dans ta selection :

Range("a1:a" & c.row).EntireRow.Copy

salut
Hervé

 

[nychko]

Merci beaucoup pour ta rapidité
bonne journée