Selectionner un groupe de cellules par critère

Bonsoir

je suis un bloqué vers la fin de mon code , sur ma colonne K j'ai un rangement par ordre alphabetique de plusieurs mots

et mon bout de code est censé selectionné toute la plage correspondant à un critère qui est par exemple selectionner tout les mots

commancant par la lettre A ( en sachant que les mots sont deja rangé en ordre alphabetique )

j'ai commencé par :

Sub GTY()
Dim cell As Range

    For Each cell In Range("k1:k20")
        If Left$(cell.Value, 1) = "A" Then '.. ici je voudrais placer l'instruction de sélection de la plage de mots commençant par la lettreA
         Next
End Sub

Auriez vous une idée sur la facon de proceder ?

Merci à vous .

Bonsoir,

une proposition

Sub test()
dim r as range
dim c as range
Set r = Nothing
For Each c In Range("K1:K20")
If Left(c, 1) = "a" Then
If r Is Nothing Then Set r = c Else Set r = Union(r, c)
End If
Next
r.Select
End Sub

Merci h2so4 , j'aurai pas mieux fait , cependant en faisant tourner ton code , il est apparu une anomalie à la ligne

r.Select

avec l'info " variable objet ou variable de bloc with non definie "

Bonjour,

tu reçois ce message parce qu'aucune cellule ne correspond au critère, le code ci-dessous ne donnera pas de message d'erreur. j'ai mis en test devant r.select et j'ai changé ="a" par ="A"

Sub test()
Set r = Nothing
For Each c In Range("A1:A100")
If Left(c, 1) = "A" Then
If r Is Nothing Then Set r = c Else Set r = Union(r, c)
End If
Next
If r Is Nothing Then Else r.Select
End Sub

effectivement je travail sur la colonne ci dessous et rien ne se passe , en theorie la plage allant de AB à AH aurait du etre selectionnée

AB

AC

AD

AE

AF

AG

AH

AJ

AK

BA

BC

BD

BE

BD

BD

CA

CB

CD

CE

DA

DB

je voulais dire de AB à AK

c'est bon finalement je viens de m'apercevoir du hic ...dans ton exemple tu utilisait la plage a1:a100 alors que la mienne va de k1à k20

merci à toi pour cette solution

Bonsoir

Essaye

Option Compare Text
Sub test()
Dim r As Range
Dim c As Range
Set r = Nothing
For Each c In Range("K1:K20")
If Left(c, 1) = "a" Then
If r Is Nothing Then Set r = c Else Set r = Union(r, c)
End If
Next
r.Select
End Sub

Amicalement

Nad