Discussion :

[profnans]

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

[Invité]

Bonjour,
Si tu donnais un exemple de classeur Excel ça aiderait bien

[profnans]

Je n'arrive pas à mettre en pièce jointe mon fichier

[Invité]

il faut le ziper le forum ne veut pas de xlsm

[Philippe Tulliez]

Bonjour,
Dans cette première partie de code.

Code :

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

1
2
3
4
5
6
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

Alors à moins que la valeur de la variable i ait changé entre temps pourquoi deux Select ?
Et cette ligne
Columns(x).Formula = columns(x).value ???
Peut se traduire par
Columns(x).Value = Columns(x).Value
Et comme, les 3 colonnes sont contiguës et pas insérées dans une boucle, tu peux utiliser les lettres des colonnes en plaçant les bornes inférieures et supérieures comme cet exemple Columns("G:I").Value = Columns("G:I").Value. Attention, c'est un exemple. Je sais que G n'est pas la 34ème colonne.
Première remarque, inutile d'utiliser les Select, Activate, Selection
Il est préférable d'utiliser le bloc With

Code :

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

1
2
3
With Worksheets(i)
.Columns("G:I").Value = .Columns("G:I").Value
End With

Deuxième remarque dans le bloc With End With, il y a lieu d'utiliser le point d'union afinc de ratacher l'objet Columns(x) à l'objet Parent Sheets("parents T1")

Code :

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

1
2
3
With Sheets("parents T1")
.Columns(x).PasteSpecial xlPasteAll
End With

Je me suis arrêté là.

[profnans]

J'ai simplifié le code,

Sub boucle_while()
Dim i, x, y, z As Integer
i = 4
x = 1
y = 2
z = 3
While i <= 6

Worksheets(i).Select
Columns(34).Copy
Sheets("pT1").Select
Columns(x).PasteSpecial xlPasteValues

Worksheets(i).Select
Columns(35).Copy
Sheets("pT1").Select
Columns(y).PasteSpecial xlPasteValues

Worksheets(i).Select
Columns(36).Copy
Sheets("pT1").Select
Columns(z).PasteSpecial xlPasteValues

i = i + 1
x = x + 4
y = y + 4
z = z + 4
Wend
End Sub

Par contre, est-il possible de copier la valeur et le format d'une cellule sans faire columns(x).formula=columns(x).values parce que c'est très long pour l’exécution du code pour 30 feuilles élèves ?

Merci d'avance

[profnans]

Bonjour,
Dans cette première partie de code.

Code :

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

1
2
3
4
5
6
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

Alors à moins que la valeur de la variable i ait changé entre temps pourquoi deux Select ?
Et cette ligne
Columns(x).Formula = columns(x).value ???
Peut se traduire par
Columns(x).Value = Columns(x).Value
Et comme, les 3 colonnes sont contiguës et pas insérées dans une boucle, tu peux utiliser les lettres des colonnes en plaçant les bornes inférieures et supérieures comme cet exemple Columns("G:I").Value = Columns("G:I").Value. Attention, c'est un exemple. Je sais que G n'est pas la 34ème colonne.
Première remarque, inutile d'utiliser les Select, Activate, Selection
Il est préférable d'utiliser le bloc With

Code :

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

1
2
3
With Worksheets(i)
.Columns("G:I").Value = .Columns("G:I").Value
End With

Deuxième remarque dans le bloc With End With, il y a lieu d'utiliser le point d'union afinc de ratacher l'objet Columns(x) à l'objet Parent Sheets("parents T1")

Code :

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

1
2
3
With Sheets("parents T1")
.Columns(x).PasteSpecial xlPasteAll
End With

Je me suis arrêté là.

Merci beaucoup pour le temps passé à répondre ! Je mets du temps à comprendre, je débute. Je vais faire les modifs conseillées

[profnans]

Columns(x).Formula = columns(x).value ???
Peut se traduire par
Columns(x).Value = Columns(x).Value

Si je ne mets pas cette étape, il me colle les formules, du coup je perds toutes les bonnes valeurs