Selection entre deux texte

[clood]

Bonjour à tous!

J'aurais besoin de vos lumières.

J'aimerai pouvoir sélectionner une partie de feuille en fonction de certaine case.

Voici un exemple en pièce jointe.

J'aimerai pouvoir sélectionner automatiquement le texte se trouvant entre partie 1 et partie 2 (A6 et E20) sachant que le texte n'a pas le même nombre de ligne et que les mots Partie 1 et 2 change aussi de ligne selon le fichier excel. En revanche, partie 1 et 2 sont toujours sur la colonne A.

J'avais pensé partir d'une macro comme ça mais je pense qu'il y a beaucoup plus simple.

début = Cells.Find(What:="Partie 1", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

fin = Cells.Find(What:="Partie 2", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate


Cells.Range(début:fin).Select


Merci pour votre précieuse aide.

 

[kjin]

Re : Selection entre deux texte

Bonjour,
Peut-être comme ça

Sub SelPlage()
Set Debut = Columns(1).Find(What:="Partie 1")
Set Fin = Columns(1).Find(What:="Partie 2")
If Not Debut Is Nothing And Not Fin Is Nothing Then
Range(Cells(Debut.Row + 1, 1), Cells(Fin.Row - 1, 5)).Select
End If
End Sub

A+
kjin

 

[clood]

Re : Selection entre deux texte

Merci à kjin et au forum. C'est exactement ce que je voulais.
Grâce à vous, j'avance petit à petit sur excel et vba.