Discussion :

[flamel]

Bonjour,

Voici un code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub copies()
    Sheets("Moniteur").Select
    Range("documentA1").Select
    Selection.Range(Cells(2, 1), Cells(9, 3)).Select
    Selection.Copy
    Sheets("Feuil1").Select
    Sheets("Feuil1").Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

La copie ne prend que la colonne 1 et ignore les colonnes 2 et 3.
J'ai souvent des difficulltés avec Cells et Range.
Où est mon erreur ?

Merci si vous pouvez m'aider.

[flamel]

Problème résolu.
Les cellules étaient groupées. Le piège.

[casefayere]

Bonsoir,
Piège ou pas piège, apprends à éviter les "select" inutiles. Je pense que ton code peut être très raccourci.

Bonne soirée