mise en f. en fonction du style

[Simons]

Bonjour le forum,

Je cherche à ajouter un commentaire* à plusieurs cellules si celles-ci sont en italique. Cela sur toute une feuille de calcul.
Y'a ti un moyen pour arriver à ca ?
en VBA ou sans...

*(le commentaire serait identique pour a toutes les cellules qui correspondent à la condition)


Merci d'avance pour vos réponses.

 

[Hervé]

Re : mise en f. en fonction du style

bonjour

une proposition à travers ce code VBA :

Sub Bouton1_QuandClic()
Dim c As Range

For Each c In ActiveSheet.UsedRange
    If c.Font.Italic = True Then
        If Not c.Comment Is Nothing Then
           c.Comment.Delete
        End If
        c.AddComment
        c.Comment.Text Text:="ton texte"
    End If
Next c

End Sub

salut

 

[Simons]

Re : mise en f. en fonction du style

Merci pour ton code Hervé avec ça je dois arriver la ou je voulais en venir.