Afficher tous les résultats possibles dans une cellule

Résolu
mgswb Messages postés 7 Statut Membre -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,

Je souhaiterais une formule ou une macro qui renvoie l'ensemble des résultats possibles selon plusieurs critères dans une seule cellule.
Exemple :
Colonne A = Légume (Carotte/Navet/courgette)
Colonne B = Producteur (Jean/Paul/Pierre)
Colonne C = Nom client (Marie/George/Julie)

Dans une seule case, j'aimerais afficher tous les Nom client qui ont acheté des Carottes venant du producteur Paul.

Merci par avance pour votre aide

6 réponses

  1.
    cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    Comme ceci en vba:

    Faire Alt F11 pour accéder à l'éditeur.

    Insérer un module

    Mettre ce code: 

    Option Explicit
Sub recherche()
Dim n As Integer
 Range("F3") = "" 'reset F3 a adapter cellule de résultat
For n = 2 To Range("A65536").End(xlUp).Row
  If Range("A" & n).Value = "Carotte" Then
   If Range("B" & n).Value = "Paul" Then
    Range("F3") = Range("F3").Value & Range("C" & n).Value & "|"
   End If
  End If
 Next n
 Range("F3").Value = Left(Range("F3").Value, Len(Range("F3").Value) - 1) 'supprime dernier "|"
End Sub


    Associer cette macro à un bouton ou un raccourci clavier

    voilà

    1
    1. mgswb Messages postés 7 Statut Membre 1
       
      Bonjour,

      Ca marche super !
      Merci beaucoup pour votre aide !!
      0
  2. mgswb Messages postés 7 Statut Membre 1
     
    Bonjour,

    est-ce qu'il serait possible d'ajouter une dernière ligne de code afin de supprimer les doublons dans les résultats obtenus ?

    J'ai vu la fonction sansdoublons mais je n'arrive pas à l'appliquer...
    1
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      En cherchant un peu:

      http://boisgontierjacques.free.fr/pages_site/Doublons.htm#DoublonCellule 

      'http://boisgontierjacques.free.fr/pages_site/Doublons.htm#DoublonCellule
Function SansDoublon(c, sep)
  Dim a, mondico, i
  a = Split(Application.Trim(c), sep)
  Set mondico = CreateObject("Scripting.Dictionary")
  For i = 0 To UBound(a): mondico.Item(a(i)) = 1: Next i
  SansDoublon = Join(mondico.keys, sep)
End Function
Sub test()
Range("F3").Value = SansDoublon(Range("F3").Value, "|")
End Sub


      Voilà

      @+ Le Pivert
      0
  3. jesaispastout88 Messages postés 36 Statut Membre 1
     
    Bonjour,

    Je pense qu'il nous manque des renseignements pour répondre à votre problème.
    Est-ce possible de visualiser votre feuille de calcul ?
    0
    1. mgswb Messages postés 7 Statut Membre 1
       


      Voici un tableau d'exemple de mon fichier
      0
  4. eugene
     
    Bonjour,
    Plusieurs réponses possibles, si j'ai bien compris, dans une seule case. Pourriez vous dire pour quelle raison vous faites ce choix ?
    Cordialement.
    0
    1. mgswb Messages postés 7 Statut Membre 1
       
      Bonjour,

      Car j'aimerais que ca marche pour x cas sans avoir à ajouter des lignes pour chaque nouveau cas
      0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Yoyo01000 Messages postés 1720 Date d'inscription   Statut Membre Dernière intervention   168
     
    Bonjour,
    quand vous dites regrouper tous les noms dans la même cellule, c'est de quelle façon ?

    Regroupement horizontal, vertical, avec séparateur, ...?
    0
    1. mgswb Messages postés 7 Statut Membre 1
       
      Bonjour,

      J'aimerais que dans une seule case s'afficher tous les résultats pour les quels mes critères sont vrais, avec un séparateur.
      Un peu comme un concatener avec une fonction si, mais j'aimerais que ca marche pour une nombre de résultats x
      0

Discussions similaires

Excel : afficher toutes les lignes et colonnes masquées
livlarsen -
Mehdiiii -

27 réponses
remettre toutes les colonnes et les lignes masquées
mousaillon -
oumnas -

4 réponses
Probleme d'affichage de ligne dans Excel
sammy79 -
Pierre65 -

12 réponses
afficher des colonnes masquées sur EXCEL
lucie -
delta -

29 réponses
Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses