Faire une selection de lignes avec trois conditions

[jeep54]

Bonjour à tous,

Je voudrais selectionner une zone dans excel a partir d'une ligne commençant par le mot1, jusqu'à la ligne commençant par le mot2.

J'ai réussi a faire cela mais je voudrais rajouter que si le mot 1 n'existe pas, la macro doit prendre le mot1 bis.

Dans mon exemple, je selectionne la ligne du mot ted jusqu'a la ligne du mot sam.

Mais j'aimerais que si le mot ted n'existe pas, la selection s'étende de la ligne du mot bob à la ligne du mot sam.

Un grand merci pour vos reponses.

Cordialement,

 

[Softmama]

Re : Faire une selection de lignes avec trois conditions

bonjour jeep54,

bienvenu sur le forum.
une proposition ainsi :

Sub selection1()
Sheets("feuil1").Select
Dim cel1 As Range
Dim cel2 As Range
Set cel1 = Cells.Find(What:="ted", LookIn:=xlFormulas, LookAt:=xlWhole)
If cel1 Is Nothing Then Set cel1 = Cells.Find(What:="bob", LookIn:=xlFormulas, LookAt:=xlWhole)
Set cel2 = Cells.Find(What:="sam", LookIn:=xlFormulas, LookAt:=xlWhole)
Range(cel1, cel2).Select
End Sub

 

[Softmama]

Re : Faire une selection de lignes avec trois conditions

Re,

ou en une ligne :

Sub selection2()
  Range(Cells(IIf(IsError(Application.Match("ted", Range("A:A"), 0)), Application.Match("bob", Range("A:A"), 0), Application.Match("ted", Range("A:A"), 0)), 1), Cells(Application.Match("sam", Range("A:A"), 0), 1)).Select
End Sub

 

[jeep54]

Re : Faire une selection de lignes avec trois conditions

Un tout grand merci Softmama.

Pour selectionner les lignes entières, je vais utiliser rows.

A bientôt sur le forum.

Cordialement,