Re : Insertion commentaire par userform selon condition
Re bonjour ,
Le code que vous m'avez donné fonctionne tellement bien que j'ai souhaité l'appliquer sur une autre colonne , mais à première vue
je ne peux pas avoir 2 instructions Private Sub Worksheet_Change(ByVal zz As Range) identiques sur la même feuille ?
Pourriez vous m'aider svp .
Private Sub Worksheet_Change(ByVal zz As Range)
On Error GoTo fin
If zz.Column < 2 Or zz.Column >= 3 Then
Application.StatusBar = ""
Exit Sub
End If
'x = "Ce produit n'est pas étiqueté N° de non-conformité 123330"
If zz.Value <> "Origine inconnue" Then
Application.StatusBar = ""
zz.ClearComments: Exit Sub
End If
If zz.Value = "Origine inconnue" Then
x = InputBox("inscrivez le commentaire")
With zz
.ClearComments
.AddComment
.NoteText Format(x, "General")
.Comment.Shape.TextFrame.AutoSize = True
End With
Application.StatusBar = False
End If
fin:
End Sub
Private Sub Worksheet_Change(ByVal zz As Range)
On Error GoTo fin
If zz.Column < 7 Or zz.Column >= 8 Then
Application.StatusBar = ""
Exit Sub
End If
'x = "Ce code n'est pas identifié"
If zz.Value <> "Code inconnu" Then
Application.StatusBar = ""
zz.ClearComments: Exit Sub
End If
If zz.Value = "Code inconnu" Then
x = InputBox("inscrivez le commentaire")
With zz
.ClearComments
.AddComment
.NoteText Format(x, "General")
.Comment.Shape.TextFrame.AutoSize = True
End With
Application.StatusBar = False
End If
fin:
End Sub