Effacer la sélection copiée d'un coup

M

mikeo

XLDnaute Occasionnel

• 26 Septembre 2007

• #2

Re : Effacer la sélection copiée d'un coup

Bonjour le forum,

Tu ne peux pas utiliser Edition - couper au lieu de Edition-copier dès le départ ? Ou alors, ai-je mai compris ?

A+

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 26 Septembre 2007

• #3

Re : Effacer la sélection copiée d'un coup

Bonjour herve80, mikeo

Si je comprends bien essaye ceci :

Code:

Sub copie()

Range("A1:G1").Copy Range("A5")
Range("A1:G1").Clear

End Sub

Dans ce cas tu n'as pas les pointillés, et les cellules de départ sont effacées.

A+

 

Vote positif 0 Vote négatif

H

herve80

XLDnaute Occasionnel

• 26 Septembre 2007

• #4

Re : Effacer la sélection copiée d'un coup

Merci bqtr, j'ai compris.

Bonne journée 😉

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 26 Septembre 2007

• #5

Re : Effacer la sélection copiée d'un coup

Re,

Dans le cas où tu copierais uniquement les valeurs des cellules ( pas le format par exemple ) il faudrait procéder comme ceci :

Code:

Sub copie()

Range("A1:G1").Copy
Range("A5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
Range("A1:G1").Clear

End Sub

L'instruction suivante permet de supprimer les pointillés.

Code:

Application.CutCopyMode = False

Bonne journée

 

Vote positif 0 Vote négatif

H

herve80

XLDnaute Occasionnel

• 26 Septembre 2007

• #6

Re : Effacer la sélection copiée d'un coup

Instructif la dernière ligne de code.

Je te remercie beaucoup, ça pourrait m'être utile.

Encore merci, et bonne journée 😉

 

Vote positif 0 Vote négatif