range et cells, encore des problèmes
Bonjour,
Voici un code :
Code:
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.
