Discussion :

[Obelix77]

Bonjour,

Je dois un très grand nombre de fois par jour coller et copier spécial les valeurs.

Je voudrais obtenir un code VBA qui me permettrai de créer un raccourci; par exemple :
je sélectionne une plage D1 : D10 qui contient les formules
je copie
je colle spécial les valeurs

J'ai fait une macro enregistrement/lecture et j'obtiens le code suivant qui fonctionne mais toujours sur la même plage D1 : D10; je voudrais que la macro travaille sur la plage que j'ai sélectionné.

Code :

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

1
2
3
4
5
6
'
    Range("D1 : D10").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Si quelqu'un peut m'aider sur la rédaction du code, c'est le TOP

Par avance, merci de ce que vous ferez

Laurent

[joe.levrai]

Bonjour,

supprime la première ligne

Code :

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

Range("D1:D10").Select

et ça devrait correspondre à ton besoin

le copie/coller spécial se fera sur l'ensemble des cellules qui sont sélectionnées lorsque se lancera ta macro

[Obelix77]

Super, merci, ça marche. Mais ... que sur une plage de cellules adjacentes.
Si la sélection est multiple, ça ne fonctionne pas.

Désolé de ne pas avoir précisé, dans ma 1ère demande, que les cellules n'étaient pas forcement adjacentes.
Si pas possible ou trop compliqué, pas grave. Ce que tu m'a donné est déjà top.

[joe.levrai]

Alors essaye ça

c'est plus long mais ça doit être compatible avec de la sélection discontinue

Code :

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

1
2
3
4
5
6
Dim Cell As Range
 
For Each Cell In Selection.Cells
    Cell.Copy
    Cell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next Cell

[Obelix77]

Ce coup-ci ça fonctionne nickel. Un grand merci à toi et bonne soirée,
Laurent

[Invité]

Bonjour,
selection=selection.value