Discussion :

[tibs1502]

Bonjour,

Je suis nouveau en VBA avec Excel 2003

Voici mon problème, j'arrive à collé une sélection mais celà me supprime ma mise en forme. En regardant sur internet j'ai trouvé le PasteSpecial mais j'ai un message d'erreur.
Pouvez-vous m'éclairez ?

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
With Sheets("Brouillon")
        dl = .Range("A65536").End(xlUp).Row
        Range("A1:B" & dl).Select
        Selection.Cut
        Range("D1").Select
        ActiveSheet.Paste
        Range("C1:E" & dl).Select
        Selection.Cut
    End With
 
    With Worksheets("Mois N_cat3")
        .Activate
        .Range("A1").Select
        ActiveSheet.PasteSpecial Paste:=xlPasteValues
    End With

Erreur définie par l'application ou l'obet

Cordialement

[Daniel.C]

Bonjour,

Tu ne peux pas faire un collage spécial valeurs après un "Cut". Ca ne fonctionne qu'avec "Copy". Essaie le code suivant (non testé) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Plage As Range
With Sheets("Brouillon")
        dl = .Range("A65536").End(xlUp).Row
        .Range("A1:B" & dl).Cut [D1]
        Set Plage = .Range("C1:E" & dl)
    End With
 
    With Worksheets("Mois N_cat3")
        Plage.Copy
        .Range("A1").PasteSpecial Paste:=xlPasteValues
        Plage.Clear
    End With

[tibs1502]

Merci, c'est parfait

Je te remercie pour cette réponse rapide

Bonne journée

Cordialement