Bonjour au forum
J'aimerais pouvoir rentrer une formule dans une cellule en VBA. La formule a été écrite par un pro (Jocelyn) et fonctionne très bien pour mon problème.
Le but est de pouvoir rentrer la formule en VBA dans chaque cellule d'une colonne en changeant au fur et à mesure le "A1" dans la formule en "A2" etc. "i" remplacerait le numéro de ligne.
J'ai essayé plein de guillemets surement mal placés car le compilateur attend toujours quelque chose.
Formule ci dessous
=(SIERREUR(DATE(STXT(A1;CHERCHE(",";A1)+2;4);MOIS(GAUCHE(A1;CHERCHE(" ";A1)-1)&1);STXT(A1;CHERCHE(" ";A1)+1;CHERCHE(",";A1)-(CHERCHE(" ";A1)+1)))+SI(ET(TEMPSVAL(STXT(A1;CHERCHE(":";A1)-2;2)&":"&STXT(A1;CHERCHE(":";A1)+1;2))>"11:59"*1;ESTNUM(CHERCHE("avant";A1)));TEMPSVAL(STXT(A1;CHERCHE(",";A1)+6;6))-("12:00"*1);SI(OU(ET(TEMPSVAL(STXT(A1;CHERCHE(":";A1)-2;2)&":"&STXT(A1;CHERCHE(":";A1)+1;2))>"11:59"*1;ESTNUM(CHERCHE("ap";A1)));ESTNUM(CHERCHE("avant";A1)));TEMPSVAL(STXT(A1;CHERCHE(",";A1)+6;6));TEMPSVAL(STXT(A1;CHERCHE(",";A1)+6;6))+("12:00"*1)));DATE(STXT(A1;CHERCHE(",";A1)+2;4);MOIS(GAUCHE(A1;CHERCHE(" ";A1)-1)&1);STXT(A1;CHERCHE(" ";A1)+1;CHERCHE(",";A1)-(CHERCHE(" ";A1)+1)))+SI(ET(TEMPSVAL(STXT(A1;CHERCHE(":";A1)-2;2)&":"&STXT(A1;CHERCHE(":";A1)+1;2))>"11:59"*1;ESTNUM(CHERCHE("avant";A1)));TEMPSVAL(STXT(A1;CHERCHE(",";A1)+6;5))-("12:00"*1);SI(OU(ET(TEMPSVAL(STXT(A1;CHERCHE(":";A1)-2;2)&":"&STXT(A1;CHERCHE(":";A1)+1;2))>"11:59"*1;ESTNUM(CHERCHE("ap";A1)));ESTNUM(CHERCHE("avant";A1)));TEMPSVAL(STXT(A1;CHERCHE(",";A1)+6;5));TEMPSVAL(STXT(A1;CHERCHE(",";A1)+6;5))+("12:00"*1)))))*1
J'aimerais pouvoir rentrer une formule dans une cellule en VBA. La formule a été écrite par un pro (Jocelyn) et fonctionne très bien pour mon problème.
Le but est de pouvoir rentrer la formule en VBA dans chaque cellule d'une colonne en changeant au fur et à mesure le "A1" dans la formule en "A2" etc. "i" remplacerait le numéro de ligne.
J'ai essayé plein de guillemets surement mal placés car le compilateur attend toujours quelque chose.
Formule ci dessous
=(SIERREUR(DATE(STXT(A1;CHERCHE(",";A1)+2;4);MOIS(GAUCHE(A1;CHERCHE(" ";A1)-1)&1);STXT(A1;CHERCHE(" ";A1)+1;CHERCHE(",";A1)-(CHERCHE(" ";A1)+1)))+SI(ET(TEMPSVAL(STXT(A1;CHERCHE(":";A1)-2;2)&":"&STXT(A1;CHERCHE(":";A1)+1;2))>"11:59"*1;ESTNUM(CHERCHE("avant";A1)));TEMPSVAL(STXT(A1;CHERCHE(",";A1)+6;6))-("12:00"*1);SI(OU(ET(TEMPSVAL(STXT(A1;CHERCHE(":";A1)-2;2)&":"&STXT(A1;CHERCHE(":";A1)+1;2))>"11:59"*1;ESTNUM(CHERCHE("ap";A1)));ESTNUM(CHERCHE("avant";A1)));TEMPSVAL(STXT(A1;CHERCHE(",";A1)+6;6));TEMPSVAL(STXT(A1;CHERCHE(",";A1)+6;6))+("12:00"*1)));DATE(STXT(A1;CHERCHE(",";A1)+2;4);MOIS(GAUCHE(A1;CHERCHE(" ";A1)-1)&1);STXT(A1;CHERCHE(" ";A1)+1;CHERCHE(",";A1)-(CHERCHE(" ";A1)+1)))+SI(ET(TEMPSVAL(STXT(A1;CHERCHE(":";A1)-2;2)&":"&STXT(A1;CHERCHE(":";A1)+1;2))>"11:59"*1;ESTNUM(CHERCHE("avant";A1)));TEMPSVAL(STXT(A1;CHERCHE(",";A1)+6;5))-("12:00"*1);SI(OU(ET(TEMPSVAL(STXT(A1;CHERCHE(":";A1)-2;2)&":"&STXT(A1;CHERCHE(":";A1)+1;2))>"11:59"*1;ESTNUM(CHERCHE("ap";A1)));ESTNUM(CHERCHE("avant";A1)));TEMPSVAL(STXT(A1;CHERCHE(",";A1)+6;5));TEMPSVAL(STXT(A1;CHERCHE(",";A1)+6;5))+("12:00"*1)))))*1