mise en f. en fonction du style

Simons · 26 Septembre 2006

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é · 26 Septembre 2006

Re : mise en f. en fonction du style

bonjour

une proposition à travers ce code VBA :

Code:

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 · 26 Septembre 2006

Re : mise en f. en fonction du style

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

mise en f. en fonction du style

Simons

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

Simons

XLDnaute Occasionnel

Discussions similaires

mise en f. en fonction du style

Simons

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

Simons

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency