J'ai édité une formule qui me convient et qui fonctionne. Celle-ci sert à récupérer des adresses mails à partir d'un classeur et des les concaténer afin de ne faire qu'un seul "copier / coller" sur ma messagerie. Cela sert pour une association de musique
Le problème est que cette formule est très longue car je dois la répéter pour chaque ligne. De plus, lorsque je souhaite faire des évolutions, je dois répéter l'évolution maintes fois.
Je voulais savoir s'il y a une moyen de réduire cette formule s'il vous plaît ?
Voici un bout de la formule qui me sert pour une seule ligne du classeur :
Code : Tout sélectionner
SI(Feuille1.B2<>"Oui";SI(Feuille1.F2="Piano";SI(Feuille1.O2<>"";Feuille1.O2;"" );"");"");SI(SI(Feuille1.B2<>"Oui";SI(Feuille1.F2="Piano";SI(Feuille1.O2<>"";Feuille1.O2;"" );"");"")="";"";",")
Code : Tout sélectionner
=CONCATENER(SI(Feuille1.B2<>"Oui";SI(Feuille1.F2="Piano";SI(Feuille1.O2<>"";Feuille1.O2;"" );"");"");SI(SI(Feuille1.B2<>"Oui";SI(Feuille1.F2="Piano";SI(Feuille1.O2<>"";Feuille1.O2;"" );"");"")="";"";",");SI(Feuille1.B3<>"Oui";SI(Feuille1.F3="Piano";SI(Feuille1.O3<>"";Feuille1.O3;"" );"");"");SI(SI(Feuille1.B3<>"Oui";SI(Feuille1.F3="Piano";SI(Feuille1.O3<>"";Feuille1.O3;"" );"");"")="";"";",");SI(Feuille1.B4<>"Oui";SI(Feuille1.F4="Piano";SI(Feuille1.O4<>"";Feuille1.O4;"" );"");"");SI(SI(Feuille1.B4<>"Oui";SI(Feuille1.F4="Piano";SI(Feuille1.O4<>"";Feuille1.O4;"" );"");"")="";"";",");SI(Feuille1.B5<>"Oui";SI(Feuille1.F5="Piano";SI(Feuille1.O5<>"";Feuille1.O5;"" );"");"");SI(SI(Feuille1.B5<>"Oui";SI(Feuille1.F5="Piano";SI(Feuille1.O5<>"";Feuille1.O5;"" );"");"")="";"";",");SI(Feuille1.B6<>"Oui";SI(Feuille1.F6="Piano";SI(Feuille1.O6<>"";Feuille1.O6;"" );"");"");SI(SI(Feuille1.B6<>"Oui";SI(Feuille1.F6="Piano";SI(Feuille1.O6<>"";Feuille1.O6;"" );"");"")="";"";",");SI(Feuille1.B7<>"Oui";SI(Feuille1.F7="Piano";SI(Feuille1.O7<>"";Feuille1.O7;"" );"");"");SI(SI(Feuille1.B7<>"Oui";SI(Feuille1.F7="Piano";SI(Feuille1.O7<>"";Feuille1.O7;"" );"");"")="";"";",");SI(Feuille1.B8<>"Oui";SI(Feuille1.F8="Piano";SI(Feuille1.O8<>"";Feuille1.O8;"" );"");"");SI(SI(Feuille1.B8<>"Oui";SI(Feuille1.F8="Piano";SI(Feuille1.O8<>"";Feuille1.O8;"" );"");"")="";"";",");SI(Feuille1.B9<>"Oui";SI(Feuille1.F9="Piano";SI(Feuille1.O9<>"";Feuille1.O9;"" );"");"");SI(SI(Feuille1.B9<>"Oui";SI(Feuille1.F9="Piano";SI(Feuille1.O9<>"";Feuille1.O9;"" );"");"")="";"";",");SI(Feuille1.B10<>"Oui";SI(Feuille1.F10="Piano";SI(Feuille1.O10<>"";Feuille1.O10;"" );"");"");SI(SI(Feuille1.B10<>"Oui";SI(Feuille1.F10="Piano";SI(Feuille1.O10<>"";Feuille1.O10;"" );"");"")="";"";",");SI(Feuille1.B11<>"Oui";SI(Feuille1.F11="Piano";SI(Feuille1.O11<>"";Feuille1.O11;"" );"");"");SI(SI(Feuille1.B11<>"Oui";SI(Feuille1.F11="Piano";SI(Feuille1.O11<>"";Feuille1.O11;"" );"");"")="";"";",");SI(Feuille1.B12<>"Oui";SI(Feuille1.F12="Piano";SI(Feuille1.O12<>"";Feuille1.O12;"" );"");"");SI(SI(Feuille1.B12<>"Oui";SI(Feuille1.F12="Piano";SI(Feuille1.O12<>"";Feuille1.O12;"" );"");"")="";"";",");SI(Feuille1.B13<>"Oui";SI(Feuille1.F13="Piano";SI(Feuille1.O13<>"";Feuille1.O13;"" );"");"");SI(SI(Feuille1.B13<>"Oui";SI(Feuille1.F13="Piano";SI(Feuille1.O13<>"";Feuille1.O13;"" );"");"")="";"";",");SI(Feuille1.B14<>"Oui";SI(Feuille1.F14="Piano";SI(Feuille1.O14<>"";Feuille1.O14;"" );"");"");SI(SI(Feuille1.B14<>"Oui";SI(Feuille1.F14="Piano";SI(Feuille1.O14<>"";Feuille1.O14;"" );"");"")="";"";",");SI(Feuille1.B15<>"Oui";SI(Feuille1.F15="Piano";SI(Feuille1.O15<>"";Feuille1.O15;"" );"");"");SI(SI(Feuille1.B15<>"Oui";SI(Feuille1.F15="Piano";SI(Feuille1.O15<>"";Feuille1.O15;"" );"");"")="";"";",");SI(Feuille1.B16<>"Oui";SI(Feuille1.F16="Piano";SI(Feuille1.O16<>"";Feuille1.O16;"" );"");"");SI(SI(Feuille1.B16<>"Oui";SI(Feuille1.F16="Piano";SI(Feuille1.O16<>"";Feuille1.O16;"" );"");"")="";"";",");SI(Feuille1.B17<>"Oui";SI(Feuille1.F17="Piano";SI(Feuille1.O17<>"";Feuille1.O17;"" );"");"");SI(SI(Feuille1.B17<>"Oui";SI(Feuille1.F17="Piano";SI(Feuille1.O17<>"";Feuille1.O17;"" );"");"")="";"";",");SI(Feuille1.B18<>"Oui";SI(Feuille1.F18="Piano";SI(Feuille1.O18<>"";Feuille1.O18;"" );"");"");SI(SI(Feuille1.B18<>"Oui";SI(Feuille1.F18="Piano";SI(Feuille1.O18<>"";Feuille1.O18;"" );"");"")="";"";",");SI(Feuille1.B19<>"Oui";SI(Feuille1.F19="Piano";SI(Feuille1.O19<>"";Feuille1.O19;"" );"");"");SI(SI(Feuille1.B19<>"Oui";SI(Feuille1.F19="Piano";SI(Feuille1.O19<>"";Feuille1.O19;"" );"");"")="";"";",");SI(Feuille1.B20<>"Oui";SI(Feuille1.F20="Piano";SI(Feuille1.O20<>"";Feuille1.O20;"" );"");"");SI(SI(Feuille1.B20<>"Oui";SI(Feuille1.F20="Piano";SI(Feuille1.O20<>"";Feuille1.O20;"" );"");"")="";"";",");SI(Feuille1.B21<>"Oui";SI(Feuille1.F21="Piano";SI(Feuille1.O21<>"";Feuille1.O21;"" );"");"");SI(SI(Feuille1.B21<>"Oui";SI(Feuille1.F21="Piano";SI(Feuille1.O21<>"";Feuille1.O21;"" );"");"")="";"";",");SI(Feuille1.B22<>"Oui";SI(Feuille1.F22="Piano";SI(Feuille1.O22<>"";Feuille1.O22;"" );"");"");SI(SI(Feuille1.B22<>"Oui";SI(Feuille1.F22="Piano";SI(Feuille1.O22<>"";Feuille1.O22;"" );"");"")="";"";",");SI(Feuille1.B23<>"Oui";SI(Feuille1.F23="Piano";SI(Feuille1.O23<>"";Feuille1.O23;"" );"");"");SI(SI(Feuille1.B23<>"Oui";SI(Feuille1.F23="Piano";SI(Feuille1.O23<>"";Feuille1.O23;"" );"");"")="";"";",");SI(Feuille1.B24<>"Oui";SI(Feuille1.F24="Piano";SI(Feuille1.O24<>"";Feuille1.O24;"" );"");"");SI(SI(Feuille1.B24<>"Oui";SI(Feuille1.F24="Piano";SI(Feuille1.O24<>"";Feuille1.O24;"" );"");"")="";"";",");SI(Feuille1.B25<>"Oui";SI(Feuille1.F25="Piano";SI(Feuille1.O25<>"";Feuille1.O25;"" );"");"");SI(SI(Feuille1.B25<>"Oui";SI(Feuille1.F25="Piano";SI(Feuille1.O25<>"";Feuille1.O25;"" );"");"")="";"";",");SI(Feuille1.B26<>"Oui";SI(Feuille1.F26="Piano";SI(Feuille1.O26<>"";Feuille1.O26;"" );"");"");SI(SI(Feuille1.B26<>"Oui";SI(Feuille1.F26="Piano";SI(Feuille1.O26<>"";Feuille1.O26;"" );"");"")="";"";",");SI(Feuille1.B27<>"Oui";SI(Feuille1.F27="Piano";SI(Feuille1.O27<>"";Feuille1.O27;"" );"");"");SI(SI(Feuille1.B27<>"Oui";SI(Feuille1.F27="Piano";SI(Feuille1.O27<>"";Feuille1.O27;"" );"");"")="";"";",");SI(Feuille1.B28<>"Oui";SI(Feuille1.F28="Piano";SI(Feuille1.O28<>"";Feuille1.O28;"" );"");"");SI(SI(Feuille1.B28<>"Oui";SI(Feuille1.F28="Piano";SI(Feuille1.O28<>"";Feuille1.O28;"" );"");"")="";"";",");SI(Feuille1.B29<>"Oui";SI(Feuille1.F29="Piano";SI(Feuille1.O29<>"";Feuille1.O29;"" );"");"");SI(SI(Feuille1.B29<>"Oui";SI(Feuille1.F29="Piano";SI(Feuille1.O29<>"";Feuille1.O29;"" );"");"")="";"";",");SI(Feuille1.B30<>"Oui";SI(Feuille1.F30="Piano";SI(Feuille1.O30<>"";Feuille1.O30;"" );"");"");SI(SI(Feuille1.B30<>"Oui";SI(Feuille1.F30="Piano";SI(Feuille1.O30<>"";Feuille1.O30;"" );"");"")="";"";",");SI(Feuille1.B31<>"Oui";SI(Feuille1.F31="Piano";SI(Feuille1.O31<>"";Feuille1.O31;"" );"");"");SI(SI(Feuille1.B31<>"Oui";SI(Feuille1.F31="Piano";SI(Feuille1.O31<>"";Feuille1.O31;"" );"");"")="";"";",");SI(Feuille1.B32<>"Oui";SI(Feuille1.F32="Piano";SI(Feuille1.O32<>"";Feuille1.O32;"" );"");"");SI(SI(Feuille1.B32<>"Oui";SI(Feuille1.F32="Piano";SI(Feuille1.O32<>"";Feuille1.O32;"" );"");"")="";"";",");SI(Feuille1.B33<>"Oui";SI(Feuille1.F33="Piano";SI(Feuille1.O33<>"";Feuille1.O33;"" );"");"");SI(SI(Feuille1.B23<>"Oui";SI(Feuille1.F33="Piano";SI(Feuille1.O33<>"";Feuille1.O33;"" );"");"")="";"";",");SI(Feuille1.B34<>"Oui";SI(Feuille1.F34="Piano";SI(Feuille1.O34<>"";Feuille1.O34;"" );"");"");SI(SI(Feuille1.B34<>"Oui";SI(Feuille1.F34="Piano";SI(Feuille1.O34<>"";Feuille1.O34;"" );"");"")="";"";",");SI(Feuille1.B35<>"Oui";SI(Feuille1.F35="Piano";SI(Feuille1.O35<>"";Feuille1.O35;"" );"");"");SI(SI(Feuille1.B35<>"Oui";SI(Feuille1.F35="Piano";SI(Feuille1.O35<>"";Feuille1.O35;"" );"");"")="";"";",");SI(Feuille1.B36<>"Oui";SI(Feuille1.F36="Piano";SI(Feuille1.O36<>"";Feuille1.O36;"" );"");"");SI(SI(Feuille1.B36<>"Oui";SI(Feuille1.F36="Piano";SI(Feuille1.O36<>"";Feuille1.O36;"" );"");"")="";"";",");SI(Feuille1.B37<>"Oui";SI(Feuille1.F37="Piano";SI(Feuille1.O37<>"";Feuille1.O37;"" );"");"");SI(SI(Feuille1.B37<>"Oui";SI(Feuille1.F37="Piano";SI(Feuille1.O37<>"";Feuille1.O37;"" );"");"")="";"";",");SI(Feuille1.B38<>"Oui";SI(Feuille1.F38="Piano";SI(Feuille1.O38<>"";Feuille1.O38;"" );"");"");SI(SI(Feuille1.B38<>"Oui";SI(Feuille1.F38="Piano";SI(Feuille1.O38<>"";Feuille1.O38;"" );"");"")="";"";",");SI(Feuille1.B39<>"Oui";SI(Feuille1.F39="Piano";SI(Feuille1.O39<>"";Feuille1.O39;"" );"");"");SI(SI(Feuille1.B39<>"Oui";SI(Feuille1.F39="Piano";SI(Feuille1.O39<>"";Feuille1.O39;"" );"");"")="";"";",");SI(Feuille1.B40<>"Oui";SI(Feuille1.F40="Piano";SI(Feuille1.O40<>"";Feuille1.O40;"" );"");"");SI(SI(Feuille1.B40<>"Oui";SI(Feuille1.F40="Piano";SI(Feuille1.O40<>"";Feuille1.O40;"" );"");"")="";"";",");SI(Feuille1.B41<>"Oui";SI(Feuille1.F41="Piano";SI(Feuille1.O41<>"";Feuille1.O41;"" );"");"");SI(SI(Feuille1.B41<>"Oui";SI(Feuille1.F41="Piano";SI(Feuille1.O41<>"";Feuille1.O41;"" );"");"")="";"";",");SI(Feuille1.B42<>"Oui";SI(Feuille1.F42="Piano";SI(Feuille1.O42<>"";Feuille1.O42;"" );"");"");SI(SI(Feuille1.B42<>"Oui";SI(Feuille1.F42="Piano";SI(Feuille1.O42<>"";Feuille1.O42;"" );"");"")="";"";",");SI(Feuille1.B43<>"Oui";SI(Feuille1.F43="Piano";SI(Feuille1.O43<>"";Feuille1.O43;"" );"");"");SI(SI(Feuille1.B43<>"Oui";SI(Feuille1.F43="Piano";SI(Feuille1.O43<>"";Feuille1.O43;"" );"");"")="";"";",");SI(Feuille1.B44<>"Oui";SI(Feuille1.F44="Piano";SI(Feuille1.O44<>"";Feuille1.O44;"" );"");"");SI(SI(Feuille1.B34<>"Oui";SI(Feuille1.F34="Piano";SI(Feuille1.O34<>"";Feuille1.O34;"" );"");"")="";"";",");SI(Feuille1.B35<>"Oui";SI(Feuille1.F35="Piano";SI(Feuille1.O35<>"";Feuille1.O35;"" );"");"");SI(SI(Feuille1.B45<>"Oui";SI(Feuille1.F45="Piano";SI(Feuille1.O45<>"";Feuille1.O45;"" );"");"")="";"";",");SI(Feuille1.B46<>"Oui";SI(Feuille1.F46="Piano";SI(Feuille1.O46<>"";Feuille1.O46;"" );"");"");SI(SI(Feuille1.B46<>"Oui";SI(Feuille1.F46="Piano";SI(Feuille1.O46<>"";Feuille1.O46;"" );"");"")="";"";",");SI(Feuille1.B47<>"Oui";SI(Feuille1.F47="Piano";SI(Feuille1.O47<>"";Feuille1.O47;"" );"");"");SI(SI(Feuille1.B47<>"Oui";SI(Feuille1.F47="Piano";SI(Feuille1.O47<>"";Feuille1.O47;"" );"");"")="";"";",");SI(Feuille1.B48<>"Oui";SI(Feuille1.F48="Piano";SI(Feuille1.O48<>"";Feuille1.O48;"" );"");"");SI(SI(Feuille1.B48<>"Oui";SI(Feuille1.F48="Piano";SI(Feuille1.O48<>"";Feuille1.O48;"" );"");"")="";"";",");SI(Feuille1.B49<>"Oui";SI(Feuille1.F49="Piano";SI(Feuille1.O49<>"";Feuille1.O49;"" );"");"");SI(SI(Feuille1.B49<>"Oui";SI(Feuille1.F49="Piano";SI(Feuille1.O49<>"";Feuille1.O49;"" );"");"")="";"";","))
PS : Pour récupérer les adresses mails et non la formule lors du "copier / coller", je fait en suite un "copier / coller spécial" vers une autre case du classeur, cela ne copie que le texte résultant de la formule.
Merci,