Recherche de reference avec doublon

[Laguich]

Bonjour,
j'ai une cellule B3 dans laquelle je rentre une ref. Dans la cellule C4 cela me donne la désignation correspondante via un rechercheV.
Le souci est que dans mes références je peux avoir des doublon et pas forcement la meme désignation.
Donc par rechercheV impossible, mais par VBA a chaque fois que je rentre une valeur dans les cellules B et qu'il existe des doublons, peux t'il mafficher ces doublons pour que je choisisse celui qui me convient.?
Si oui comment?
Merci d'avance

 

[R@chid]

Re : Recherche de reference avec doublon

Bonjour,
Voir PJ


@ + +

 

[Laguich]

Re : Recherche de reference avec doublon

Merci pour cette réponse ultra rapide.
Par contre comment as tu fait?
Et j'ai quand meme un souci, car j'aimerai que quand il n'y a pas plusieurs solutions, cela affiche la désignation directement.

Merci

 

[R@chid]

Re : Recherche de reference avec doublon

J'ai fait avec un champ dynamique, voir gestionnaire de noms.
par contre pour ta 2ème question, on ne peut pas le faire sans VBA.

@ + +

 

[Laguich]

Re : Recherche de reference avec doublon

ok merci
Mais as tu une idée pour le faire en VBA?

 

[R@chid]

Re : Recherche de reference avec doublon

Re,
une âme charitable va surement passer par là pour te donner de l'aide.


@ + +

 

[Laguich]

Re : Recherche de reference avec doublon

Quelqu'un as t-il une solution en VBA alors.
Merci d'avance

 

[pierrejean]

Re : Recherche de reference avec doublon

Bonjour Laguich

Salut Rachid

Vois si cela te convient

 

[R@chid]

Re : Recherche de reference avec doublon

Re,
Bonjour pierrejean, ravi de te voir et merci d’être pencher sur le sujet.
le questionneur veut que ce soit sur la même cellule, et s'il y des doublons, il veut une liste de roulante qui lui permet le choix, sinon on renvoie juste la valeur existante.


@ + +

 

[pierrejean]

Re : Recherche de reference avec doublon

Re

Cher Rachid , ce n'est pas exactement ce que je lis dans le # 1
Mais c'est peut-être possible . J'attend donc l'avis de Laguich

 

[R@chid]

Re : Recherche de reference avec doublon

Re,

peux t'il mafficher ces doublons pour que je choisisse celui qui me convient.?

alors j'ai répondu en post #2, alors il a dit que c'est ce qu'il veut sauf il faut que s'il n'y pas de doublons, que l'on affiche directement la réponse dans la cellule.
Sinon si c’était le cas on pourrait le faire aussi par formule sur plusieurs s colonnes.

@ + +

 

[pierrejean]

Re : Recherche de reference avec doublon

Re

Pour avoir le choix

 

[BOISGONTIER]

Re : Recherche de reference avec doublon

Bonsoir,

Voir PJ
-Si une Ref, le libellé est mis automatiquement
-Si plusieurs Ref, choix du libellé dans le menu

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect([B3:B4], Target) Is Nothing And Target.Count = 1 Then
    Target.Offset(0, 1) = Empty
    n = Application.CountIf([ref], Target)
    Select Case n
      Case 1
        Target.Offset(0, 1) = [ref].Find(Target, LookAt:=xlWhole, LookIn:=xlValues).Offset(0, 1)
      Case Is > 1
        Target.Offset(0, 1).Select
        SendKeys "%{down}"
      End Select
   End If
End Sub

http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DVFacultatif.xls
http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DVPlusieursRef.xls


JB

 

[Laguich]

Re : Recherche de reference avec doublon

Bonjour,
Merci Messieurs pour votre travail.
J'opte pour la solution à Pierrejean qui me convient mieux.
Il me reste une question la base de données se trouve en fait dans un autre classeur comment le declarer?
et mes references je les rentres dans les cellules de B4 à B12
Merci d'avance

Re

Pour avoir le choix

 

[pierrejean]

Re : Recherche de reference avec doublon

Re

Modifie le code comme ceci (en adaptant le nom du fichier ,celui de le feuille et celui du range)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([B4:B12], Target) Is Nothing And Target.Count = 1 Then
Range("C" & Target.Row & ":J" & Target.Row).ClearContents
'tablo = Range("B10:D" & Range("B" & Rows.Count).End(xlUp).Row)
tablo = Workbooks("LeFichier").Sheets("LaFeuille").Range("B10:D" & Range("B" & Rows.Count).End(xlUp).Row)
  For n = LBound(tablo, 1) To UBound(tablo, 1)
  If tablo(n, 2) = Target.Value Then
   liste = liste & tablo(n, 3) & ","
  End If
  Next
liste = Left(liste, Len(liste) - 1)
 If InStr(liste, ",") <> 0 Then
  With Target.Offset(0, 1).Validation
   .Delete
   .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:=liste
  End With
  Target.Offset(0, 1).Select
 Else
  With Target.Offset(0, 1).Validation
   .Delete
  End With
  Target.Offset(0, 1) = liste
 End If
End If
End Sub

LeFichier devra etre ouvert