SI pour toutes les formules de la feuilles

Question

Je cherche comment appliquer la même condition SI soit appliquer à toutes les formules de ma feuille ! Actuellement (au début de mon projet) j ai déjà rédigé cette VBA (les puristes vont certainement prendre peur mais tout fonctionne ) Sub feuilannee() 'campagnes 1975 ? 2006 'Mise en forme ent?te page 'Feuilles r?f?rences et bilan Range("K1,K29") = ActiveSheet.Name Range("K1:U1,K29:U29").Merge 'Ann?e naissance des vaches feuille r?f?rences Range("K3") = "=((K1)-2)" Range("K4:K14") = "=((R&#91;-1&#93;C)-1)" 'Mise en forme ent?te page 'Feuilles enregistrement Range("V1,V29") = ActiveSheet.Name Range("V1:AF1,Z3:AB3,AE3:AG3,V29:AF29,Z31:AB31,AE31:AG31").Merge 'Recherche le p?re dans les pages d'enregistrement Range("x4:x28") = "=IF(INDEX($L$2:$U$2,SUMPRODUCT(MAX(($L$3:$U$28=W4)*COLUMN($L$2:$U$28)))-11)="""","""",INDEX($L$2:$U$2,SUMPRODUCT(MAX(($L$3:$U$28=W4)*COLUMN($L$2:$U$28)))-11))" End Sub Ce que je recherche s'appliquerais (pour le moment) à cette formule Range("x4:x28") = "=IF(INDEX($L$2:$U$2,SUMPRODUCT(MAX(($L$3:$U$28=W4)*COLUMN($L$2:$U$28)))-11)="""","""",INDEX($L$2:$U$2,SUMPRODUCT(MAX(($L$3:$U$28=W4)*COLUMN($L$2:$U$28)))-11))" Et j aimerais un "truc" qui dise =SI ("formule" = "" ; "" " ; "afficher la formule") afin de ne pas être obliger de réécrire la condition à chaque fois et raccourcir les ligne de code ! Merci aux géni(e)s qui sauront éclairer ma lanterne (ou lampe pour les vrai géni(e)s ) Bonne soirée à tous en espérant avoir été suffisamment clair sinon je peut mettre mon fichier à disposition BIDOU...

tulipe_4 · Answer

A tout hasard , c'est faisable sans VBa ; avec la formule CHOISIR =choisir( equiv(le resultat de la formule bidouillé pour avoir 1 ou 2; {1.2};0);""; l'autre formule ) sinon ;mais là je m'avance if machun = xxxx then call ....... cordialement...