Insertion commentaire par userform selon condition

annov · 7 Janvier 2012

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 · 7 Janvier 2012

Re : Insertion commentaire par userform selon condition

Bonjour

en espérant que cela corresponde à la demande

Fred0o · 7 Janvier 2012

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 · 7 Janvier 2012

Re : Insertion commentaire par userform selon condition

voilà une autre version

Edit : Salut Fred0o

annov · 7 Janvier 2012

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 · 7 Janvier 2012

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 · 7 Janvier 2012

Re : Insertion commentaire par userform selon condition

Re,

Oups j'avais oublié de joindre le fichier.

Merci d'avance
@+

gilbert_RGI · 7 Janvier 2012

Re : Insertion commentaire par userform selon condition

ben voilà une possibilité

excuse pour le temps de réponse déplacement

gilbert_RGI · 7 Janvier 2012

Re : Insertion commentaire par userform selon condition

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

annov · 7 Janvier 2012

Re : Insertion commentaire par userform selon condition

Encore merci , pour ton aide .

Bonne soirée
@+

gilbert_RGI · 7 Janvier 2012

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 · 8 Janvier 2012

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 · 8 Janvier 2012

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 · 8 Janvier 2012

Re : Insertion commentaire par userform selon condition

Re,

Ok merci pour l'explication

Bonne journée.

annov · 9 Janvier 2012

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 .

@+

Insertion commentaire par userform selon condition

annov

XLDnaute Occasionnel

Pièces jointes

gilbert_RGI

XLDnaute Barbatruc

Pièces jointes

Fred0o

XLDnaute Barbatruc

Pièces jointes

gilbert_RGI

XLDnaute Barbatruc

Pièces jointes

annov

XLDnaute Occasionnel

annov

XLDnaute Occasionnel

annov

XLDnaute Occasionnel

Pièces jointes

gilbert_RGI

XLDnaute Barbatruc

Pièces jointes

gilbert_RGI

XLDnaute Barbatruc

annov

XLDnaute Occasionnel

gilbert_RGI

XLDnaute Barbatruc

annov

XLDnaute Occasionnel

gilbert_RGI

XLDnaute Barbatruc

Pièces jointes

annov

XLDnaute Occasionnel

annov

XLDnaute Occasionnel

Discussions similaires