VBA ne prend pas en compte une fonction
danielc0 Messages postés 1864 Date d'inscription Statut Membre Dernière intervention -
bonsoir à tous
pourquoi l'élément NB.SI(B3;""<>"" & (A3+1))*NB.SI(C3;""<>"" & (B3+1))*NB.SI(D3;""<>"" & (C3+1))*NB.SI(E3;""<>"" & (D3+1))"
dans ce VBA n'est pas pris en compte merci a tous
Sub calculseconde()
start = Timer
Range("H3").FormulaLocal = "=NB.SI(g3;"">0"")*NB.SI(g3;""<5"")*NB.SI(Y3;"">0"")*NB.SI(B3;""<>"" & (A3+1))*NB.SI(C3;""<>"" & (B3+1))*NB.SI(D3;""<>"" & (C3+1))*NB.SI(E3;""<>"" & (D3+1))" & _
"*NB.SI($BZ$3:$ea$3;F3)*NB.SI(BV3;""<>1"")*NB.SI(BV3;""<>2"")*NB.SI(BV3;""<>3"")*NB.SI(EP3;""0"")*NB.SI(EQ3;""0"")*NB.SI(ER3;""0"")*NB.SI(ES3;""0"")*NB.SI(EU3;""0"")*NB.SI(EV3;""0"")*NB.SI(EW3;""0"")*NB.SI(EY3;""0"")*NB.SI(EZ3;""0"")*NB.SI(FB3;""0"")*NB.SI(FD3;""0"")" & _
"*NB.SI(J3;""<>""&CG2*1)*NB.SI(J3;""<>""&CF2*1)*NB.SI(J3;""<>""&CE2*1)*NB.SI(J3;""<>""&CD2*1)*NB.SI(J3;""<>""&CC2*1)*NB.SI(J3;""<>""&CB2*1)*NB.SI(J3;""<>""&CA2*1)*NB.SI(J3;""<>""&BZ2*1)" & _
"*NB.SI($AD$15;""<>""&A3)*NB.SI($AD$16;""<>""&B3)*NB.SI($AD$16;""<>""&B3)*NB.SI($AE$16;""<>""&B3)*NB.SI($AF$16;""<>""&B3)*NB.SI($AG$16;""<>""&B3)*NB.SI($AD$17;""<>""&C3)" & _
"*NB.SI($AG$17;""<>""&C3)*NB.SI($AD$15;""<> ""&A3)*NB.SI($AE$15;""<> ""&A3)*NB.SI($AF$15;""<> ""&A3)*NB.SI($AG$15;""<> ""&A3)*NB.SI($AH$15;""<> ""&A3)*NB.SI($AH$17;""<>""&C3)*NB.SI($AD$18;""<>""&D3)*NB.SI($AE$18;""<>""&D3)*NB.SI($AF$18;""<>""&D3)*NB.SI($AG$18;""<>""&D3)*NB.SI($AH$18;""<>""&D3)*NB.SI($AD$19;""<>""&E3)*NB.SI($AE$19;""<>""&E3)*NB.SI($AF$19;""<>""&E3)*NB.SI($AG$19;""<>""&E3)*NB.si($AH$19;""<>""&E3)" & _
"*NB.SI(Av3;""=0"")*NB.SI(AW3;""=0"")*NB.SI(AX3;""=0"")*NB.SI(AY3;""=0"")*NB.SI(AZ3;""=0"")*NB.SI(Y3;"">0"")" & _
"*NB.SI(BA3;""=0"")*NB.SI(BB3;""=0"")*NB.SI(BC3;""=0"")*NB.SI(BD3;""=0"")*NB.SI(BE3;""=0"")*NB.SI(BF3;""=0"")*NB.SI(BG3;""=0"")*NB.SI(BH3;""=0"")*NB.SI(BI3;""=0"")*NB.SI(BJ3;""=0"")*NB.SI(BK3;""=0"")*NB.SI(BL3;""=0"")*NB.SI(BM3;""=0"")"
Range("H3:H12000").FillDown
Range("H3:H12000").Value = Range("H3:H12000").Value
tt = tfin - tdeb
MsgBox "durée du traitement: " & Timer - start & " secondes "
End Sub
- VBA ne prend pas en compte une fonction
- Fonction si et - Guide
- Créer un compte google - Guide
- Installer windows 10 sans compte microsoft - Guide
- Créer un compte gmail - Guide
- Comment savoir qui regarde mon compte facebook - Guide
4 réponses
Bonjour,
Sauf erreur, la formule est bien générée sur la feuille. Donc, ce n'est pas un problème VBA ?
Daniel
Pour moi cette partie de la formule fonctionne. Sur l'image suivante, évolution de la formule en colonne H selon les valeurs des cellules A, B, C et D :
Daniel
A tester, la formule pourrait se ramener à :
=(G3>0)*(G3<5)*(Y3>0)*(B3<>A3+1)*(C3<>B3+1)*(D3<>C3+1)*(E3<>D3+1)*NB.SI($BZ$3:$EA$3;F3)*ET(BV3<>2;BV3<>3)*(NB.SI(EP3:ES3;0)=4)*(NB.SI(EU3:EW3;0)=3)*(NB.SI(EY3:EZ3;0)=2)*(FB3=0)*(FD3=0)*(SOMME(SI(BZ2:CG2*1<>J3;1;0))=8)*(A3<>$AD$15)*(NB.SI($AD$16:$AG$16;B3)=0)*($AD$17<>C3)*($AG$17<>C3)*(NB.SI($AD$15:$AH$15;A3)=0)*($AH$17<>C3)*(NB.SI($AD$18:$AH$18;D3)=0)*(NB.SI($AD$19:$AH$19;E3)=0)*(NB.SI(AV3:AZ3;0)=5)*(Y3<>0)*(NB.SI(BA3:BM3;0)=13)
Daniel