Bonjour,

Je suis débutant avec vba (je teste depuis hier soir). Voilà ce que je veux faire :
- Dans excel, j'ai une feuille par élève regroupant des calculs.
- Sur la feuille de chaque élève je veux copier les valeurs (et non les formules) de 3 colonnes.
- Les infos copiées, je veux les coller sur 1 seule feuille permettant de tout centraliser.
-La difficulté est que je veux coller le premier élève sur les 3 premières colonnes, puis le second sur les colonne 5 6 et 7 (une colonne d'espace entre chaque élève) et ainsi de suite.

Voici le code que j'ai écrit mais qui ne fonctionne pas car aucune information n'est collée :

Sub CopierColler()
Dim i, x, y, z As Integer
i = 3
x = 1
y = 2
z = 3
Worksheets(i).Select
Columns(34).Formula = Columns(34).Value
Columns(35).Formula = Columns(35).Value
Columns(36).Formula = Columns(36).Value
Worksheets(i).Select
Columns(34).Copy
With Sheets("parents T1")
Columns(x).PasteSpecial xlPasteAll
End With
Worksheets(i).Select
Columns(35).Copy
With Sheets("parents T1")
Columns(z).PasteSpecial xlPasteAll
End With
Worksheets(i).Select
Columns(36).Copy
With Sheets("parents T1")
Columns(z).PasteSpecial xlPasteAll
End With
i = i + 1
x = x + 3
y = y + 3
z = z + 3
If i = 33 Then Exit Sub
End Sub

Pouvez me donner un coup de main ?

Merci d'avance