Modification du copier coller

Bonjour à tous,

J'essaie par plusieurs moyens de faire un couper-coller mais en ne coupant que le contenu et en laissant la mise en forme intacte. A défaut de trouver, je pensais mettre une petite macro dans la feuille qui, lorsque je fais un copier coller, me supprime le contenu des cellules sources et ne copie que les valeurs. En cherchant un peu, j'ai trouvé un bout de code qui, je pensais, en l'adaptant un peu allait fonctionner. Mais je dois faire une erreur quelque part car le contenu de la source n'est pas supprimé. Voici mon code, est-ce que vous auriez une idée?
Je vous remercie par avance,
Maxime

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Worksheet_Change(ByVal Target As Range) Dim tablo, sel As Range If Application.CutCopyMode Then On Error Resume Next 'sécurité Application.EnableEvents = False 'désactive l'action des évènements tablo = Target 'mémorise les valeurs Target.ClearContents Set sel = Selection Application.Undo 'annule le collage Target = tablo 'rétablit uniquement les valeurs sel.Select Application.EnableEvents = True End If End Sub

---

Bonjour Maxime,
Voici un code qui fonctionne

Code:

---

1 2 3 4 5 6 7 8

Sub CutPast() Dim rngSource As Range, rngTarget As Range With ThisWorkbook Set rngSource = .Worksheets("Feuil3").Range("A4:C9") Set rngTarget = .Worksheets("Feuil3").Range("I2") End With With rngSource: .Copy rngTarget: .ClearContents: End With End Sub

---

Bonjour Philippe,

Merci pour ton retour. Ce qui me dérange dans ce code c'est que la source et la cible sont figées. Ce que j'aimerai c'est que ma source soit ma première sélection et ma cible la seconde. Ce qu'il faudrait presque c'est que lorsque je fais mon ctrl+c, mes valeurs soient stockées mais supprimées des cellules sources et que lors du ctrl+v seules les valeurs soient collées dans mes cellules cibles. Je ne sais pas si je suis suffisamment clair.

Bonjour Maxime,

Citation:

---

Ce qui me dérange dans ce code c'est que la source et la cible sont figées

---

Il suffit de transformer la procédure en lui ajoutant des arguments.

Citation:

---

Ce qu'il faudrait presque c'est que lorsque je fais mon ctrl+c, mes valeurs soient stockées mais supprimées des cellules sources et que lors du ctrl+v seules les valeurs soient collées dans mes cellules cibles

---

C'est un peut plus complexe. Pas le temps pour l'instant de me pencher là dessus.

Citation:

---

seules les valeurs soient collées dans mes cellules cibles

---

J'avais cru comprendre dans ta demande que la source devait conserver le format mais que la cible était un coller normal.

Philippe,

Je ne suis pas sur de pouvoir faire simplement avec des arguments car j'ai deux sélections, celle que je sélectionne pour la copie et celle qui est sélectionnée au moment du collage.
Pour la conservation de la mise en forme au moment du collage, peut importe finalement car normalement la mise en forme de mes cellules sources et cibles sont identiques.
Je vais essayer de m'expliquer à nouveau :
- Ma configuration de départ : un groupement de cellules A avec des valeurs et un groupement B de même taille avec la même mise en forme.
- Ce que je veux à l'arrivée : En une seule manip, mettre les valeurs de A dans B sans toucher à la mise en forme de A (couleur de fond, bordure etc..) mais en supprimant les valeurs contenues dans A.

Merci

Bonjour,

et comment tu comptes déterminer source ET destination avec Sub Worksheet_Change(ByVal Target As Range) ?
Si tu copie-colles Target est la destination, si tu coupe-colles Target est la source.

Je te propose de faire une sélection multiple de 2 zones, source et destination, et un clic-droit dessus.
Comme tu es sensé sélectionner la destination en 2nd, c'est elle qui aura la cellule active. Je m'en sers pour différencier source de destination.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim source As Range, dest As Range If Target.Areas.Count = 2 Then Cancel = True Set source = Intersect(ActiveCell, Target.Areas(1)) If source Is Nothing Then Set source = Target.Areas(1): Set dest = Target.Areas(2) Else Set source = Target.Areas(2): Set dest = Target.Areas(1) End If If dest.Count = 1 Then Set dest = dest.Resize(source.Rows.Count, source.Columns.Count) dest.Value = source.Value source.ClearContents End If End Sub

---

J'ai amélioré le truc : pour simplifier la manip si la destination ne fait qu'une cellule je l'agrandi à la taille de la source. Ca doit donc être la cellule haut-gauche du collé.
C'est un collé valeur, on peut changer
eric

le probleme avec "Cut" c'est qu'il attend un paste avant il ne fait que selectionner en pointillets

tu ne peux donc pas passer par "cut"

soit c'est comme on te la monter a savoir
x.copy destination:=y :x.clearcontents

x et y etant pour le1er la range a copier le 2d la cellule(1) de destination

si tu veux vraiment le faire avec le menu cells(click droit sur la feuille) il va te faloir modifier ce menu et ajouter ton bouto cutperso et te servir de l'item coller classique

et ton bouton devra aller copier la selection sous forme de tableau ou string adapté et la vider et ne garder que les valeurs dans le clipboard

en gros tu modifie tout simplement ce qui se trouve dans le clipboard juste apres avoir cliquer sur "couper"

demonstration
exemple
dans le module de la feuille

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True 'bloque le menu cell temporairement 'on ajoute notre bouton perso With CommandBars("cell") .Reset Set bout = .Controls.Add(msoControlButton, before:=1) With bout: .Caption = "couper PERSO": .OnAction = "coupeperso": End With End With Cancel = False ' on debloque menu cell qui a maintenant un nouveau bouton qui appelera la sub coupeperso End Sub

---

la sub de transformation objectrange en valeurs dans le clipboard

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub coupeperso() With CreateObject("htmlfile") 'creation d'un htmldocument en memoire Selection.Copy 'copie la selection comme tel avec sa mise en forme et tout le tointoin r = .parentwindow.clipboarddata.GetData("text") ' on ne garde que les valeur Selection.ClearContents 'maintenant que l'on a la copie des valeur dans "r" on peut vider la selection en cours x = .parentwindow.clipboarddata.setdata("text", r) 'maintenanton prend r qui n'a plus que les valeurs et on le remet dans le clipboard 'resultat on a plus la copie intégrale (format valeur,theme,etc...) mais rien que les valeur 'il ne reste plus qu'a cliquer sur le menu cell"coller" la ou tu veux coller End With CommandBars("cell").Reset ' on remet le menu nu a l'initial End Sub

---

Pièce jointe 340609

Au début je me disais ça parait un peu long son truc, après je me suis dit bien joué ;-)
eric

merci eriic

en separant le cut du collage ce principe est la seule solution il y certainement la possibilité d'utiliser d'autre object et algo mais le principe reste le seul

1. copy
2. recupe dans clipboard de la copie
3. transformation en texte
4. insertion de la copie stransformée dans le clipboard
5. le bouton coller collera forcement ce que l'on vient de lui mettre

c'est a dire pour une plage de x lignes et y colonnes

cellule1 vbtab cellule2 vbtab vbcrlf celule 4 vbtab cellule5 vbtab cellule6 ect.....

pour une colonne

celulle1 vbcrlf cellule2 vbcrlf cellule3 etc.......

re
voici un model qui copie avec mon bouton perso
et quand tu colle tu a tout avec le formatage mais ca te vide la plage copiée sans suprimer son formatage;)


dans la feuille

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True With CommandBars("cell"): .Reset: Set bout = .Controls.Add(msoControlButton, before:=1) With bout: .Caption = "couper PERSO": .OnAction = "coupeperso": .Tag = Selection.Address: End With End With Cancel = False End Sub   Private Sub Worksheet_Change(ByVal Target As Range) If Not rangA Is Nothing Then Application.EnableEvents = False If rangA.Cells.Count > 1 Then t = Join(Application.Transpose(Target.Value)) = Join(Application.Transpose(rangA.Value)) If rangA.Cells.Count = 1 Then t = rangA.Value = Target.Value If t = True Then rangA.ClearContents Set rangA = Nothing End If Application.EnableEvents = True End Sub

---

dans un module standard

Code:

---

1 2 3 4 5 6

Public rangA As Range Sub coupeperso() Set rangA = Selection Selection.Copy CommandBars("cell").Reset End Sub

---

comme rangA est instancié dans la sub copy ca ne pertube pas tout les autre fonctions du menu
Pièce jointe 340640

Bonjour à tous les deux,

Merci pour vos retours, je regarde ça demain mais de ce que j'ai pu voir rapidement, la solution de Patrick me plaît bien.

Bonjour,

J'ai pu tester tes solutions Patrick. Je suis finalement parti sur la première. Dans mon excel, le fond est figé mais je souhaite juste déplacé des éléments dessus. De plus, la première solution garde quand même les couleurs du texte. Enfin, elle permet de couper coller un Range alors que la seconde ne peut pas en raison du transpose. Elle peut fonctionner par contre si on enlève les IF. je ne suis pas sûr d'avoir bien compris à quoi ils fonctionnaient. Ils testent juste si on a réellement collé avant de supprimer c'est bien ça?
En tout cas, merci pour votre aide à tous, je n'aurai pas pu trouver ce type de solution :)

re
dans la solution 2 avec le theme couleur les if servent seulement a tester si c'est une plage ou une cellule qui est copiée et si quand tu a coller la target qui viens d'etre modifier(qui a recu le collage) est = a la selection que tu avais copié


de facon a remetrre rangA a zero et retablir les evenements (enableevents) comme ca tu peux copier coller dans le sheets en te servant des boutons d'origine du menu sans que ma macro se mette en route puisque rangA est nothing si tu passe pas par le bouton perso

en gros tu a maintenant cette option en plus
voila