Commentaire sur excel cellules fusionnéesRésolu

Question

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

bigfish_le vrai · Accepted Answer

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+

thibaultanguy · Answer

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

Commentaire sur excel cellules fusionnées

2 réponses

Votre réponse

Discussions similaires