selectionner une plage selon une address de cellule

[charlou74]

bonjour,
après recherche je n'ai pas réussi à résoudre ce problème:

tout d'abord je recherche une cellule spécifique avec la fonction find puis je la selectionne (rngTrouve). cela fonctionne très bien !
Ensuite je souhaiterais selectionner toutes les cellules en dessous de "rngTrouve" jusqu'à la derniere cellule afin de copier cette plage dans un autre workbook ...

avec mon code ça selectionne une cellule au hasard...

voilà mon code:

Workbooks(3).Activate
Set rngTrouve = ActiveSheet.Columns(2).Cells.Find(heure, lookat:=xlPart)
rngTrouve.Select
Set r1 = Selection.Range(rngTrouve.Address)
MsgBox r1.Address
Set Zone1 = ActiveCell.End(xlDown)
MsgBox Zone1.Address
Set r2 = Selection.Range(Zone1.Address)

Set myMultiAreaRange = Union(r1, r2)
myMultiAreaRange.Select

merci de votre aide

 

[kjin]

Re : selectionner une plage selon une address de cellule

Bonjour et bienvenu
Comme souvent et de plus en plus souvent je conseille un petit tour [thread=32841] ICI [/thread] avant de poster
Un code sorti de son contexte ne veut pas dire grand chose pour le lecteur, a fortiori s'il n'est pas accompagné d'un fichier
En outre tu peux mettre le code entre balises code (bouton # dans le menu) pour en simplifier la lecture
A+
kjin