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

[herve80]

Bonjour à tous et à toutes,

Excel à un gros défaut :

Par exemple vous copiez les cellules de A4 à A16 en B4 à B16.
Dans ce cas, Excel met en pointillés la sélection, puis vous copiez.

Mais comment effacer la sélection de départ d'un coup , qui est toujours en pointillé après la copie, sans devoir la resélectionner ?

Car avec une macro style "Selection.ClearContents", 2 possibilités :

- la colonne de destination est effacée (B4:B16) et non celle de départ
- si positionné sur A4, c'est A4 qui est effacé, et pas la colonne A4:A16 !

Merci de m'aider

 

[mikeo]

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+

 

[bqtr]

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

Bonjour herve80, mikeo

Si je comprends bien essaye ceci :

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+

 

[herve80]

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

Merci bqtr, j'ai compris.

Bonne journée 😉

 

[bqtr]

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 :

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.

Application.CutCopyMode = False

Bonne journée

 

[herve80]

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 😉