XL 2016 RechercheV avec plusieurs résultats

[Ethlios]

Bonjour à tous,

Je suis à la recherche d'une formule similaire à rechercheV. Mon but est de partir d'un critère, dans mon exemple une voiture, et d'afficher toutes les possibilités de couleur liée. Dans mon tableau de donnée on trouvera donc l'information de 3 couleurs associée au critère voiture, je veux donc essayer d'avoir une formule ou une macro pouvant me sortir cette information.

Merci d'avance pour votre aide !

Ethlios.

 

[JHA]

Bonjour à tous,

A essayer

JHA

 

[Englobe]

Bonjour sylvanu,
C'est exactement ce que je cherchais. Je suis débutant et viens de comprendre qu'un array a ses particularités.

Encore merci

 

[Englobe]

Bonjour sylvanu,

Question
J'ai formaté la ligne 5 pour une ajustement automatique de la hauteur mais quand des lignes vertes s'ajoutent ou se retirent, la hauteur de ligne ne s'ajuste pas automatique. Donc des résultats ne sont pas visibles dans la cellules ou que des sauts de lignes demeurent présents. Je dois le faire manuellement à chaque fois.

Pouvons-nous ajouter un code pour que suite à l'instruction "RenvoiResultat = Mid(RenvoiResultat, 2)" la hauteur de ligne de la rangée 5 s'ajuste automatique?

Function RenvoiResultat(Choix As Variant, Plage As Variant)
    c = Choix.Interior.ColorIndex
    For Each cell In Plage
        If Range(cell.Address).Interior.ColorIndex = c Then RenvoiResultat = RenvoiResultat & Chr(10) & Range(cell.Address)
    Next cell
    RenvoiResultat = Mid(RenvoiResultat, 2)
    ' Ajouter ici un code pour que la ligne 5 s'ajuste automatiquement selon les contenus?
End Function

Merci

 

[sylvanu]

Bonsoir,
Je ne sais pas ajuster la hauteur de ligne au sein d'une fonction.
Je vous propose en attendant une solution plus sioux, un bouton avec :

Sub Hligne()
    Rows("4:9").EntireRow.AutoFit
    Calculate
End Sub

J'ai rajouté "application.volatile" dans vos fonctions pour faire un recalcul après le réglage de hauteur.

 

[Englobe]

Bonsoir,
Je ne sais pas ajuster la hauteur de ligne au sein d'une fonction.
Je vous propose en attendant une solution plus sioux, un bouton avec :

Sub Hligne()
    Rows("4:9").EntireRow.AutoFit
    Calculate
End Sub

J'ai rajouté "application.volatile" dans vos fonctions pour faire un recalcul après le réglage de hauteur.

Merci sylvanu,
Je vais l'utiliser en attente.
BFDS

 

[sylvanu]

Bonsoir,
S'il s'avère que votre demande ne puisse être satisfaite, alors autant simplifier avec cette macro :

Sub Remplit()
DL = [A65500].End(xlUp).Row
Set Plage = Range("A13:A" & DL)
For L = 4 To 9
    Cells(L, "B") = RenvoiResultat(Cells(L, "A"), Plage)
    Cells(L, "C") = CompterCouleur(Plage, Cells(L, "A"))
Next L
Rows("4:9").EntireRow.AutoFit
End Sub

Les cellules ne comportent plus de fonctions, l'ensemble est calculé en VBA.

 

[Englobe]

Bonsoir,
Je vérifie demain matin et te reviens. Ça me semble vraiment intéressant et je crois que ce sera la solution.
Encore merci.

 

[Englobe]

Bonsoir,
Ça fonctionne à merveille.
Je vais appliquer cette macro sur un changement d'état de la feuille pour qu'il s'exécute automatiquement.
Encore merci