Je me permets d'exposer ici mon problème car j'ai besoin d'un petit coup de
pouce pour m'aider à avancer...
Voici mon problème :
J'ai un classeur contenant seulement deux feuilles.
La première feuille s'appelle "Article". Elle contient des cellules remplies
de references(numérique) d'articles.
La seconde feuilles s'appelle "Fabricant". Elle contient uniquement deux
colones. La premières colonne contient toutes les réferences d'articles
connues (les mêmes que la première feuille), la seconde colonne contient
l'identite du fabricant qui produit l'objet.
Je souhaite, lorsque je clique une fois sur une cellule de la feuille
"Article", faire apparaitre le fabricant de la référence dans le commentaire
de cette cellule.
Est-ce que quelqu'un peut compléter (ou corriger) le code suivant car je
n'arrive pas à récupérer la cellule contenant le nom du fabricant pour le
passer en commentaire de la cellule cliquée sur la première feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.UsedRange.ClearComments
If IsNumeric(Target) And Target.Value <> "" Then
RefAIdentifier = Target.Value
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
Bonjour Jean-Luc,
Private Sub Worksheet_SelectionChange(ByVal Target As Range) on erreur resume next ActiveSheet.Target.ClearComments Set LaValeur = Sheets("Fabricant").Range(Target.Address) Set plageR = Sheets("Fabricant").Columns("A:A") Set plageT = Sheets("Fabricant").Columns("B:B") fab = Application.Index(plageT, Application.Match(LaValeur, plageR, 0)) Target.AddComment.Text Text:="Cet article est produit par :" & Fabricant & fab End Sub
isabelle
Bsr
Je me permets d'exposer ici mon problème car j'ai besoin d'un petit coup de pouce pour m'aider à avancer...
Voici mon problème : J'ai un classeur contenant seulement deux feuilles. La première feuille s'appelle "Article". Elle contient des cellules remplies de references(numérique) d'articles. La seconde feuilles s'appelle "Fabricant". Elle contient uniquement deux colones. La premières colonne contient toutes les réferences d'articles connues (les mêmes que la première feuille), la seconde colonne contient l'identite du fabricant qui produit l'objet.
Je souhaite, lorsque je clique une fois sur une cellule de la feuille "Article", faire apparaitre le fabricant de la référence dans le commentaire de cette cellule.
Est-ce que quelqu'un peut compléter (ou corriger) le code suivant car je n'arrive pas à récupérer la cellule contenant le nom du fabricant pour le passer en commentaire de la cellule cliquée sur la première feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.UsedRange.ClearComments If IsNumeric(Target) And Target.Value <> "" Then RefAIdentifier = Target.Value
Target.AddComment.Text Text:="Cet article est produit par :" & Fabricant & ""
End If End Sub
Bonjour Jean-Luc,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
on erreur resume next
ActiveSheet.Target.ClearComments
Set LaValeur = Sheets("Fabricant").Range(Target.Address)
Set plageR = Sheets("Fabricant").Columns("A:A")
Set plageT = Sheets("Fabricant").Columns("B:B")
fab = Application.Index(plageT, Application.Match(LaValeur, plageR, 0))
Target.AddComment.Text Text:="Cet article est produit par :" & Fabricant
& fab
End Sub
isabelle
Bsr
Je me permets d'exposer ici mon problème car j'ai besoin d'un petit coup de
pouce pour m'aider à avancer...
Voici mon problème :
J'ai un classeur contenant seulement deux feuilles.
La première feuille s'appelle "Article". Elle contient des cellules remplies
de references(numérique) d'articles.
La seconde feuilles s'appelle "Fabricant". Elle contient uniquement deux
colones. La premières colonne contient toutes les réferences d'articles
connues (les mêmes que la première feuille), la seconde colonne contient
l'identite du fabricant qui produit l'objet.
Je souhaite, lorsque je clique une fois sur une cellule de la feuille
"Article", faire apparaitre le fabricant de la référence dans le commentaire
de cette cellule.
Est-ce que quelqu'un peut compléter (ou corriger) le code suivant car je
n'arrive pas à récupérer la cellule contenant le nom du fabricant pour le
passer en commentaire de la cellule cliquée sur la première feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.UsedRange.ClearComments
If IsNumeric(Target) And Target.Value <> "" Then
RefAIdentifier = Target.Value
Private Sub Worksheet_SelectionChange(ByVal Target As Range) on erreur resume next ActiveSheet.Target.ClearComments Set LaValeur = Sheets("Fabricant").Range(Target.Address) Set plageR = Sheets("Fabricant").Columns("A:A") Set plageT = Sheets("Fabricant").Columns("B:B") fab = Application.Index(plageT, Application.Match(LaValeur, plageR, 0)) Target.AddComment.Text Text:="Cet article est produit par :" & Fabricant & fab End Sub
isabelle
Bsr
Je me permets d'exposer ici mon problème car j'ai besoin d'un petit coup de pouce pour m'aider à avancer...
Voici mon problème : J'ai un classeur contenant seulement deux feuilles. La première feuille s'appelle "Article". Elle contient des cellules remplies de references(numérique) d'articles. La seconde feuilles s'appelle "Fabricant". Elle contient uniquement deux colones. La premières colonne contient toutes les réferences d'articles connues (les mêmes que la première feuille), la seconde colonne contient l'identite du fabricant qui produit l'objet.
Je souhaite, lorsque je clique une fois sur une cellule de la feuille "Article", faire apparaitre le fabricant de la référence dans le commentaire de cette cellule.
Est-ce que quelqu'un peut compléter (ou corriger) le code suivant car je n'arrive pas à récupérer la cellule contenant le nom du fabricant pour le passer en commentaire de la cellule cliquée sur la première feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.UsedRange.ClearComments If IsNumeric(Target) And Target.Value <> "" Then RefAIdentifier = Target.Value
Target.AddComment.Text Text:="Cet article est produit par :" & Fabricant & ""
End If End Sub
isabelle
rectification, il faut modifier cette ligne Set LaValeur = Sheets("Fabricant").Range(Target.Address) par Set LaValeur = Sheets("Article").Range(Target.Address)
isabelle
Bonjour Jean-Luc,
Private Sub Worksheet_SelectionChange(ByVal Target As Range) on erreur resume next ActiveSheet.Target.ClearComments Set LaValeur = Sheets("Fabricant").Range(Target.Address) Set plageR = Sheets("Fabricant").Columns("A:A") Set plageT = Sheets("Fabricant").Columns("B:B") fab = Application.Index(plageT, Application.Match(LaValeur, plageR, 0)) Target.AddComment.Text Text:="Cet article est produit par :" & Fabricant & fab End Sub
isabelle
Bsr
Je me permets d'exposer ici mon problème car j'ai besoin d'un petit coup de pouce pour m'aider à avancer...
Voici mon problème : J'ai un classeur contenant seulement deux feuilles. La première feuille s'appelle "Article". Elle contient des cellules remplies de references(numérique) d'articles. La seconde feuilles s'appelle "Fabricant". Elle contient uniquement deux colones. La premières colonne contient toutes les réferences d'articles connues (les mêmes que la première feuille), la seconde colonne contient l'identite du fabricant qui produit l'objet.
Je souhaite, lorsque je clique une fois sur une cellule de la feuille "Article", faire apparaitre le fabricant de la référence dans le commentaire de cette cellule.
Est-ce que quelqu'un peut compléter (ou corriger) le code suivant car je n'arrive pas à récupérer la cellule contenant le nom du fabricant pour le passer en commentaire de la cellule cliquée sur la première feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.UsedRange.ClearComments If IsNumeric(Target) And Target.Value <> "" Then RefAIdentifier = Target.Value
Target.AddComment.Text Text:="Cet article est produit par :" & Fabricant & ""
End If End Sub
rectification, il faut modifier cette ligne
Set LaValeur = Sheets("Fabricant").Range(Target.Address)
par
Set LaValeur = Sheets("Article").Range(Target.Address)
isabelle
Bonjour Jean-Luc,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
on erreur resume next
ActiveSheet.Target.ClearComments
Set LaValeur = Sheets("Fabricant").Range(Target.Address)
Set plageR = Sheets("Fabricant").Columns("A:A")
Set plageT = Sheets("Fabricant").Columns("B:B")
fab = Application.Index(plageT, Application.Match(LaValeur, plageR, 0))
Target.AddComment.Text Text:="Cet article est produit par :" & Fabricant
& fab
End Sub
isabelle
Bsr
Je me permets d'exposer ici mon problème car j'ai besoin d'un petit coup de
pouce pour m'aider à avancer...
Voici mon problème :
J'ai un classeur contenant seulement deux feuilles.
La première feuille s'appelle "Article". Elle contient des cellules remplies
de references(numérique) d'articles.
La seconde feuilles s'appelle "Fabricant". Elle contient uniquement deux
colones. La premières colonne contient toutes les réferences d'articles
connues (les mêmes que la première feuille), la seconde colonne contient
l'identite du fabricant qui produit l'objet.
Je souhaite, lorsque je clique une fois sur une cellule de la feuille
"Article", faire apparaitre le fabricant de la référence dans le commentaire
de cette cellule.
Est-ce que quelqu'un peut compléter (ou corriger) le code suivant car je
n'arrive pas à récupérer la cellule contenant le nom du fabricant pour le
passer en commentaire de la cellule cliquée sur la première feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.UsedRange.ClearComments
If IsNumeric(Target) And Target.Value <> "" Then
RefAIdentifier = Target.Value
rectification, il faut modifier cette ligne Set LaValeur = Sheets("Fabricant").Range(Target.Address) par Set LaValeur = Sheets("Article").Range(Target.Address)
isabelle
Bonjour Jean-Luc,
Private Sub Worksheet_SelectionChange(ByVal Target As Range) on erreur resume next ActiveSheet.Target.ClearComments Set LaValeur = Sheets("Fabricant").Range(Target.Address) Set plageR = Sheets("Fabricant").Columns("A:A") Set plageT = Sheets("Fabricant").Columns("B:B") fab = Application.Index(plageT, Application.Match(LaValeur, plageR, 0)) Target.AddComment.Text Text:="Cet article est produit par :" & Fabricant & fab End Sub
isabelle
Bsr
Je me permets d'exposer ici mon problème car j'ai besoin d'un petit coup de pouce pour m'aider à avancer...
Voici mon problème : J'ai un classeur contenant seulement deux feuilles. La première feuille s'appelle "Article". Elle contient des cellules remplies de references(numérique) d'articles. La seconde feuilles s'appelle "Fabricant". Elle contient uniquement deux colones. La premières colonne contient toutes les réferences d'articles connues (les mêmes que la première feuille), la seconde colonne contient l'identite du fabricant qui produit l'objet.
Je souhaite, lorsque je clique une fois sur une cellule de la feuille "Article", faire apparaitre le fabricant de la référence dans le commentaire de cette cellule.
Est-ce que quelqu'un peut compléter (ou corriger) le code suivant car je n'arrive pas à récupérer la cellule contenant le nom du fabricant pour le passer en commentaire de la cellule cliquée sur la première feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.UsedRange.ClearComments If IsNumeric(Target) And Target.Value <> "" Then RefAIdentifier = Target.Value
Target.AddComment.Text Text:="Cet article est produit par :" & Fabricant & ""
End If End Sub
AV
Avec, dans la feuille "Fabricant", les plages nommées "NumArticle" et "NomFabricant" (pas de doublons dans "NumArticle" !)
Dans le module de la feuille "Article" :
Private Sub Worksheet_SelectionChange(ByVal zz As Range) On Error Resume Next x = Evaluate("index(NomFabriquant,match(" & [zz] & ",NumArticle,0))") If x = 0 Then zz.ClearComments: Exit Sub With zz .ClearComments .AddComment .Comment.Text Text:="L'article " & zz & " est produit par : " & x .Comment.Shape.TextFrame.AutoSize = True End With End Sub
AV
"Jean-Luc" a écrit dans le message news: blncdv$hlt$
Bsr
Je me permets d'exposer ici mon problème car j'ai besoin d'un petit coup de pouce pour m'aider à avancer...
Voici mon problème : J'ai un classeur contenant seulement deux feuilles. La première feuille s'appelle "Article". Elle contient des cellules remplies de references(numérique) d'articles. La seconde feuilles s'appelle "Fabricant". Elle contient uniquement deux colones. La premières colonne contient toutes les réferences d'articles connues (les mêmes que la première feuille), la seconde colonne contient l'identite du fabricant qui produit l'objet.
Je souhaite, lorsque je clique une fois sur une cellule de la feuille "Article", faire apparaitre le fabricant de la référence dans le commentaire de cette cellule.
Est-ce que quelqu'un peut compléter (ou corriger) le code suivant car je n'arrive pas à récupérer la cellule contenant le nom du fabricant pour le passer en commentaire de la cellule cliquée sur la première feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.UsedRange.ClearComments If IsNumeric(Target) And Target.Value <> "" Then RefAIdentifier = Target.Value
Target.AddComment.Text Text:="Cet article est produit par :" & Fabricant & ""
End If End Sub
Avec, dans la feuille "Fabricant", les plages nommées "NumArticle" et
"NomFabricant"
(pas de doublons dans "NumArticle" !)
Dans le module de la feuille "Article" :
Private Sub Worksheet_SelectionChange(ByVal zz As Range)
On Error Resume Next
x = Evaluate("index(NomFabriquant,match(" & [zz] & ",NumArticle,0))")
If x = 0 Then zz.ClearComments: Exit Sub
With zz
.ClearComments
.AddComment
.Comment.Text Text:="L'article " & zz & " est produit par : " & x
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub
AV
"Jean-Luc" <Toto@aol.com> a écrit dans le message news:
blncdv$hlt$1@news-reader5.wanadoo.fr...
Bsr
Je me permets d'exposer ici mon problème car j'ai besoin d'un petit coup de
pouce pour m'aider à avancer...
Voici mon problème :
J'ai un classeur contenant seulement deux feuilles.
La première feuille s'appelle "Article". Elle contient des cellules remplies
de references(numérique) d'articles.
La seconde feuilles s'appelle "Fabricant". Elle contient uniquement deux
colones. La premières colonne contient toutes les réferences d'articles
connues (les mêmes que la première feuille), la seconde colonne contient
l'identite du fabricant qui produit l'objet.
Je souhaite, lorsque je clique une fois sur une cellule de la feuille
"Article", faire apparaitre le fabricant de la référence dans le commentaire
de cette cellule.
Est-ce que quelqu'un peut compléter (ou corriger) le code suivant car je
n'arrive pas à récupérer la cellule contenant le nom du fabricant pour le
passer en commentaire de la cellule cliquée sur la première feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.UsedRange.ClearComments
If IsNumeric(Target) And Target.Value <> "" Then
RefAIdentifier = Target.Value
Avec, dans la feuille "Fabricant", les plages nommées "NumArticle" et "NomFabricant" (pas de doublons dans "NumArticle" !)
Dans le module de la feuille "Article" :
Private Sub Worksheet_SelectionChange(ByVal zz As Range) On Error Resume Next x = Evaluate("index(NomFabriquant,match(" & [zz] & ",NumArticle,0))") If x = 0 Then zz.ClearComments: Exit Sub With zz .ClearComments .AddComment .Comment.Text Text:="L'article " & zz & " est produit par : " & x .Comment.Shape.TextFrame.AutoSize = True End With End Sub
AV
"Jean-Luc" a écrit dans le message news: blncdv$hlt$
Bsr
Je me permets d'exposer ici mon problème car j'ai besoin d'un petit coup de pouce pour m'aider à avancer...
Voici mon problème : J'ai un classeur contenant seulement deux feuilles. La première feuille s'appelle "Article". Elle contient des cellules remplies de references(numérique) d'articles. La seconde feuilles s'appelle "Fabricant". Elle contient uniquement deux colones. La premières colonne contient toutes les réferences d'articles connues (les mêmes que la première feuille), la seconde colonne contient l'identite du fabricant qui produit l'objet.
Je souhaite, lorsque je clique une fois sur une cellule de la feuille "Article", faire apparaitre le fabricant de la référence dans le commentaire de cette cellule.
Est-ce que quelqu'un peut compléter (ou corriger) le code suivant car je n'arrive pas à récupérer la cellule contenant le nom du fabricant pour le passer en commentaire de la cellule cliquée sur la première feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.UsedRange.ClearComments If IsNumeric(Target) And Target.Value <> "" Then RefAIdentifier = Target.Value
Target.AddComment.Text Text:="Cet article est produit par :" & Fabricant & ""
End If End Sub
JeanLuc
Merci pour ta réponse. Ton code fonctionne à merveille. A+
"isabelle" a écrit dans le message de news:
rectification, il faut modifier cette ligne Set LaValeur = Sheets("Fabricant").Range(Target.Address) par Set LaValeur = Sheets("Article").Range(Target.Address)
isabelle
Bonjour Jean-Luc,
Private Sub Worksheet_SelectionChange(ByVal Target As Range) on erreur resume next ActiveSheet.Target.ClearComments Set LaValeur = Sheets("Fabricant").Range(Target.Address) Set plageR = Sheets("Fabricant").Columns("A:A") Set plageT = Sheets("Fabricant").Columns("B:B") fab = Application.Index(plageT, Application.Match(LaValeur, plageR, 0)) Target.AddComment.Text Text:="Cet article est produit par :" & Fabricant & fab End Sub
isabelle
Bsr
Je me permets d'exposer ici mon problème car j'ai besoin d'un petit coup de
pouce pour m'aider à avancer...
Voici mon problème : J'ai un classeur contenant seulement deux feuilles. La première feuille s'appelle "Article". Elle contient des cellules remplies
de references(numérique) d'articles. La seconde feuilles s'appelle "Fabricant". Elle contient uniquement deux
colones. La premières colonne contient toutes les réferences d'articles
connues (les mêmes que la première feuille), la seconde colonne contient
l'identite du fabricant qui produit l'objet.
Je souhaite, lorsque je clique une fois sur une cellule de la feuille "Article", faire apparaitre le fabricant de la référence dans le commentaire
de cette cellule.
Est-ce que quelqu'un peut compléter (ou corriger) le code suivant car je
n'arrive pas à récupérer la cellule contenant le nom du fabricant pour le
passer en commentaire de la cellule cliquée sur la première feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.UsedRange.ClearComments If IsNumeric(Target) And Target.Value <> "" Then RefAIdentifier = Target.Value
Target.AddComment.Text Text:="Cet article est produit par :" & Fabricant &
""
End If End Sub
Merci pour ta réponse. Ton code fonctionne à merveille.
A+
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
3F7F3B4C.1D37E0F3@videotron.ca...
rectification, il faut modifier cette ligne
Set LaValeur = Sheets("Fabricant").Range(Target.Address)
par
Set LaValeur = Sheets("Article").Range(Target.Address)
isabelle
Bonjour Jean-Luc,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
on erreur resume next
ActiveSheet.Target.ClearComments
Set LaValeur = Sheets("Fabricant").Range(Target.Address)
Set plageR = Sheets("Fabricant").Columns("A:A")
Set plageT = Sheets("Fabricant").Columns("B:B")
fab = Application.Index(plageT, Application.Match(LaValeur, plageR, 0))
Target.AddComment.Text Text:="Cet article est produit par :" & Fabricant
& fab
End Sub
isabelle
Bsr
Je me permets d'exposer ici mon problème car j'ai besoin d'un petit
coup de
pouce pour m'aider à avancer...
Voici mon problème :
J'ai un classeur contenant seulement deux feuilles.
La première feuille s'appelle "Article". Elle contient des cellules
remplies
de references(numérique) d'articles.
La seconde feuilles s'appelle "Fabricant". Elle contient uniquement
deux
colones. La premières colonne contient toutes les réferences
d'articles
connues (les mêmes que la première feuille), la seconde colonne
contient
l'identite du fabricant qui produit l'objet.
Je souhaite, lorsque je clique une fois sur une cellule de la feuille
"Article", faire apparaitre le fabricant de la référence dans le
commentaire
de cette cellule.
Est-ce que quelqu'un peut compléter (ou corriger) le code suivant car
je
n'arrive pas à récupérer la cellule contenant le nom du fabricant pour
le
passer en commentaire de la cellule cliquée sur la première feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.UsedRange.ClearComments
If IsNumeric(Target) And Target.Value <> "" Then
RefAIdentifier = Target.Value
Merci pour ta réponse. Ton code fonctionne à merveille. A+
"isabelle" a écrit dans le message de news:
rectification, il faut modifier cette ligne Set LaValeur = Sheets("Fabricant").Range(Target.Address) par Set LaValeur = Sheets("Article").Range(Target.Address)
isabelle
Bonjour Jean-Luc,
Private Sub Worksheet_SelectionChange(ByVal Target As Range) on erreur resume next ActiveSheet.Target.ClearComments Set LaValeur = Sheets("Fabricant").Range(Target.Address) Set plageR = Sheets("Fabricant").Columns("A:A") Set plageT = Sheets("Fabricant").Columns("B:B") fab = Application.Index(plageT, Application.Match(LaValeur, plageR, 0)) Target.AddComment.Text Text:="Cet article est produit par :" & Fabricant & fab End Sub
isabelle
Bsr
Je me permets d'exposer ici mon problème car j'ai besoin d'un petit coup de
pouce pour m'aider à avancer...
Voici mon problème : J'ai un classeur contenant seulement deux feuilles. La première feuille s'appelle "Article". Elle contient des cellules remplies
de references(numérique) d'articles. La seconde feuilles s'appelle "Fabricant". Elle contient uniquement deux
colones. La premières colonne contient toutes les réferences d'articles
connues (les mêmes que la première feuille), la seconde colonne contient
l'identite du fabricant qui produit l'objet.
Je souhaite, lorsque je clique une fois sur une cellule de la feuille "Article", faire apparaitre le fabricant de la référence dans le commentaire
de cette cellule.
Est-ce que quelqu'un peut compléter (ou corriger) le code suivant car je
n'arrive pas à récupérer la cellule contenant le nom du fabricant pour le
passer en commentaire de la cellule cliquée sur la première feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.UsedRange.ClearComments If IsNumeric(Target) And Target.Value <> "" Then RefAIdentifier = Target.Value
