Copie de colonne interfeuilles

[Francis]

Bonsoir le forum
Je désire copier toutes les colonnes « M » et le nom des onglets des feuilles de mon classeur dans la feuille « cumul ».
Seuls les noms des onglets sont copiés.
Quelqu’un peut-il me mettre sur la voie ?
Merci d’avance
Francis

For Each sh In ActiveWorkbook.Sheets
If sh.Name <> "Cumul" Then
sh.Range("m:m").Copy
With Sheets("Cumul")
.Cells(1, 1 + sh.Index) = sh.Name
.Cells(3, 1 + sh.Index).PasteSpecial (xlPasteValues)
End With
End If
Next

 

[Kotov]

Re : Copie de colonne interfeuilles

Bonsoir Francis, le forum,

Essaies le code suivant. A priori, le principe fonctionne

L'origine de tes soucis :
1. après "If sh.Name <> "Cumul" Then" tu n'activais pas la nouvelle page et copiais toujours la même colonne
2. ta zone copiée était trop grande pour la zone de réception : la colonne M entière (soit de la ligne 1 à la ligne 65536) dans une colonne réduite de 3 lignes (ligne 3 à la ligne 65536)

Sub ColM()
Dim sh As Worksheet

For Each sh In ActiveWorkbook.Sheets
   [color=blue] If sh.Name <> "Cumul" Then
   [B] sh.Activate[/B][/color]
   [color=red] Range(Cells([b]3[/b], 13), Cells(65536, 13)).Copy [/color]

    With Sheets("Cumul")
       [color=red] .Cells([b]3[/b], 1 + sh.Index).PasteSpecial (xlPasteValues)[/color]
        Application.CutCopyMode = False
        .Cells(1, 1 + sh.Index) = sh.Name
    End With

    End If
Next

Set sh = Nothing
End Sub

Bonne soirée
Kotov

 

[Francis]

Re : Copie de colonne interfeuilles

Bonsoir Kotov et le forum

Merci pour ta réponse et tes explications;ça marche nickel
longue vie au forum
Francis