Simplifier une formule

Bonjour à tous. Je suis présentement en train de créer un document excel et j'ai besoin d'aide . Je dois afficher plusieurs test logique dans une même cellule et je me demandais s'il était possible de simplifier ma formule. Je vous la présente ci-dessous.

=SI(H$14=$A2;$F$14 & CAR(10);"") & SI(H$15=$A2;$F$15 & CAR(10);"")& SI(H$16=$A2;$F$16 & CAR(10);"")& SI(H$17=$A2;$F$17 & CAR(10);"")& SI(H$18=$A2;$F$18 & CAR(10);"")& SI(H$19=$A2;$F$19 & CAR(10);"")& SI(H$20=$A2;$F$20& CAR(10);"")& SI(H$21=$A2;$F$21 & CAR(10);"")& SI(H$22=$A2;$F$22 & CAR(10);"")& SI(H$23=$A2;$F$23 & CAR(10);"")& SI(H$24=$A2;$F$24 & CAR(10);"")& SI(H$25=$A2;$F$25 & CAR(10);"")& SI(H$26=$A2;$F$26 & CAR(10);"")& SI(H$28=$A2;$F$28 & CAR(10);"")& SI(H$30=$A2;$F$30& CAR(10);"")& SI(H$31=$A2;$F$31 & CAR(10);"")& SI(H$32=$A2;$F$32 & CAR(10);"")& SI(H$33=$A2;$F$33 & CAR(10);"")

Les test logiques sont les mêmes mais je décale toujours d'une case vers le bas. J'aimerais savoir s'il existait une manière de simplifier la formule (du genre écrire A1:A29, ce qui ne fonctionne pas dans mon document).

Merci à vous tous

Bonjour et bienvenu sur le forum,

Il serait plus simple(sympa aussi) d'envoyer ton fichier et demander le résultat voulu.

Voila. Je cherche à simplifier la formule que j'utilise.

Merci

Re,

Je n'ai pas trouvé mieux qu'une fonction personnalisée (avec 3 paramètres) vba suivante qui est incluse dans ton classeur en retour :

Function concat(CelAComparer As Range, PlageAComparer As Range, ColAConcatener As Integer) As String
    Dim c As Range, chaine As String
    For Each c In PlageAComparer
        If c = CelAComparer Then
            chaine = chaine + Cells(c.Row, ColAConcatener) + Chr(10)
        End If
    Next c
    concat = chaine
End Function

Tu trouveras ci-joint ton classeur dans lequel, j'ai testé cette fonction. A tester de ton côté.

Désolé pour le retard.

NB: La plage à concaténer qui est précisée par le 3ème paramètre "ColAconcatener" de la fonction devrait avoir la même dimension