selection plage

[christian]

bonjour à tous,

depuis la cellule active , j'amerais étendre la selection jusqu'au mot "fin" qui se trouve quelque part dans la colonne A


merci d'avance de votre aide et joyeux noel

 

[Hervé]

Bonjour

une proposition :

Public Sub vev()
Dim trouvéfin As Range
Set trouvéfin = Range("a1:a" & Range("a65000").End(xlUp).Row).Find("Fin", LookIn:=xlValues)
If trouvéfin Is Nothing Then MsgBox "Aucune cellule trouvée": Exit Sub
Range(ActiveCell.Address, trouvéfin.Address).Select
End Sub

Salut
Hervé

 

[christian]

Bonjour

la macro marche très bien et cà m'amène à poser 2 autres questions:

1° depuis la cellule active , j'amerais étendre la sélection jusqu'au mot "fin" qui se trouve quelque part dans la colonne A mais uniquement vers le bas

2° depuis la cellule active , j'amerais sélectionner la plage (colonne A à F) comprise entre le mot"x" et le mot "fin" qui se trouve dans la colonne A

salutations
christian