Sélection selon valeur d'une cellule

Bonjour à tous,

Je souhaiterai sélectionner une plage de cellules en colonne C selon valeur de la colonne B. Tant que la valeur dans la colonne B est égal à APP alors je souhaite sélectionner l'ensemble des cellules de la colonne C.

j'ai trouvé ce bout de code :

For i = 1 To 150
If Range("B2:B100") Like "APP" Then
Range("C" & i).Select
End If
Next i

Mais il ne me sélectionne que la dernière cellule contenant le mot APP. je voulais sélectionner de la première apparition du mot jusqu'a la dernière.

Je vous remercie par avance.

Bonjour,

Un essai ...

Sub SelectPlage()
Dim i As Integer, quel As Integer

    For i = 2 To 150
        If Range("B" & i) Like "APP" Then quel = i
    Next i
    Range("C2:C" & quel).Select
End Sub

ric

Bonjour,

Merci pour votre réponse, ça fonctionne bien.
Cependant je ne veux pas forcément commencer ma sélection à partir de C2. Parfois la première fois où je troue le mot APP est au bout de la 10ème ligne (donc C10, cela peut varier) et là le code ne me sélectionne plus ce que je souhaite, car il me sélectionne également les premières lignes où le mot n'est pas APP mais un autre mot...

A priori j'ai réussi à compléter le code et ça marche ! Merci :)

Sub trouver()

Dim i As Integer, quel As Integer

Dim trouve, cherche As Range

Dim PremièreApparition As Single

Sheets("Synthèse").Activate

Set cherche = Sheets("Synthèse").Range("B2:B150")

Set trouve = cherche.Cells.Find(what:="APP", LookIn:=xlValues, searchdirection:=xlNext)

PremièreApparition = trouve.Row

For i = 2 To 150

If Range("B" & i) Like "APP" Then quel = i

Next i

Range("C" & PremièreApparition & ":D" & quel).Select

End Sub