Commentaire sur excel cellules fusionnées [Résolu]

Signaler
Messages postés
45
Date d'inscription
jeudi 3 juillet 2008
Statut
Membre
Dernière intervention
16 novembre 2012
-
thibaultanguy
Messages postés
45
Date d'inscription
jeudi 3 juillet 2008
Statut
Membre
Dernière intervention
16 novembre 2012
-
Bonjour à tous,
Pour ne pas toujours déranger la même personne, je fais appel au forum pour m'aider à résoudre cette petite difficulté. Sur excel, je souhaite affecter automatiquement à une cellule, un commentaire. Avec le code ci-dessous cela fonctionne, sauf lorsque je fusionne plusieurs cellules >>>> débogage...
Pourriez-vous me le corriger ?
Merci

Sub Lance()
Selection.AddComment
Selection.Comment.Visible = False
Selection.Comment.Text Text:=Application.UserName
End Sub


eric

2 réponses

Messages postés
1839
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
9
Salut,

Sub Lance()
Dim MaCellule As Range
    If Selection.MergeCells = False Then 'si la selection ne contient pas de cellules fusionées
        Set MaCellule = Selection
    Else 'si la selection contient des cellules fusionées
        Set MaCellule = Selection.Cells(1, 1)
    End If
    With MaCellule
        .AddComment
        .Comment.Visible = False
        .Comment.Text Text:=Application.UserName
    End With
End Sub


A retenir : la propriété "MergeCells" qui renvoi "True" si l'objet "range" contient des cellules fusionées

A+
Messages postés
45
Date d'inscription
jeudi 3 juillet 2008
Statut
Membre
Dernière intervention
16 novembre 2012

Très sincères remerciements
Ton aide me sera précieuse
Cordialement

eric