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

kinel · 3 Mars 2009

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) · 3 Mars 2009

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 · 3 Mars 2009

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

Bonjour,
Pas sûr d'avoir bien compris

Code:

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 · 4 Mars 2009

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

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

kinel

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

kinel

XLDnaute Occasionnel

Discussions similaires

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

kinel

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

kinel

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency