Forums Rue-Montgallet.com
Rue-Montgallet.comRue-Hardware.comRue-Occasion.comRue-DVD.comRue-Jeuxvideo.comRue-AudioVideo.comRue-Telephone.comForums
S'inscrire | S'identifier |
| Recherche avancée | Aide
 

  FORUM


  Programmation


  VB - VBA


  copier coller valeurs uniquement

 
 

Il y a 74 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici

 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet :

copier coller valeurs uniquement

 
n°19303
fafa7777
debutant
Profil : Jeune recrue
Posté le 01-06-2008 à 10:59:02  profilanswer
 

Bonjour,
je débute en vba, je souhaiterais connaître le code à mettre dans le workbook sous Excel, pour obliger le copier coller valeurs uniquement au lieu d'interdire le copier coller seul
Merci pour votre aide

n°19317
kiki29
Profil : Membre
Posté le 24-06-2008 à 09:10:48  profilanswer
 

Salut,un début de réponse à adapter

Code :
  1. Option Explicit
  3. Dim mbCut As Boolean
  4. Dim mRngSource As Range
  6. Public Sub InitCutCopyPaste()
  7.     Application.OnKey "^X", "DoCut"
  8.     Application.OnKey "^x", "DoCut"
  9.     Application.OnKey "+{DEL}", "DoCut"
  10.    
  11.     Application.OnKey "^C", "DoCopy"
  12.     Application.OnKey "^c", "DoCopy"
  13.     Application.OnKey "^{INSERT}", "DoCopy"
  14.    
  15.     Application.OnKey "^V", "DoPaste"
  16.     Application.OnKey "^v", "DoPaste"
  17.     Application.OnKey "+{INSERT}", "DoPaste"
  18.    
  19.     Application.OnKey "{ENTER}", "DoPaste"
  20.     Application.OnKey "~", "DoPaste"
  21.    
  22.     Application.CellDragAndDrop = False
  23. End Sub
  25. Public Sub DoCut()
  26.     If TypeOf Selection Is Range Then
  27.         mbCut = True
  28.         Set mRngSource = Selection
  29.         Selection.Copy
  30.     Else
  31.         Set mRngSource = Nothing
  32.         Selection.Cut
  33.     End If
  34. End Sub
  36. Public Sub DoCopy()
  37.     If TypeOf Selection Is Range Then
  38.         mbCut = False
  39.         Set mRngSource = Selection
  40.         Selection.Copy
  41.     Else
  42.         Set mRngSource = Nothing
  43.     End If
  44.     Selection.Copy
  45. End Sub
  47. Public Sub DoPaste()
  48.     If Application.CutCopyMode And Not mRngSource Is Nothing Then
  49.         Selection.PasteSpecial xlValues
  50.         If mbCut Then
  51.             mRngSource.ClearContents
  52.         End If
  53.         Application.CutCopyMode = False
  54.     Else
  55.         ActiveSheet.Paste
  56.     End If
  57. End Sub


Aller à :
Ajouter une réponse

  FORUM


  Programmation


  VB - VBA


  copier coller valeurs uniquement

 

Forum MesDiscussions.Net, Version 2007.2
(c) 2000-2007 No1Dev
Page générée en 0.098 secondes