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 -
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
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
A voir également:
- Afficher tous les résultats possibles dans une cellule
- Resultats foot - Télécharger - Vie quotidienne
- Aller à la ligne dans une cellule excel - Guide
- Word afficher les commentaires dans la marge - Guide
- Afficher les 0 dans excel - Guide
- Verrouiller une cellule excel - Guide
6 réponses
Bonjour,
Comme ceci en vba:
Faire Alt F11 pour accéder à l'éditeur.
Insérer un module
Mettre ce code:
Associer cette macro à un bouton ou un raccourci clavier
voilà
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à
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...
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...
En cherchant un peu:
http://boisgontierjacques.free.fr/pages_site/Doublons.htm#DoublonCellule
Voilà
@+ Le Pivert
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Ca marche super !
Merci beaucoup pour votre aide !!