• Initiateur de la discussion Initiateur de la discussion tancrouge
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

tancrouge

XLDnaute Nouveau
j'ai un TCD provenant d'une grosse base de données avec beaucoup de colonnes dont "code de produit" et "numero de code barre"(feuil1).

Pour certains produits je n'ai qu'un seul code barre pour d'autre, j'en ai plusieurs.

dans un tableau de synthese qui comprendra plusieur colonnes que j'irai chercher avec une recherchev, je voudrai avoir le code produits et le code barre sur la meme ligne, j'ai donc un probleme pour réunir les 3 même codes barre correspondant à un code produit dans la meme cellule.

pouvez vous donc m'aider SVP?

Merci d'avance

J'ai joint un petit fichier si quelqu'un peut m'aider.
 

Pièces jointes

Re : rechercheV

Bonjour et bienvenu sur le forum,

La formule suivante en C7 et à copier vers le bas :

Code:
=RECHERCHEV(B7;BDD;2;0)


Bonjour, et merci beaucoup pour la réponse rapide. mais cela ne répond pas tout à fait à ma question, peut-etre me suis-je mal exprimer!

pour le produit 2 par example qui a 3 codes barre, quand j'applique ta formule je ne retrouve qu'un seul code barre sur la ligne, et je souhaiterai avoir les 3 dans la meme ligne et dans la même cellule.

Merci
 
Re : rechercheV

Bonjour,

L'idéal serait de nous mettre un fichier avec, en manuel, le résultat tel que tu le souhaites.

A priori, la disposition de ton tableau ne facilite pas l'exploitation des données. Par exemple : Produit 2 n'est mentionné qu'une seule fois pour les 3 lignes.

A te (re)lire avec ton fichier exemple complété.

@+
 
Re : rechercheV

Bonjour, merci de répondre!

Produit 2 n'est mentionné qu'une fois en effet pour 3 codes barre différent (c'est le résultat de mon TCD)

Le but étant de regrouper dans un tableau de synthèse les codes produits qui m'interessent et leurs codes barres. Je re-précise que les codes bar doivent etre regrouper dans la meme cellule se trouvant en face du code produit...

Est-il possible, de plus, de faire cette manip avec une recherchev?

Par avance, merci

Cdlt
 

Pièces jointes

  • EX.xls
    EX.xls
    15.5 KB · Affichages: 50
  • EX.xls
    EX.xls
    15.5 KB · Affichages: 51
  • EX.xls
    EX.xls
    15.5 KB · Affichages: 48
Re : rechercheV

re,

Mettre les différents codes dans une même cellule va être difficile à réaliser par formule.

En effet, dans la mesure où on ne connait pas le nombre de codes à concaténer, on ne sait pas non plus le nombre de formules à concaténer.

Question : combien de codes barre maxi peut-il y avoir par code produit ?

Ca sera sans doute plus facile à faire en vba plutôt qu'en formule, mais question vba, je laisse la parole à mes amis Vbaïstes.

@+
 
Re : rechercheV

Bonsoir,

Avec UDF


=rechtous(B7;BDD!$B$6:$B$100;BDD!$C$6:$C$100)

Code:
Function RechTous(v, champRech As Range, ChampRetour As Range)
  a = champRech
  b = ChampRetour
  temp = ""
  n = champRech.Count
  p = Application.Match(v, a, 0)
  Do While (a(p, 1) = v Or a(p, 1) = "") And p < n
    temp = temp & b(p, 1) & " "
    p = p + 1
  Loop
  RechTous = temp
End Function

JB
Formation Excel VBA JB
 

Pièces jointes

Dernière édition:
Re : rechercheV

Merci pour ta réponse boisgontier.

Alors j'ai tester, cela ne marche pas dans mon fichier.

Mais quand je copie mon tableau dans le fichier que tu m'as fait cela marche très bien...

Pourquoi?

J'ai aussi remarquer que la case "utlilitaire d'analyse - VBA "dans le menu macro complémentaires n'est pas activée, est-ce important?

Merci D'avance
 
Re : rechercheV

Il faut créer la fonction dans un module (Alt+F11 puis Insertion/Module)


Code:
Function RechTous(v, champRech As Range, ChampRetour As Range)
  a = champRech
  b = ChampRetour
  temp = ""
  n = champRech.Count
  p = Application.Match(v, a, 0)
  Do While (a(p, 1) = v Or a(p, 1) = "") And p < n
    temp = temp & b(p, 1) & " "
    p = p + 1
  Loop
  RechTous = temp
End Function

JB
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
40
Affichages
1 K
Réponses
0
Affichages
350
Réponses
2
Affichages
148
Réponses
3
Affichages
155
  • Question Question
Microsoft 365 Problème Code VBA
Réponses
9
Affichages
450
Retour