Discussion :

[swiches]

Bonjour,

J'ai réussi a forcer par VBA et modification du XML le collage en valeur sur un fichier excel.

Mais lorsque je copie une donnée (avec un format de couleur par exemple) je vais dans une cellule et j'appuie sur la touche "entrée" (pavé num et clavier), cela colle la valeur avec format.

quelle est la fonction VBA pour inactiver ce fonctionnement? je ne veux pas que cela colle, ou alors colle en valeur.

Merci de votre aide.

[Phil'oche]

Salut,

Si tu veux interdire totalement le "coller" après un "copier" (ou "couper"), il existe une méthode de bourrin qui consiste à vider le presse-papier à chaque changement de sélection de cellule

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Application.CutCopyMode = False
 
End Sub

Là au moins, tu seras tranquille !

[unparia]

Bonjour Phil'oche

Là au moins, tu seras tranquille !

Pas vraiment !
Ceci ne vide absolument pas le presse-papiers et ne fait qu'interdire d'utiliser le copy (puis paste) de ce qui est sur la même feuille uniquement.

PS je dis bien sur la même feuille car si sur feuille différente du même classeur : une feinte à 4 sous (on se place sur la cellule de destination --->> on se rend sur une autre feuille -->> on copie >> on revient sur la feuille de départ -->> et là, on peut maintenant coller à l'aise).

[Phil'oche]

Tout à fait... J'avais employé le terme "vider le presse-papier" pour simplifier... Donc j'en reviens à mon idée initiale, qui était de passer par une api windows...

Code :

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

1
2
3
Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function CloseClipboard Lib "user32" () As Long
Public Declare Function EmptyClipboard Lib "user32" () As Long

et

Code :

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

1
2
3
4
5
Public Sub ViderClipboard()
   OpenClipboard 0
   EmptyClipboard
   CloseClipboard
End Sub

Qu'on peut appeler quand on veut, sur changement de feuille, sur activation de feuille, voire même au niveau de Workbook_SheetActivate, si on est complètement parano et qu'on a peur d'un copier/coller dans le Notepad...

[swiches]

merci pour vos réponses (vous êtes rapides les gars )

mais j'ai besoin qu'ils puissent coller, mais uniquement en valeur. et ca j'ai bien réussi, j'ai capté le Ctrl + v et changer en valeur, griser le bouton coller dans le ruban et changer la fonction du coller en coller valeur dans le menu contextuel.

Mais un petit malin a fait copier + entrée et m'a du coup ecrasé mon format et tout le tintouin

donc c'est surtout le fait qu'appuyer sur entrée apres avoir copier que je veux inactiver, car cela colle la cellule avec tout le format et tout

[Phil'oche]

Si c'est bien ça et uniquement ça, c'est à dire l'utilisation de la touche "entrée" pour coller une cellule préalablement copiée, tu peux intercepter tes évènements ENTREE avec par exemple :

Code :

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

1
2
3
4
Private Sub Workbook_Open()
   Application.OnKey "{ENTER}", "ToucheEntree"
   Application.OnKey "~", "ToucheEntree"
End Sub

et dans un module standard :

Code :

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

1
2
3
4
Public Sub ToucheEntree()
If Application.CutCopyMode > 0 Then
    ' ton code ici pour faire en sorte que seule la valeur soit copiée
End Sub

Je passe les détails, car comme tu écris que tu as déjà une procédure qui gère le CTRL+V, il n'y qu'à faire la même chose ici...