Microsoft 365 Rendre obligatoire le remplissage d'un commentaire

[sebastien176]

Bonjour à tous,

Dans le classeur ci-joint, la colonne H doit être remplie par des valeurs (de -3 à 3) via une liste déroulante

J'ai insérer un code pour que si la valeur est négative, une boite de dialogue s'ouvre afin d'insérer un commentaire dans la cellule

Le problème que je n'arrive pas à résoudre est que si je clic sur annuler, il n'y a pas de commentaire dans la cellule
J'aimerais dons rendre obligatoire le fait de saisir le commentaire

ci-dessous le code vba

Dim conforme, y As String
conforme = ActiveCell.Value

Select Case conforme

Case "-1"

y = InputBox("Merci de préciser la non-conformité de la zone", "Commentaire")

If y <> "" Then
If ActiveCell.Comment Is Nothing Then
Target.AddComment
Target.Comment.Visible = False
Target.Comment.Text Text:=y
Target.Select
Else
Target.Comment.Delete
Target.AddComment
Target.Comment.Visible = False
Target.Comment.Text Text:=y
Target.Select
End If
End If

Je vous remercie par avance de votre aide

Sébastien

 

[sylvanu]

Bonjour Sebastien,
Peut être trivial mais efficace, la création d'une fonction :

Function Commentaire(y)
    y = InputBox("Merci de préciser la non-conformité de la zone", "Commentaire")
    If y = "" Then y = Commentaire("")
    Commentaire = y
End Function

Mais ça boucle à l'infini si rien n'est écrit dans la box.
L'appel se fait par : y = Commentaire(""), la structure If y="" peut disparaitre.

 

[sebastien176]

Bonjour Sylvanu,

Merci encore une fois tu me dépanne énormément
J'ai ajouté un message box dans ton code pour "aiguiller" l'utilisateur

Function Commentaire(y)
MsgBox "Veuillez préciser la non-conformité"
y = InputBox("Merci de préciser la non-conformité de la zone", "Commentaire")
If y = "" Then y = Commentaire("")
Commentaire = y
End Function

Merci encore et bonne journée

Seb