Problème de sélection de plage
Bonjour à tous.
Je suis débutant en VBA et ça fait déjà une semaine que je travaille sur un programme que j'ai élaboré grâce à ce forum.
Cependant je suis confronté à un problème;
En effet j'aimerai sélectionner la cellule active et les deux suivantes pour ensuite coller les valeurs dans une seule cellule qui est sur un autre classeur.
Pour plus de clarté je vous met le code que j'ai déjà tapé.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
| Sub Macro()
Workbooks("Classeur source.xls").Activate
Sheets("Feuille de données").Select
Application.ScreenUpdating = False
For t = 2 To 30565
Range("E" & t).Select
Selection.Copy
Range("K" & t).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("M1").Select
ActiveSheet.Paste
Range("L1").Select
ActiveCell = "Petit bout de texte" & Range("M1")
Cells.Find(What:=Range("L1"), After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
'Endroit où j'aimerai sélectionner la cellule active puis les deux situées dessous'
Selection.Copy
Windows("Classeur source.xls").Activate
Range("AE" & t).Select
ActiveSheet.Paste
Next t
Application.ScreenUpdating = True
End Sub |
J'ai essayé moults commandes mais sans aucun résultat.
Merci d'avance pour vos réponses
