Discussion :

[smedini]

Bonjour,

Comme le dit le sujet, je souhaite copier un range d'une feuille à une autre, mais en supprimant la feuille source avant de mettre les données sur la feuille destination.

J'ai essayé ceci:

Code :

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

1
2
3
4
5
 
Dim data as Variant
set data = feuille1.range("A1:B2")
feuille1.delete
feuille2.range("A1:B2") = data.value

Mais apparement l'objet variant n'est qu'une référence vers les données de la feuille.

Donc ma question est de savoir s'il est possible de "cloner" les données afin d'être disponibles après la suppression de la feuille source.

Merci.

[le_dilem]

Code :

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

1
2
3
4
5
6
7
8
Sub Test()
Dim Data As Variant
Sheets("feuil1").Select
Range("a1:b2").Select
    Data = Range("a1:b2")
    ActiveWindow.SelectedSheets.Delete
    Sheets("feuil2").Select
      Range("a1:b2") = Data