Bonjour,

J'ai un problème que j'ai isolé mais que je ne comprends pas.
Je veux faire un copier-coller de cellules d'une feuille à l'autre. Pas de problème jusque là sauf que je voudrais vider la feuille destinataire avant de coller les cellules dedans.
Voici le code que j'utilise :
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
16
17
18
19
20
21
Public Sub copyCells()
 
    Dim wsSource As Worksheet
    Set wsSource = Worksheets("feuille_source")
 
    Dim sourceRange As Range
    Set sourceRange = wsSource.Range("A1:OG14")
    sourceRange.Copy
 
    Dim wsDest As Worksheet
    Set wsDest = Worksheets("feuille_dest")
 
    'sans la ligne suivante, pas de soucis, mais la commande PasteSpecial échoue si je la décommente ?!!
    'wsDest.UsedRange.Delete
 
    Dim destRange As Range
    Set destRange = wsDest.Range("A1:OG14")
    destRange.PasteSpecial Paste:=xlPasteAll
    destRange.PasteSpecial Paste:=xlPasteColumnWidths
 
End Sub
Comme indiqué dans le code, si je supprime les cellules de la feuille avant de coller dedans, la commande PasteSpecial échoue...
Pouvez-vous me dire pourquoi et comment réaliser ça d'une manière qui ne fasse pas planter le PasteSpecial ?

Merci d'avance