Commentaire Visible sous condition

[Ilino]

Bonjour Forum
je cherche un petit code : un commentaire dans une cellule Z9 ( fusionnée Z-AB9) restera tjr visible jusqu'au remplissage de cette derniere le commentaire ce masque automatiquement et ainsi de suite 😕
A+

 

[Gardien de phare]

Re : Commentaire Visible sous condition

Bonsoir,
Un exemple de procédure évènementielle qui s'applique à la zone A15:G15, sans prendre en compte la question des cellules fusionnées qui comme déjà dit ici un nombre incalculable de fois sont à proscrire et absolument inutiles. Elles ne font que compliquer à plaisir.

 

[Ilino]

Re : Commentaire Visible sous condition

Bonjour françois
merci pour la réponse , mais je n'ai pas le choix mon fichier est plein de cellules fusionnées

j'ai trouvé ce code mais il bug

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect([Z9], Target) Is Nothing And Target.Count = 1 Then
        If Target = "" Then
            Target.Offset(, 0).ClearComments
            Target.Offset(, 0).AddComment
            Target.Offset(, 0).Comment.Visible = True
            Target.Offset(, 0).Comment.Text Text:="Veuillez Sélectionner une Unité"
        Else
            Target.Offset(, 0).ClearComments
            
        End If
   

 End If
  

End Sub