Si je veux coller sans aucun formatage, je dois aller sur le bouton “Coller” du ruban et cliquer sur “Collage spécial” puis sur “texte non formaté”.
Y a-t-il un raccourci comme Ctrl+V qui fera automatiquement cela pour moi ?
Sur Word 2007 à 2013 sous Windows, vous pouvez utiliser Ctrl+Alt+V.
Sur Word 2011 pour Mac, vous pouvez utiliser Contrôle+Commande+V.
Les deux feront apparaître le 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 Entrée pour confirmer, c'est probablement le moyen le plus rapide sans macro.
Je viens de découvrir que dans Word 2013 et Excel 2013, il y a un moyen rapide d'accéder, depuis le clavier, à toutes les options de “Collage spécial”. Dans les exemples suivants, on montre simplement comment coller sous forme de texte (sans coller les formats).
Après avoir copié quelque chose, allez où vous voulez le coller (sans coller le format). CTRL+V (cela collera temporairement le format aussi) puis CTRL (appuyez et relâchez la touche de contrôle) puis T (le dernier T signifie “garder le texte seulement”).
Après avoir copié quelque chose, allez où vous voulez le coller (sans coller le format). CTRL+V (cela collera temporairement le format aussi) puis CTRL (poussez et relâchez la touche de contrôle) puis V (le dernier V signifie “coller les valeurs”).
Il est important que la seconde touche CTRL soit relâchée avant de taper la dernière lettre.
Cette méthode ne nécessite que 4 frappes au clavier, aucune macro et aucune utilisation de la souris dans une fenêtre de dialogue.
Je ne pense pas qu'il y en ait, mais la bonne nouvelle est que vous pouvez en faire une en créant une macro.
Soit vous enregistrez la macro, en faisant le collage comme vous le souhaitez, puis vous l'assignez à un raccourci clavier, soit vous mettez ce qui suit dans une nouvelle macro (en supposant que vous voulez coller sans formatage) :
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 devez l'affecter à un raccourci clavier (par exemple ctrl + m).
Addition: MS Word 2002 :
Sub PastePlaintext()
Selection.PasteSpecial Link:=False, DataType:=wdPasteText
End Sub
Si vous souhaitez définir “Conserver uniquement le texte” comme valeur par défaut, vous pouvez procéder comme suit :
le collage par défaut :
Cliquez sur le menu déroulant en haut et choisissez “Plus de commandes” :
Cliquez sur “Avancé” :
Modifiez les valeurs par défaut (pour ne conserver que le texte) :
Répéter les mêmes collages par défaut pour le texte uniquement :
J'espère que cela vous aidera !
Pour une solution agnostique à l'application, considérez PureText .
Aucun installateur n'est requis, c'est gratuit et lorsqu'il fonctionnera, il mettra en correspondance une nouvelle combinaison de touches pour le collage sans formatage.
Personnellement, j'utilise Win+V.
Pour Word, changer les paramètres par défaut (comme indiqué ci-dessus) semble être une bonne option si les paramètres correspondent à ce que vous voulez. Pour Excel, en revanche, je vous suggère d'utiliser plutôt un clic droit.
L'ajout d'une macro pose quelques problèmes importants.
1) Elle sera perdue dans les nouveaux documents à moins que vous ne modifiiez le modèle par défaut.
2) Si vous modifiez le modèle par défaut et que vous devez partager votre classeur, la personne qui reçoit le fichier recevra un avertissement de sécurité…. qui la fera probablement flipper.
Les autres options de clavier nécessitent beaucoup de frappes. En outre, si vous collez à partir d'une page web, Excel et Word mettront beaucoup de temps à convertir le HTML.
Un clic droit fait apparaître les options de collage, où vous pouvez sélectionner l'option de texte simple.
J'aimerais qu'un raccourci clavier soit intégré, mais le clic droit me semble être la meilleure alternative.
La fonction existe déjà, elle n'a pas de raccourci, mais vous pouvez lui en donner un.
Dans Word 2007-2013 (peut-être plus tôt, je ne m'en souviens pas), vous pouvez lier le raccourci clavier de votre choix à des commandes. Dans Word 2013, il s'agit de
Si la combinaison de touches est utilisée, sous la case “touches actuelles”, il vous est indiqué “Actuellement assigné à : xyz”, où xyz est la commande qui utilise déjà ce raccourci. Vous pouvez alors décider si vous voulez ou non conserver votre premier choix (le raccourci invoquera désormais PasteTextOnly et n'invoquera plus xyz) ou essayer de trouver une autre combinaison de touches.
Il y a en fait un moyen facile. Il suffit d'appuyer sur Alt+E, puis sur S et V. Vous obtiendrez la boîte de dialogue beaucoup plus facilement, ce qui vous fera certainement gagner beaucoup de temps.
Dans Excel, il suffit d'appuyer sur F2 sur la cellule dans laquelle vous voulez coller, puis d'appuyer sur CTRL+V.
Dans Word 2007-2013, vous devez appuyer sur ALT + CTRL + G, puis sur T et cliquer sur la touche Entrée.
cliquez avec le bouton droit de la souris à l'endroit où vous souhaitez coller le texte en clair appuyez sur la touche T
le texte non formaté est collé.
BTW : Si vous collez accidentellement du texte formaté, sélectionnez le tout et appuyez sur Ctrl + Espace pour revenir au format “normal”.
Pour coller à la fois des objets et du texte dans Excel, avec une option d'annulation, 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