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

 

[Laguich]

Re : Recherche de reference avec doublon

Merci pour ta réactivité.
J'ai une erreur sur cette ligne :

If Not Intersect([B4:B12], Target) Then

Puis j'ai modifié, j'ai ajouter la feuille de base directement dans mon classeur, par contre j'ai également une erreur à cette ligne - erreur 5

liste = Left(liste, Len(liste) - 1)

 

[pierrejean]

Re : Recherche de reference avec doublon

Re

Impossible (pour moi) de debuguer sans un fichier exemple

 

[Laguich]

Re : Recherche de reference avec doublon

C'est bon Pierrejean.
Cela marche nickel.
J'ai par contre un dernier petit problème. Comment faire pour que quand la ref demandée n'existe pas dans la base, dans la cellule designation cela marque erreur sans message d'alerte VBA.
Et qaussi que l'on entre la ref en minisucule ou majuscule ne change rien. ('si faisable)
Merci d'avance

 

[Laguich]

Re : Recherche de reference avec doublon

un petit up
Merci d'avance

 

[pierrejean]

Re : Recherche de reference avec doublon

Re

If liste Is Nothing Then
  Target.Value = "Pas trouvé"
  Exit Sub
End If

a ajouter avant

liste = Left(liste, Len(liste) - 1)

 

[Laguich]

Re : Recherche de reference avec doublon

Merci,
Mais cela me met une erreur : Objet requit
Et j'essaie de bouger le code dans tous les sens mais ne trouve pas.

 

[Laguich]

Re : Recherche de reference avec doublon

J'ai trouvé
il fallait mettre ISEMPTY

If IsEmpty(liste) Then

Par contre as tu une idée pour que quelque soit le style (minucule ou majuscule), cela marche?
Merci d'avance

Problème Résolu : avec

Option Compare Text

Merci à tous

 

[Laguich]

Re : Recherche de reference avec doublon

Pierrejean si il passe ou un autre qui aurait une idée.
Etant en dossier partager la liste via "liste de choix" selon le code qui fonctionne ne se crée pas, j'essai donc de passer via un userform.

J'ai modifié le code comme suit, seulement la variable 'liste' affiche les valeurs sur une seule ligne dans la combobox au lieu de faire sur 2 lignes.
voici le code modifié:

  For n = LBound(tablo, 1) To UBound(tablo, 1)
  If tablo(n, 2) = Target.Value Then
   liste = liste & tablo(n, 3) & ","
  End If
  Next
  
  Set lookfor = book1.Sheets(nombase).Range("B" & Target.Row)   ' value to find
 
  If IsEmpty(liste) Then
  Target.Offset(0, 1).Value = "DSL - Peut être erreur de frappe"
  Exit Sub
  Else
 
liste = Left(liste, Len(liste) - 1)
End If
 If InStr(liste, ",") <> 0 Then
UserForm1.ComboBox1.AddItem (liste)
Target.Offset(0, 1).Select
UserForm1.Show

Si vous avez une idée.

Merci d'avance