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"
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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.
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
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")
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
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.
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.
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" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:31E7B71B-3814-460A-BFE7-DEC65F2DC979@microsoft.com...
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")
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.
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
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
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