sélection de cellules après tri alphabétique

[kinel]

bonjour aux lecteurs

après avoir fait une recherche alphabétique par ce code :

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

je voudrais sélectionner les 4 premières cellules de la ligne sélectionnée
est il possible de sélectionner des cellules sans spécifier le numéro de ligne ?

merci de vos réponses

Kinel

 

[youky(BJ)]

Re : sélection de cellules après tri alphabétique

Bonjour kinel,
Rajoute seulement cette ligne à la suite de la macro
Range(ActiveCell, ActiveCell.Offset(0, 3)).Select

 

[kjin]

Re : sélection de cellules après tri alphabétique

Bonjour,
Pas sûr d'avoir bien compris

Sub AA()
Dim C As Range
'If Intersect(ActiveCell, Range("A:A")) Is Nothing Then Range("A5").Select
Set C = Range("A:A").Find(What:="A*", After:=Range("A5"), _
        LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=True)
If Not C Is Nothing Then Range(Cells(C.Row, 1), Cells(C.Row, 4)).Select
End Sub

A+
kjin

 

[kinel]

Re : sélection de cellules après tri alphabétique

bonjour

merci à tous pour ces réponses
en fait j'avais aussi posé une autre question concernant ce code qui avait la fâcheuse manie de bloquer quand l'élément recherché n'existait pas.

mes 2 problèmes semblent résolus par la proposition de jeanpierre qui je pense rejoint la votre :

If Not C Is Nothing Then Range(C, C.Offset(0, 4)).Select


merci à tous
Kinel