Raccourci dans Word ou Excel pour coller spécial?
Réponses:
Je ne pense pas que ce soit le cas, mais la bonne nouvelle est que vous pouvez en créer un en créant une macro.
Soit enregistrez la macro, en collant comme vous le souhaitez, puis attribuez-la à un raccourci clavier ou insérez ce qui suit dans une nouvelle macro (en supposant que vous souhaitiez coller sans mise en forme):
Pour MS Word 2010:
Selection.PasteAndFormat (wdFormatPlainText)
Pour MS Excel 2010:
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
DisplayAsIcon:=False, NoHTMLFormatting:=True
Encore une fois, une fois que vous avez enregistré la macro, vous devrez l'affecter à un raccourci clavier (par exemple, ctrl + m).
Ajout: MS Word 2002:
Sub PastePlaintext()
Selection.PasteSpecial Link:=False, DataType:=wdPasteText
End Sub
Sur Word 2007 à 2013 sous Windows, vous pouvez utiliser Ctrl+ Alt+ V.
Sur Word 2011 pour Mac, vous pouvez utiliser Control+ Command+ V.
Ces deux options ouvriront la boîte de dialogue "Collage spécial". Il n'y a pas de raccourci direct pour "Texte non formaté", mais comme vous pouvez utiliser les flèches pour aller à "Texte non formaté" et Enterpour confirmer, il s'agit probablement du moyen le plus rapide sans macro.
Je viens de découvrir que dans Word 2013 et Excel 2013, il existe un moyen rapide d'accéder, à partir du clavier, à toutes les options " Collage spécial ". Dans les exemples suivants, nous montrons simplement comment coller en tant que texte (sans coller les formats).
Word 2013:
Après avoir copié quelque chose, allez où vous voulez le coller (sans coller le format). CTRL+ V(il va aussi coller temporairement le format aussi) puis CTRL(appuyer et relâcher la touche de contrôle) puis T(le dernier T signifie "garder le texte seulement").
Excel 2013:
Après avoir copié quelque chose, allez où vous voulez le coller (sans coller le format). CTRL+ V(il va aussi coller temporairement le format aussi) puis CTRL(appuyer et relâcher la touche de contrôle) puis V(le dernier V signifie "coller les valeurs").
Il est important que la deuxième CTRL clé soit libérée avant de taper la dernière lettre.
Cette méthode nécessite seulement 4 touches du clavier, pas de macros et aucune utilisation de la souris dans une fenêtre de dialogue.
Si vous souhaitez définir "Conserver le texte uniquement" comme valeur par défaut, vous pouvez procéder comme suit:
Le coller par défaut:
Cliquez sur le menu déroulant en haut et choisissez "Plus de commandes":
Cliquez sur Advanced:
Modifiez les valeurs par défaut (conserver uniquement le texte):
Répéter le même collage ne prend par défaut que du texte:
J'espère que cela t'aides!
Pour Word, la modification des paramètres par défaut (comme indiqué ci-dessus) semble être une bonne option si les paramètres correspondent à ce que vous souhaitez. Pour Excel, cependant, je suggérerais plutôt d’utiliser un clic droit.
L'ajout d'une macro pose quelques problèmes importants.
1) Il sera perdu dans les nouveaux documents sauf si vous modifiez le modèle par défaut.
2) Si vous modifiez le modèle par défaut et souhaitez partager votre classeur, la personne qui récupère le fichier recevra un avertissement de sécurité… qui risque de l'effrayer.
Les autres options du clavier nécessitent beaucoup de frappes. De plus, si vous collez depuis une page Web, Excel et Word prendront beaucoup de temps pour convertir le code HTML.
Un clic droit affichera les options de collage, où vous pourrez sélectionner l'option de texte brut.
J'aimerais avoir un raccourci clavier intégré, mais le clic droit me semble être la meilleure alternative.
La fonction existe déjà, elle n’a tout simplement pas de raccourci, mais vous pouvez lui en donner un.
Dans Word 2007-2013 (peut-être plus tôt, ne vous en souvenez pas), vous pouvez lier le raccourci clavier de votre choix aux commandes. Dans Word 2013, c'est dans
- Fichier> Options> Personnaliser le ruban> puis cliquez sur le bouton "Personnaliser ..." en bas à gauche et intitulé "Raccourcis clavier:".
- Dans Catégories, sélectionnez "Toutes les commandes";
- dans Commandes, sélectionnez "PasteTextOnly".
- Cliquez dans la zone de texte "Appuyer sur une nouvelle touche de raccourci", puis appuyez sur la combinaison de touches que vous souhaitez utiliser pour exécuter cette commande.
- Pour lier le raccourci à la commande (rappelez-le / enregistrer le nouveau raccourci), cliquez sur le bouton "Attribuer".
Si la combinaison de touches est en cours d'utilisation, sous la zone "clés actuelles", elle vous indique "Attribué actuellement à: xyz", où xyz est la commande qui utilise déjà ce raccourci. Ensuite, vous pouvez décider si vous souhaitez ou non vous en tenir à votre premier choix (le raccourci va maintenant appeler PasteTextOnly et ne plus invoquer xyz) ou essayer de créer une autre combinaison de touches.
Il y a en fait un moyen facile. Appuyez simplement sur Alt+ E, puis sur Set V. Vous obtiendrez la boîte de dialogue beaucoup plus facile, cela vous fera certainement gagner beaucoup de temps.
Dans Word 2007-2013, vous devez appuyer sur ALT + CTRL + G, puis sur T et sur la touche Entrée .
Dans Excel, appuyez simplement sur F2 sur la cellule que vous souhaitez coller, puis appuyez sur CTRL + V.
clic droit où vous voulez coller le texte brut appuyez sur la touche T
le texte non formaté est collé.
BTW: Si vous collez accidentellement du texte formaté, sélectionnez-le et appuyez sur Ctrl + Espace pour revenir au format "normal"
Pour coller à la fois des objets et du texte dans Excel, avec une option pour annuler, utilisez
' Custom data type for undoing
Type SaveRange
Val As Variant
Addr As String
End Type
' Stores info about current selection
Public OldWorkbook As Workbook
Public OldSheet As Worksheet
Public OldSelection() As SaveRange
'----------------------------------------------------------
Sub PasteValues()
' Set shortcut to Cntl+Shift+V, for example
' Works for Outlook and Chrome AND Excel
' Abort if a range isn't selected
If TypeName(Selection) <> "Range" Then Exit Sub
' The next block of statements
' save the current values for undoing
ReDim OldSelection(Selection.Count)
Set OldWorkbook = ActiveWorkbook
Set OldSheet = ActiveSheet
i = 0
For Each cell In Selection
i = i + 1
OldSelection(i).Addr = cell.Address
OldSelection(i).Val = cell.Formula
Next cell
' Start paste function
On Error GoTo ValuesFail
' Works for Excel and Outlook, but not Chrome
Selection.PasteSpecial Paste:=xlValues
' Specify the Undo Sub
Application.OnUndo "Undo the macro", "UndoMacro"
Exit Sub
ValuesFail:
On Error GoTo TextFail
' Works for Outlook and Chrome, but not Excel
ActiveSheet.PasteSpecial Format:="Text"
' Specify the Undo Sub
Application.OnUndo "Undo the macro", "UndoMacro"
Exit Sub
TextFail:
On Error GoTo PasteFail
ActiveSheet.Paste
' Specify the Undo Sub
Application.OnUndo "Undo the macro", "UndoMacro"
Exit Sub
PasteFail:
MsgBox "Complete Failure"
End Sub
'----------------------------------------------------------
Sub UndoMacro()
' Reinstates data in the selected range
' Tell user if a problem occurs
On Error GoTo Problem
Application.ScreenUpdating = False
' Make sure the correct workbook and sheet are active
OldWorkbook.Activate
OldSheet.Activate
' Restore the saved information
For i = 1 To UBound(OldSelection)
Range(OldSelection(i).Addr).Formula = OldSelection(i).Val
Next i
Exit Sub
' Error handler
Problem:
MsgBox "Can't undo macro"
End Sub
'----------------------------------------------------------
Sub RevertFile()
' From http://www.excelforum.com/showthread.php?t=491103
wkname = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
ActiveWorkbook.Close Savechanges:=False
Workbooks.Open Filename:=wkname
End Sub