Insertion commentaire par userform selon condition

Re : Insertion commentaire par userform selon condition

sur quelle ligne il y a cette erreur ?

Re : Insertion commentaire par userform selon condition

Bonjour , Gilbert_rgi

Sur la ligne:


x = InputBox("Ce produit n'est pas étiqueté N° de non-conformité 123330")


@+

Re : Insertion commentaire par userform selon condition

Re,

j'ai mis le code complet et en rouge la ligne ou ça bloque .


@+


Private Sub Worksheet_Change(ByVal zz As Range)
On Error GoTo fin
Select Case zz.Column
Case Is = 3
If zz.Value = "Origine inconnue" Then
x = InputBox("Ce produit n'est pas étiqueté N° de non-conformité 123330")
With zz
.ClearComments
.AddComment
.NoteText Format(x, "General")
.Comment.Shape.TextFrame.AutoSize = True
End With

Else
zz.ClearComments
End If
Case Is = 7
If zz.Value = " Code inconnu " Then
x = InputBox("Noter le code provisoire ")
With zz
.ClearComments
.AddComment
.NoteText x
.Comment.Shape.TextFrame.AutoSize = True
End With

Else
zz.ClearComments
End If
End Select
fin:
End Sub

Re : Insertion commentaire par userform selon condition

je n'ai pas le problème avec ma version 2007

je vais essayer demain avec une version 2003

Bonne soirée

Re : Insertion commentaire par userform selon condition

Bonsoir,

Le problème est résolu , cela venait d'un problème de fichier DLL non présent sur mon pc (installation office récente ).


@+

Re : Insertion commentaire par userform selon condition

ok car j'ai essayé sur différentes machines et je n'ai constaté aucun blocage

@+++++