Bonjour à tous,

j'ai deux liste déroulante sur une feuille, l'une contient des noms, l'autre contient les références de ces noms.
Je voudrais que lorsque l'on choisit une valeur dans la liste déroulante des noms, la référence s'affecte dans la liste des références et inversement.

Le problème s'est quand je choisis une valeur d'un liste et que je renseigne la référence dans l'autre liste, le programme tourne en rond. Il se met à rechercher suivant la référence, puisqu'elle a été changé.

Je suis peut-être pas clair. Je vous met le programme ci-dessous :
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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Worksheet_Change(ByVal target As Range)
 
'Saisie du nom pour le numéro
nomg = Range("D4")
 
With Worksheets("donnees").Range("C2:C173")
    Set c = .Find(nomg, LookIn:=xlValues)
    If Not c Is Nothing Then
        ligne = c.Row
        num = Worksheets("donnees").Cells(ligne, 2)
    End If
End With
 
Range("F4") = num
 
'Saisie du numéro pour le nom
numg = Range("F4")
 
With Worksheets("donnees").Range("C2:C173")
    Set c = .Find(numg, LookIn:=xlValues)
    If Not c Is Nothing Then
        ligne = c.Row
        nom = Worksheets("donnees").Cells(ligne, 3)
    End If
End With
 
Range("D4") = num
 
End Sub
Comment empêcher que la valeur trouvée, suivant le choix, ne soit pas considérer comme un changement ?

Merci pour votre aide,

LeRico