Discussion :

[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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
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

[aalex_38]

Bonjour,

Pour trouver la derniere ligne renseignee :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

derlig = Cells(65536, 1).End(xlUp).Row + 1

et un exemple pour determiner une plage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim T As Integer, S As Integer, x As Long, y As Long, Maplage As Range
T = 2 ' Colonne 1
S = 5 ' Colonne2
x = 4 ' Ligne1
y = 10 ' Ligne2
Set Maplage = Range(Cells(x, T), Cells(y, S))
 
MsgBox Maplage.Address
 
Set Maplage = Nothing

Edit: j'ai mis 65536, mais Rows.count est préférable, notamment avec excel 2007 :_)

[Gorfael]

Salut charlou74 et le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Workbooks(3).Activate
Set rngTrouve = ActiveSheet.Columns(2).Cells.Find(heure, lookat:=xlPart)
range(rngTrouve, cells(Rows.count,rngTrouve.column).end(xlup)).Select

Les sélections ne sont pas nécessaires pour faire une copie.
A+

[charlou74]

merci beaucoup de votre aide