Discussion :

[Abdel_koum]

Bonjour,

J’aimerai rechercher dans une BD des codes et attribuer des N° en fonction des codes trouvés.

Soit :
Une liste de code et des N° qui leurs sont attribués
Une base de donnée avec des codes
J’attribue au code un N° suivant la liste

Sous Excel j’utilise cette formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=INDEX(Code!B$2:C$23;EQUIV(C2;Code!B$2:B$23;0);2)

Ma BD étant de plus en plus volumineuse j’aimerais utiliser une macro VBA Excel pour attribuer ces numéros en fonction des codes.

En gros le code serait de cette nature :
IF la valeur de la colonne C est égale au contenu de la colonne B de la feuille Code
Then
On attribut la valeur de la colonne C de la feuille Code correspondante à la colonne D
ELSE
On attribut la valeur « Sans » à la colonne D
END IF

Ci-joint une partie de ma BD, avec la liste.

Merci d’avance

[JPierreM]

Ca devrait fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim recherche
Dim leCode
    If Not Intersect(Target, Columns(4)) Is Nothing Then
        recherche = Target.Offset(0, -1)
            With Worksheets("Code").Range("B2:B23")
            Set leCode = .Find(recherche, LookIn:=xlValues)
                If Not leCode Is Nothing Then
                    Target = leCode.Offset(0, 1)
                Else
                    MsgBox "Pas de code correspondant"
                End If
            End With
    End If
End Sub

[Abdel_koum]

Merci bien, je vais regarder ça de plus près et je vous tient au courant.


Edit 10h10 :
Parfait merci encore, ça marche très bien.
Pour des soucis de fonctionnalités j'ai juste modifié.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MsgBox "Pas de code correspondant"

Par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Target = "Abs"

En ce qui concerne la formule Excel je l'ai améliorée depuis hier et je suis passé à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=SI(C2="";"";SI(ESTERREUR(INDEX(Code!B$2:C$23;EQUIV(C2;Code!B$2:B$23;0);2));"Abs";INDEX(Code!B$2:C$23;EQUIV(C2;Code!B$2:B$23;0);2)))

Bonne journée à tous.