Copie de colonne interfeuilles

Francis · 17 Avril 2007

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 · 17 Avril 2007

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)

Code:

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 · 17 Avril 2007

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

Copie de colonne interfeuilles

Francis

Guest

Kotov

XLDnaute Impliqué

Francis

Guest

Discussions similaires

Copie de colonne interfeuilles

Francis

Guest

Kotov

XLDnaute Impliqué

Francis

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency