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
MichDenis
Le raccourci clavier retenu : Ctrl + m
Dans un module standard : '-------------------------- Sub CollerFormule() On Error Resume Next Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:úlse, Transpose:úlse Application.CutCopyMode = False
End Sub '--------------------------
Et dans le ThisWorkbook de Ton classeur :
Private Sub Workbook_Activate() Application.OnKey "^m", "CollerFormule" End Sub '--------------------------------- Private Sub Workbook_Deactivate() Application.OnKey "^m", "" End Sub '---------------------------------
"nolosnb" a écrit dans le message de news:
je cherche le raccouric clavier pour collage spéciale de la formule
Le raccourci clavier retenu : Ctrl + m
Dans un module standard :
'--------------------------
Sub CollerFormule()
On Error Resume Next
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
End Sub
'--------------------------
Et dans le ThisWorkbook de Ton classeur :
Private Sub Workbook_Activate()
Application.OnKey "^m", "CollerFormule"
End Sub
'---------------------------------
Private Sub Workbook_Deactivate()
Application.OnKey "^m", ""
End Sub
'---------------------------------
"nolosnb" <nolosnb@discussions.microsoft.com> a écrit dans le message de news:
15A06562-E68F-45AB-A3AC-8235EAFFD15A@microsoft.com...
je cherche le raccouric clavier pour collage spéciale de la formule
Dans un module standard : '-------------------------- Sub CollerFormule() On Error Resume Next Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:úlse, Transpose:úlse Application.CutCopyMode = False
End Sub '--------------------------
Et dans le ThisWorkbook de Ton classeur :
Private Sub Workbook_Activate() Application.OnKey "^m", "CollerFormule" End Sub '--------------------------------- Private Sub Workbook_Deactivate() Application.OnKey "^m", "" End Sub '---------------------------------
"nolosnb" a écrit dans le message de news:
je cherche le raccouric clavier pour collage spéciale de la formule