Partager via

Modification commentaire

Anonyme
2024-06-03T08:52:07+00:00

Bonjour,

Je souhaiterais modifier le commentaire ainsi que la lettre correspondante de P pour Personnel j'aimerais avoir R pour Récupération.

Savez-vous comment faire ?

Merci d'avance

Microsoft 365 et Office | Excel | Autres | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires Aucun commentaire

1 réponse

  1. Anonyme
    2024-06-04T14:10:34+00:00

    Cette réponse a été automatiquement traduite. Par conséquent, il peut y avoir des erreurs grammaticales ou des formulations étranges.

    Bonjour! Clem-KS3IS

    Bienvenue dans la communauté Microsoft.

    Je comprends que vous souhaitiez remplacer le caractère « Personnel » par le caractère « Récupération » dans une note dans Excel. Comme je ne suis pas de langue maternelle française, corrigez-moi si je me trompe !

    Si vous souhaitez modifier les caractères de l’annotation en petites quantités, vous pouvez le faire manuellement.

    Pour le remplacement par lots d’annotations dans Excel, vous devez généralement utiliser des macros VBA (Visual Basic pour Applications) ou d’autres compétences en programmation. Excel ne fournit pas de fonction intégrée directe pour remplacer les annotations par lots. Vous pouvez écrire une macro VBA simple pour ce faire.

    Voici un code de macro VBA simple qui remplace tous les commentaires dans Excel qui contiennent un texte spécifique (tel que « Personnel ») par un autre texte (tel que « Récupération ») :

    Copy Code
    
    Sub ReplaceCommentsText()
    
        Dim cmt As Comment
    
        Dim searchStr As String
    
        Dim replaceStr As String
    
      ' Define the text to search and replace
    
        searchStr = "Personnel"
    
        replaceStr = "Récupération"
    
        ' Loop over all annotations
    
        For Each cmt In ActiveSheet.Comments
    
            ' Check whether the annotated text contains the text to be searched fo
    
            If InStr(1, cmt.Text, searchStr, vbTextCompare) > 0 Then
    
                ' Replace text if included
    
                cmt.Text Text:=Replace(cmt.Text, searchStr, replaceStr)
    
            End If
    
        Next cmt
    
    End Sub
    

    Pour utiliser cette macro, procédez comme suit :

    1. Ouvrez le fichier Excel.
    2. Appuyez sur ALT + F11 pour ouvrir l’éditeur Visual Basic pour Applications.
    3. Sélectionnez Insérer > module dans le menu pour insérer un nouveau module de code.
    4. Copiez et collez le code VBA fourni ci-dessus dans le module de code nouvellement créé.
    5. Fermez l’éditeur VBA et revenez à Excel.
    6. Appuyez sur ALT + F8 pour ouvrir la boîte de dialogue Macro.
    7. Sélectionnez la macro « ReplaceCommentsText » dans la liste et cliquez sur le bouton « Exécuter ».

    N’oubliez pas d’être prudent lorsque vous utilisez des macros VBA et assurez-vous de sauvegarder votre fichier Excel avant d’exécuter la macro au cas où quelque chose d’inattendu se produirait.

    J’espère que les informations ci-dessus vous aideront et que votre problème sera résolu avec succès.

    Célia | Spécialiste du support de la communauté Microsoft

    Cette réponse a-t-elle été utile ?

    0 commentaires Aucun commentaire