securité des feuilles

bonsoir Souhaeil

la macro ci-dessous permet de controler s'il y a un commentaire dans la cellule A1

Sub ControleSiCommentaire()
Dim Commentaire As Boolean
Commentaire = Len(Range("A1").NoteText)
If Commentaire = True Then
MsgBox "oui"
Else
MsgBox "non"
End If
End Sub


bonne soiree
michel

rebonsoir Souhaeil

la solution proposee par Wally dans le lien ci dessous sera mieux adaptee

Lien supprimé


bonne soiree
michel