Discussion :

[toutletoutim]

Bonjour

Je sais pas si mon titre est clair mais voilà le détails


Je vais essayer de l'expliquer de manière simple

J'ai une plage de cellule (I26:I42 ) dans plusieurs onglet que je veux copier dans un onglet que l'on va appeler "recap"

Le nombre d'onglet est aléatoire mais le premier onglet a prendre en compte est l'onglet 6 sheets(6)

Ce que je souhaite c'est que de l'onglet sheets(6) à l'onglet X (le dernier) les cellules soient copiées de chaque onglet vers l'onglet "recap"

la plage de l'onglet sheets(6) doit etre copier en E9
la plage de l'onglet suivant doit être copié en F9 etc...


J'avais pensais à ça mais ca marche pas, en même temps je suis plus qu'un débutant

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
Sub copieheuredansrecap() 
' 
Dim i, z 
z = Sheets(Sheets.Count).Select 
i = Sheets(6).Select 
v = i + z 
 
For b = i To v 
 
Sheets(6).Activate 
Range("I26:I42").Select 
Selection.Copy 
Sheets("Recap").Select 
Range("d9").End(xlToRight).Offset(0, 1).Select 
ActiveSheet.Paste Link:=True 
 
Next b 
 
End Sub

merci pour votre aide

[sabzzz]

bonjour toutletoutim,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub copie()
Sheets("Recap").Select
For Each f In Worksheets
If f.Name <> "Recap" Then
a = Sheets("Recap").Range("IV9").End(xlToLeft).Column + 1
Cells(9, a).Select
Sheets(f.Name).Range("I26:I42").Copy
ActiveSheet.Paste Link:=True
End If
Next
End Sub

[toutletoutim]

Ok ca marche merci beaucoup