Bonsoir,

Je rencontre un pb avec VBA (2010), je souhaiterais mettre une formule dans une colonne de la ligne M2 à M30 par exemple mais mon programme VBA ne semble pas fonctionner avec cette formule. (lorsque je la raccourci elle fonctionne mais lorsqu'elle est dans son intégralité elle ne fonctionne pas (la formule fonctionne normalement dans excel, c'est à partir de là que je recopie la même formule en langage vba pour mon programme). Ci-dessous le programme, peut-être y trouverez-vous une erreur.
Merci d'avance pour vos suggestions ou solutions.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Macro12()
 
Dim i As Variant
For i = 2 To 100
 
Cells(i, 27).Value = _
        "=IF(RC[-15]=0,""Livrée(s)"",IF(AND(AND(R1C52>RC[-14],RC[-13]=""""),RC[-15]=RC[-16]),""AA""&DAY(LEFT(RC[-14],10)+8)&""/""&IF(MONTH(LEFT(RC[-14],10))<10,""0""&MONTH(LEFT(RC[-14],10))&""/""&YEAR(LEFT(RC[-14],10)),MONTH(LEFT(RC[-14],10))&""/""&YEAR(LEFT(RC[-14],10))),IF(AND(AND(AND(RC[-16]<>RC[-15],RC[-15]<>0),RC[-13]=""""),R1C52>=RC[-14]),""BB ""&DAY(LEFT(RC[-14],10)+8" & _
        "IF(MONTH(LEFT(RC[-14],10))<10,""0""&MONTH(LEFT(RC[-14],10))&""/""&YEAR(LEFT(RC[-14],10)),MONTH(LEFT(RC[-14],10))&""/""&YEAR(LEFT(RC[-14],10)))&"" CC"",IF(AND(AND(AND(AND(RC[-16]=RC[-15],RC[-13]<>""""),R1C52>=RC[-13]-9),R1C52<=RC[-13]+1),RC[-11]=""""),""DD"",IF(AND(AND(AND(AND(AND(RC[-16]<>RC[-15],RC[-15]<>0),RC[-13]<>""""),R1C52>=RC[-13]-9),R1C52<=RC[-13]+1),RC[-11]" & _
        "EE"",IF(AND(AND(AND(RC[-16]=RC[-15],RC[-13]<>""""),R1C52<RC[-13]),RC[-11]=""""),""FF ""&DAY(LEFT(RC[-13],10))&""/""&IF(MONTH(LEFT(RC[-13],10))<10,""0""&MONTH(LEFT(RC[-13],10))&""/""&YEAR(LEFT(RC[-13],10)),MONTH(LEFT(RC[-13],10))&""/""&YEAR(LEFT(RC[-13],10)))&"" GG"",IF(AND(AND(AND(AND(RC[-16]<>RC[-15],RC[-15]<>0),RC[-13]<>""""),R1C52<RC[-13]),RC[-11]=""""),""HH ""&D" & _
        "C[-13],10))&""/""&IF(MONTH(LEFT(RC[-13],10))<10,""0""&MONTH(LEFT(RC[-13],10))&""/""&YEAR(LEFT(RC[-13],10)),MONTH(LEFT(RC[-13],10))&""/""&YEAR(LEFT(RC[-13],10)))&"" II"",IF(AND(AND(AND(RC[-16]=RC[-15],RC[-13]<>""""),R1C52>RC[-13]+1),RC[-11]=""""),""JJ"",IF(AND(AND(AND(AND(RC[-16]<>RC[-15],RC[-15]<>0),RC[-13]<>""""),R1C52>RC[-13]+1),RC[-11]=""""),""KK"",IF(AND(AND(AND" & _
        "16]=RC[-15],RC[-13]<>""""),R1C52>=RC[-11]-9),R1C52<=RC[-11]+1),RC[-11]<>""""),""LL"",IF(AND(AND(AND(AND(AND(RC[-16]<>RC[-15],RC[-15]<>0),RC[-13]<>""""),R1C52>=RC[-11]-9),R1C52<=RC[-11]+1),RC[-11]<>""""),""MM"",IF(AND(AND(AND(RC[-16]=RC[-15],RC[-13]<>""""),R1C52<RC[-11]),RC[-11]<>""""),""Livraison au ""&DAY(LEFT(RC[-11],10))&""/""&IF(MONTH(LEFT(RC[-11],10))<10,""0""&" & _
        "T(RC[-11],10))&""/""&YEAR(LEFT(RC[-11],10)),MONTH(LEFT(RC[-11],10))&""/""&YEAR(LEFT(RC[-11],10)))&"" NN"",IF(AND(AND(AND(AND(RC[-16]<>RC[-15],RC[-15]<>0),RC[-13]<>""""),R1C52<RC[-11]),RC[-11]<>""""),""OO""&DAY(LEFT(RC[-11],10))&""/""&IF(MONTH(LEFT(RC[-11],10))<10,""0""&MONTH(LEFT(RC[-11],10))&""/""&YEAR(LEFT(RC[-11],10)),MONTH(LEFT(RC[-11],10))&""/""&YEAR(LEFT(RC[-1" & _
        """ PP"",IF(AND(AND(AND(RC[-16]=RC[-15],RC[-13]<>""""),R1C52>RC[-11]+1),RC[-11]<>""""),""QQ"",IF(AND(AND(AND(AND(RC[-16]<>RC[-15],RC[-15]<>0),RC[-13]<>""""),R1C52>RC[-11]+1),RC[-11]<>""""),""RR"")))))))))))))))"
 
Next i
 
End Sub