XL 2016 RechercheV avec plusieurs résultats

J

JHA

XLDnaute Barbatruc

• 12 Avril 2024

• #16

Bonjour à tous,

A essayer

JHA

 

Pièces jointes

• Exemple forum.xlsm

  26.8 KB · Affichages: 2

Vote positif 0 Vote négatif

E

Englobe

XLDnaute Nouveau

• 12 Avril 2024

• #17

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

 

Vote positif 0 Vote négatif

E

Englobe

XLDnaute Nouveau

• 12 Avril 2024

• #18

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?

VB:

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

 

Pièces jointes

• test1.xlsm

  19.7 KB · Affichages: 1

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Avril 2024

• #19

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 :

VB:

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.

 

Pièces jointes

• test1 (1).xlsm

  20.6 KB · Affichages: 3

Vote positif 0 Vote négatif

E

Englobe

XLDnaute Nouveau

• 12 Avril 2024

• #20

sylvanu à dit:

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 :

VB:

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Avril 2024

• #21

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

VB:

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.

 

Pièces jointes

• test1 (V2).xlsm

  20.5 KB · Affichages: 3

Vote positif 0 Vote négatif

E

Englobe

XLDnaute Nouveau

• 13 Avril 2024

• #22

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.

 

Dernière édition: 13 Avril 2024

Vote positif 0 Vote négatif

E

Englobe

XLDnaute Nouveau

• 13 Avril 2024

• #23

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

 

Vote positif 0 Vote négatif