Discussion :

[maitrebanjo]

Bonjour le forum,

Je me confronte à un problème qui va vous prendre 8 secondes à résoudre, mais fin de semaine + manque de sommeil = je trouve pas

Je vous explique. J'ai la macro suivante :

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 CopieColle()
Application.ScreenUpdating = False
Dim x As Long, y As Long, z As Long
x = Sheets(13).Range("A" & Rows.Count).End(xlUp).Row
If x > 2 Then
    Sheets(13).Rows("2:" & x).Delete
End If
 
For y = 1 To 12
    x = Sheets(y).Range("A" & Rows.Count).End(xlUp).Row
    Sheets(y).Range("A2:S" & x).Copy
 
    z = Sheets(13).Range("A" & Rows.Count).End(xlUp).Row
    If z < 2 Then
        x = Sheets(13).Range("A" & Rows.Count).End(xlUp).Row + 1
    Else
        x = Sheets(13).Range("A" & Rows.Count).End(xlUp).Row
    End If
 
    If y = 1 Then
    Sheets(13).Range("A" & x).PasteSpecial
    Sheets(13).Range("T" & x) = Sheets(y).Name
    End If
 
    If y >= 2 Then
    Sheets(13).Range("A" & x + 1).PasteSpecial
    Sheets(13).Range("T" & x + 1) = Sheets(y).Name
    End If
Next
End Sub

Celle ci me permet de prendre les valeurs de mes feuilles 1 à 12 et de les coller les unes à la suite des autres dans la feuille 13. Chaque feuille ayant pour nom un mois de l'année.

Ce que je n'arrive pas à faire c'est de faire en sorte que dans la colonne T de la 13e feuille, le nom de la feuille d'où proviens les valeurs se mettent en bout de chaque lignes.
J'ai réussi à le faire sur la première ligne de chaque plage coller avec le code

Code :

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

Sheets(13).Range("T" & x) = Sheets(y).Name

mais pas sur les lignes suivantes. En gros le nom du mois ne "s'étire" pas jusqu'au bas de la plage concerné...

J'en appel donc à votre aide

Un grand merci d'avance pour les personnes qui prendrons le temps de me répondre

[marot_r]

Bonjour,

Avec le code que tu as c'est normal.

Tx c'est une seule cellule et tu ne fais pas une copie mais une assignation de valeur donc Excel ne complète que cette cellule.

Essaye

Code :

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

Sheets(13).Range("T" & x & ":T" x + selection.rows.count -1).value = Sheets(y).Name

Si cela ne marche pas tu peux faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'Là ton code
 
dim zone as range
set zone=Sheets(y).Range("A2:S" & x)
zone.copy
 
'ici ton code aussi
 
zone.PasteSpecial
Sheets(13).Range("T" & x & ":T" x + zone.rows.count -1).value = Sheets(y).Name
set zone=Nothing
 
'Et ce qui reste de ton code ici

A+

[maitrebanjo]

Bonjour Marot_r

désolé pour la réponse tardive (week-end toussa toussa)

Déjà merci pour ton retour. Cependant quand j'essai tes deux codes il m'apparait une fenêtre me disant :
"Erreur de compilation:
Attendu : Séparateur de liste ou )"

Peut être que j'utilise mal ton code

[marot_r]

Bonjour.

Peux-tu poster le code que tu utilises et indiquer sur quelle ligne est signalée l'erreur ?

A+

[maitrebanjo]

bonjour Marot_r
Problème résolu, j'ai oublié de mettre un & dans ma formule

merci beaucoup pour ton aide !

Le problème est résolu