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

Bonjour

en espérant que cela corresponde à la demande

 

[Fred0o]

Re : Insertion commentaire par userform selon condition

Bonjour annov,

Voici une proposition dans ton fichier d'origine. J'ai fait en sorte que l'USF s'affiche et que le commentaire se mette dans la cellule. Cependant, je n'ai pas touché au reste du code de l'USF qui n'est pas très adapté à l'USF actuel. Tu fais référence à des contrôles qui n'existent pas ou plus.

A+

Edit : BING !!! Salut Gilbert

 

[gilbert_RGI]

Re : Insertion commentaire par userform selon condition

voilà une autre version



Edit : Salut Fred0o

 

[annov]

Re : Insertion commentaire par userform selon condition

Merci ,gilbert_RGI ,Fred0o

Pour vos réponses super rapides qui conviennent exactement à ce que je souhaite .

@+

 

[annov]

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

 

[annov]

Re : Insertion commentaire par userform selon condition

Re,

Oups j'avais oublié de joindre le fichier.

Merci d'avance
@+

 

[gilbert_RGI]

Re : Insertion commentaire par userform selon condition

ben voilà une possibilité

excuse pour le temps de réponse déplacement

 

[gilbert_RGI]

Re : Insertion commentaire par userform selon condition

pas vu le message précédent mais ce n'est pas compliqué pour adapter

 

[annov]

Re : Insertion commentaire par userform selon condition

Encore merci , pour ton aide .

Bonne soirée
@+

 

[gilbert_RGI]

Re : Insertion commentaire par userform selon condition

si tu veux des remarques sur le code ou mettre des couleurs dans le commentaire c'est possible

 

[annov]

Re : Insertion commentaire par userform selon condition

Bonjour, Gilbert_RGI

J'aimerais avoir quelques précisions sur ce point : lorsque que je saisi un nombre dans le commentaire il est inscrit en lettres
exemple :4569 au clavier dans le commentaire => Ge0eral .

Est-ce sur cette ligne qu'il faut modifier quelque chose ?

NoteText Format(x, "General")


Merci .

 

[gilbert_RGI]

Re : Insertion commentaire par userform selon condition

le Format(x, "General") c'est pour donner un format standard à x qui est le text
ça peut être sans problème noteText x

voilà un autre essai voir la colonne valeur

 

[annov]

Re : Insertion commentaire par userform selon condition

Re,

Ok merci pour l'explication

Bonne journée.

 

[annov]

Re : Insertion commentaire par userform selon condition

Bonsoir,

J'ai testé très content de mon petit fichier et je l'ai testé sur excel 2003 mais j'ai une erreur 1004 ?

Est ce que cela peut venir de la macro ? mais je ne comprend pas j'ai testé sous 97 pas de problème non plus .


@+