Ajouter un commentaire si la cellule est non vide

[apt]

Bonsoir à tous,

Dans la cellule M2, je calcul la moyenne des valeurs entre la cellule B2 et L2 :

=SI(NBVAL(B2:L2)>1;MOYENNE(B2:L2);"")

J'aimerais ajouter un commentaire qui contient la valeur de la cellule A2 et il ne sera ajouter que si la cellule M2 est non vide.

Une solution ?

Merci

 

[john]

Re : Ajouter un commentaire si la cellule est non vide

Bonjour,
Il y a cette solution, mais il faut passer par le vba

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(2, 13).Value <> "" Then
Cells(2, 13).ClearComments 'je supprime le commentaire existant
Range("M2").AddComment 'je créé le commentaire
Range("M2").Comment.Visible = True
commentaire = Range("A2").Text
Range("M2").Comment.Text Text:=commentaire
Else
Cells(2, 13).ClearComments
End If
End Sub

Bonne journée.

John

 

[apt]

Re : Ajouter un commentaire si la cellule est non vide

Bonsoir john,

Ca m'a bien aidé ton code.

Merci