code tri alphabétique

[kinel]

bonjour à tous

j'ai une série de codes qui me permet de faire une recherche alphabétique dans mon classeur
voici le code du A

Sub AA()

If Intersect(ActiveCell, Range("A:A")) Is Nothing Then Range("A5").Select
Range("A:A").Find(What:="A*", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=True).Select

End Sub

ça fonctionne très bien sauf quand le A n'existe pas dans le tableau
existe t il un moyen d'éviter le plantage quand la lettre recherchée n'existe pas ?

Merci de vos réponses
Kinel

 

[pierrejean]

Re : code tri alphabétique

bonjour kinel

Sub AA()
 
If Intersect(ActiveCell, Range("A:A")) Is Nothing Then Range("A5").Select
 
set c=Range("A:A").Find(What:="A*", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=True)
if not c is nothing then Range(C, C.Offset(0, 3)).Select
 
End Sub

 

[kinel]

Re : code tri alphabétique

super

merci JP pour la double réponse

Kinel