Mikki cherche un moyen de changer la couleur par défaut des commentaires de la feuille de calcul afin qu’elle puisse distinguer ses commentaires des commentaires d’autres personnes.

Lorsque vous ajoutez un commentaire à une cellule dans une feuille de calcul, Excel vous permet de modifier la mise en forme utilisée pour ce commentaire. Une fois le commentaire créé, procédez comme suit:

  1. Cliquez avec le bouton droit de la souris sur la cellule et choisissez Modifier le commentaire dans le menu contextuel.

Cela place le point d’insertion dans le commentaire où vous pouvez taper plus d’informations, si vous le souhaitez.

  1. Cliquez avec le bouton droit sur la bordure du commentaire et sélectionnez Format du commentaire dans le menu contextuel résultant. Excel affiche la boîte de dialogue Format du commentaire.

  2. Utilisez les commandes de la boîte de dialogue pour modifier la façon dont vous souhaitez que le commentaire apparaisse.

  3. Cliquez sur OK.

Ces étapes sont toutes très bien, mais elles n’affectent que le commentaire actuel. Si vous souhaitez définir une valeur par défaut pour les commentaires que vous ajoutez à l’avenir, Excel ne se souvient pas de votre mise en forme et ne fournit aucun moyen de modifier les valeurs par défaut. Au lieu de cela, Excel récupère sa mise en forme de commentaire par défaut à partir de Windows lui-même. Vous pouvez modifier cela en modifiant les propriétés d’affichage de Windows, en particulier le paramètre d’affichage de l’info-bulle. Si vous modifiez cela, vous avez modifié la façon dont Excel formate vos commentaires. (Vous avez également modifié l’apparence des info-bulles dans tous les autres programmes de votre système.)

Une solution de contournement consiste à utiliser une macro pour insérer vos commentaires. La macro peut non seulement insérer le commentaire, mais également le formater selon vos besoins.

Voici un exemple de macro courte qui insérera un commentaire pour la cellule sélectionnée et, si le nom de l’utilisateur est « Mikki », rendra la couleur d’arrière-plan turquoise. (Le nom de l’utilisateur est défini dans la configuration d’Excel.)

Sub AddMyComment()

Dim sUserName As String     Dim  addr As String

sUserName = Application.UserName

With ActiveCell         addr = .Address

If sUserName = "Mikki" Then             ActiveSheet.Range(addr).AddComment             Range(addr).Comment.Shape.Select True             Selection.ShapeRange.Fill.ForeColor.SchemeColor = 41         Else             Range(addr).AddComment         End If     End With End Sub

Si vous disposez déjà d’une feuille de calcul contenant de nombreux commentaires, vous pouvez rechercher les commentaires contenant le texte «Mikki», puis modifier la couleur de ces commentaires. Cette macro convient parfaitement:

Sub ColorMyComments1()

Dim myCom As Comment

For Each myCom In ActiveSheet.Comments     If InStr(myCom.Text, "Mikki") <> 0 Then         myCom.Shape.Fill.ForeColor.SchemeColor = 41     End If     Next myCom End Sub

Comprenez que la macro changera la couleur si le texte « Mikki »

apparaît n’importe où dans le texte du commentaire. Une légère variation de la macro vérifie l’attribut Auteur du commentaire, et s’il est défini sur « Mikki », alors il effectue le changement:

Sub ColorMyComments2()

Dim myCom As Comment

For Each myCom In ActiveSheet.Comments     If myCom.Author = "Mikki" Then         myCom.Shape.Fill.ForeColor.SchemeColor = 41     End If     Next myCom End Sub

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (12567) s’applique à Microsoft Excel 2007, 2010 et 2013.