OVH Cloud OVH Cloud

Couper/coller presse papier

3 réponses
Avatar
sharmi
Bonjour
Voici ma macro qui devrait me permettre de couper le contenu des cellules pour le copier dans le presse papier. Puis de récupérer les données du presse papier vers une nlle feuille
Mais, ce ne marche pas

Dim Rg As Rang
Set Rg = Worksheets("Feuil1").Range("A1:A4"
Range("A1:A4").Selec
Selection.Cu
Application.CutCopyMode = Fals
Selection.ClearContent
Rg.Copy Worksheets("Feuil2").Range("A1"

Merci de votre aide.

3 réponses

Avatar
sabatier
bonjour sharmi
reviens sur ta feuille 1 pour le selection clear contents (à faire donc après avoir copié) et tu verras que ta macro fonctionne tlès tlès bien...
jps

sharmi wrote:

Bonjour,
Voici ma macro qui devrait me permettre de couper le contenu des cellules pour le copier dans le presse papier. Puis de récupérer les données du presse papier vers une nlle feuille.
Mais, ce ne marche pas.

Dim Rg As Range
Set Rg = Worksheets("Feuil1").Range("A1:A4")
Range("A1:A4").Select
Selection.Cut
Application.CutCopyMode = False
Selection.ClearContents
Rg.Copy Worksheets("Feuil2").Range("A1")

Merci de votre aide.


Avatar
Lydya
Bonjour Sharmi,

Si tu souhaites couper le contenu des cellules A1:A4 de la feuille 1 et le
coller feuille 2 à partir de A1, cela suffit:

Sub CouperColler()
Dim Rg As Range
Set Rg = Worksheets("Feuil1").Range("A1:A4")
Rg.Cut Destination:=Worksheets("Feuil2").Range("A1")
End Sub

Bonne journée.

Lydya

--------------------

"sharmi" a écrit dans le message de
news:
Bonjour,
Voici ma macro qui devrait me permettre de couper le contenu des cellules
pour le copier dans le presse papier. Puis de récupérer les données du

presse papier vers une nlle feuille.
Mais, ce ne marche pas.

Dim Rg As Range
Set Rg = Worksheets("Feuil1").Range("A1:A4")
Range("A1:A4").Select
Selection.Cut
Application.CutCopyMode = False
Selection.ClearContents
Rg.Copy Worksheets("Feuil2").Range("A1")

Merci de votre aide.


Avatar
sharmi
Merci à vous deux de votre aide
Par contre, au lieu de coller le contenu du presse papier sur la feuil2, je souhaite conserver le contenu pour switcher vers une autre appli et ainsi coller mon presse papier

Sharmi