sebastien176
XLDnaute Junior
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
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