Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Insertion commentaire par userform selon condition

annov

XLDnaute Occasionnel
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
 

Pièces jointes

  • Insertion commentaire via userform.xlsm
    18.5 KB · Affichages: 61
  • Insertion commentaire via userform.xlsm
    18.5 KB · Affichages: 50
  • Insertion commentaire via userform.xlsm
    18.5 KB · Affichages: 49

annov

XLDnaute Occasionnel
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
 

annov

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


@+
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…