Extraire donnée d'un tableau

Bonsoir, je viens d'essayer de faire une formule sous excel pour extraire des données d'un tableau, il y a une erreur que je n'arrive pas a régler.mon fichier comprend 2 feuilles l'un notes et l'autre tableau.

mon tableau a 4 colonnes sur 61 lignes,

la colonne A ceux sont des chiffres et certains on un #

la colonne B les notes de musique version anglo

la colonne C les notes de musique version France

la colonne D les cases sont coloriées d'une certaine couleur

dans la feuille notes en A3 j'ai créé un menu déroulant de la colonne A du tableau (feuille tableau), ce que je souhaite c'est qu en je sélectionne dans le menu deroulant13# je voudrais quand A4 il m affiche F#(colonne B du tableau), en A5 il m'affiche Fa# (colonne C du tableau) et qu'en A6 il mette la couleur associé a la colonne D du tableau.

pour ce faire j'ai fait cette formule que j'ai mis dans le cases A4 - =INDEX(tableau!B:B; MATCH(A3; tableau!A:A; 0)) et pour A5 - =INDEX(tableau!B:B; MATCH(A3; tableau!A:A; 0)) mais j'ai une erreur cela m'affiche #NOM? et je ne trouve pas ou est mon erreur.

si quelqu'un a une idée merci d'avance

Bonsoir Luc71430

#NOM? veut dire qu'Excel ne reconnait pas une fonction

Et à part si vous avez un Excel Anglais, "MATCH" n'est pas bon

A+

ok merci je vais utiliser EQUIV

bonne journée

Bonjour,
Une proposition VBA ?
Cdlt.

bonjour, et merci de m'avoir proposer la version en VBA, et je suis très intéressé mais complétement novice, pourrai tu me dire comment modifié le code VBA que je puisse l'appliquer et essayer de la comprendre, je doit le copier 61 fois sur la ligne 3 (B3, C32, D3 ..... est le dernier BH3). si je tente de copier A3 en A4 avec collage avec validation cela ne fonctionne pas.

j'ai donc créé un nom de la colonne A de la feuille tableau (tableauA) j'ai refait le menu déroulant de la feuille notes en A3 en utilisant le nom tableauA a la place $A$3 et la plus de problème de copie A3 en A4.

pour ce qui est du VBA j'ai rajouté (or Target.Adress = "$A$3") Then mais existe t il une autre méthode pour taper le 61 cellules d'un coup au lieu de taper or target.Adress = $A$? 61 fois.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, n
If Target.Address = "$A$3" or Target.Address = "$A$4" Then
If IsEmpty(Target) Then
Me.Cells(6, 1).Interior.Color = xlNone
Else
Set rng = [Plage]
n = Application.Match(Target.Value, Application.Index(rng, , 1), 4)
If Not (IsError(n)) Then
Target.Offset(3).Interior.Color = Application.Index(rng, n, 4).Interior.Color
End If
End If
End If
End Sub

EDIT modération : code mis entre balises via le bouton "</>", merci d'y penser à l'avenir.

encore merci

bonjour,

remplace ton instruction

If Target.Address = "$A$3" or Target.Address = "$A$4" Then

par celle-ci

If Target.Column = 1 And Target.Row > 2 And Target.Row < 64 Then

ps: merci de mettre ton code (tes macros VBA) en utilisant le bouton "</>"

bonjour, désolé pour le code VBA, je viens de testé et cela ne fonctionne pas, en A3 la couleur ne change pas en A6, j'ai bien les notes qui s'affichent en A4 et A5 et quand je copie ou créer un menu déroulant en B3 j'ai bien la liste qui s'affiche mais pas les notes en B4 et B5 et pas de couleur en B6.

bonne journée

Bonjour,
De ce que je comprends.
Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, n

    If Target.Row = 3 And Target.Column < 61 And Target.CountLarge = 1 Then
        If IsEmpty(Target) Then
            Me.Cells(6, Target.Column).Interior.Color = xlNone
        Else
            Set rng = [Plage]
            n = Application.Match(Target.Value, Application.Index(rng, , 1), 4)
            If Not (IsError(n)) Then
                Target.Offset(3).Interior.Color = Application.Index(rng, n, 4).Interior.Color
            End If
        End If
    End If

End Sub

merci , cela est parfait merci encore

bonjour

néanmoins "equiv" à la place de match et pour la couleur ,utiliser la fonction CODE pour attribuer une couleur dans une MFC , semble abordable

cordialement