Insertion commentaire par userform selon condition

[annov]

Bonjour , à tous et meilleurs voeux pour cette année 2012

Pourriez vous m'apporter votre aide sur ce point ?
Lorsque je fais le choix de l'origine d'un produit je voudrais qu'une userform s'affiche pour obliger la saisie d'un commentaire si "Origine inconnue" est inscrit dans une cellule de la plage B5:B21 . voir exemple en B21 .
J'avais vu il y a quelques mois sur le fil une discussion sur le sujet mais je ne l'ai pas retrouvée ?
ci joint un petit fichier .
Merci d'avance pour vos réponses

 

[gilbert_RGI]

Re : Insertion commentaire par userform selon condition

sur quelle ligne il y a cette erreur ?

 

[annov]

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")


@+

 

[annov]

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

 

[gilbert_RGI]

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

 

[annov]

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 ).


@+

 

[gilbert_RGI]

Re : Insertion commentaire par userform selon condition

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

@+++++