Discussion :

[Maxxim]

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 :

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

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

[tomy7]

bonjour pour la cellule selectionner la cellule active c est:

Code :

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

activecell.select

le reste je sais pas pr le moment