Note dans liste Excel

Bonjour,

Est-il possible de mettre une note issue d'une liste dans une autre liste pour indiquer le produit correspondant.

Exemple

article 1 jouet 1

article 2 jouet 2

article 3 jouet 3

Donc dans la cellule de l'article 1, il y aurai la note jouet1 et ainsi de suite sachant que les 2 listes ont le même nombre d'article?

Merci pour votre aide :)

Bonjour à tous !

Une proposition (formule unique et dynamique) ?

=LET(
a;tArticles[Articles];
j;tJouets[Jouets];
MAP(a;j;LAMBDA(a;j;a&" "&j))
)

Remarque : Il est important de joindre un fichier (pas une image !), anonymisé mais représentatif, accompagné d'exemples du résultat attendu.

Bonjour JFL

Merci pour votre réponse, mais ce n'est pas tout à fait cela que j'aimerais.

J'ai fais un petit fichier avec le résultat que j'aimerais.

Encore merci,

Patrick,

Bonsoir à tous !

De l'importance de joindre à l'appui de la demande......

Par ailleurs vous évoquiez deux listes. Hors dans votre classeur exemple, il n'y a qu'une seule table à traiter......

Je tente néanmoins ceci :

EDIT : Si votre besoin est d'obtenir la deuxième partie en note, il faudra, je pense recourir à une macro. Dans ce domaine, je passe la main.

Merci JFL,

Mais c'est bien la 2° partie en note que j'aimerais avoir.

Encore merci pour votre aide.

Patrick

Bonsoir à tous de nouveau !

Le forum regorge de spécialistes VBA....

Une proposition ne devrait pas tarder.

Bonjour,
Pour le fun et à adapter !...
Cdlt.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, r2 As Range, cmt As Comment, sText As String
    If Target.Address = "$E$2" Then
        Set cmt = Target.Comment
        If Not cmt Is Nothing Then cmt.Delete
        If Not IsEmpty(Target) Then
            With Me.ListObjects(1)
                Set r = .ListColumns(1).DataBodyRange
                Set r2 = .ListColumns(2).DataBodyRange
            End With
            sText = Application.Index(r2, Application.Match(Target, r, 0))
            Set cmt = Target.AddComment
            cmt.Text Text:=sText
        End If
    End If
End Sub

Bonjour Jean Eric

Merci pour votre réponse, mais j'ai 2 problèmes.

1° Je ne sais pas ouvrir le fichier, microsoft a bloquer la macro, je ne sais pas ouvrir le fichier et je ne sais pas comment faire pour le débloquer ( je suis pas très fort en excel, je connait quelques trucs, mais sans plus).

2° Je ne comprend rien à la programmation, que faut-il faire avec le code que vous m'avez écrit?

Merci

Re,
Dans les propriétés du fichier téléchargé, tu coches Déblouer et tu valides.
Tu pouuras ouvrir le fichier avec les macros activées.
A te relire.
Cdlt.

Bonjour Jean-Eric,

Merci pour l'info, j'ai sus ouvrir le fichier.

C'est pas tout à fait cela que j'aimerais, il ne me faut pas de liste déroulante car mes 2 listes ( produits commercials et produits internes - càd article et jouet ) font 328 lignes. Ce que j'aimerais c'est la première liste complétement affichée et en note sur chaque article, le nom pris dans la ° liste en gardant le N° ligne.

Article 1 ( dans la ligne 1 ) à en note jouet 1 ( dans la ligne 1 ) je joint un exemple

Bonjour,
Une nouvelle proposition à adapter !
Cdlt.

Public Sub AddComments()
Dim n As Long
Dim r As Range, rng As Range, rng2 As Range
Dim cmt As Comment
Dim sText As String

    With ActiveSheet
        Range("D3").CurrentRegion.Clear
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set rng = .Range("A3:A" & n)
        Set rng2 = rng.Offset(, 1)
        For Each r In rng.Cells
            sText = Application.Index(rng2, Application.Match(r.Value, rng, 0))
            With r.Offset(, 3)
                .Value = r.Value
                Set cmt = .AddComment
                cmt.Text Text:=sText
            End With
        Next r
    End With
End Sub

Jean-Eric

Encore un tout grand merci, c'est exactement ce que je voulais.

Cordialement,

Patrick,