VBA Qu'est ce qui cloche dans ma formule

[Arpette]

Bonsoir à toutes et à tous,
Je n'arrive pas à renvoyer ma formule en IJ, je ne comprends pas
Merci de votre aide.
@+

'On calcule le transit.
'Si X = ? et date AA est supérieur à date du jour -15 jours et AE <> Vide donc X = Transit, sinon X = X
Set Zone2 = .Range("X2:X" & Range("X65536").End(xlUp).Row)
Zone2.Offset(0, 220).FormulaR1C1 = "=IF(AND(RC24=""?"",RC27>TODAY()-15),RC31<>"",""Transit"",RC27)" ''Formule en colonne IJ
Zone2.Offset(0, 220) = Zone2.Offset(0, 220).Value 'On n'en garde que les valeurs
Zone2 = Zone2.Offset(0, 220).Value '  On renvoie résultat de IJ en X
Zone2.Offset(0, 220).ClearContents 'On efface IJ
Zone2.NumberFormat = "dd/mm/yyyy"

 

[Grand Chaman Excel]

Re : VBA Qu'est ce qui cloche dans ma formule

Bonjour,

Sans voir le reste du code... peut-être à cause de cette ligne :
Set Zone2 = .Range("X2:X" & Range("X65536").End(xlUp).Row)


car il semble manquer un "." devant ton 2e "Range"
Set Zone2 = .Range("X2:X" & .Range("X65536").End(xlUp).Row)


Peut-être que la référence n'est plus la bonne, selon l'onglet où tu te trouves au moment de faire cette commande.

À vérifier.

Sinon, as-tu essayé de passer ton code ligne par ligne (en faisant F8) pour voir où ça "plante"...
A+

 

[Arpette]

Re : VBA Qu'est ce qui cloche dans ma formule

Bonsoir Chaman, tu as raison il me manquait le point j'ai corrigé comme ceci:

Set Zone2 = .Range("X2:X" & .Range("X65536").End(xlUp).Row)

Ca fonctionne avec cet formule:

Zone2.Offset(0, 220).FormulaR1C1 = "=IF(AND(RC24=""?"",RC27>TODAY()-15),""Transit"",RC27)" ''Formule en colonne IJ

Mais pas si je rajoute RC31<>"""" sachant que RC31= colonne AE, ça fonctionne pas

Zone2.Offset(0, 220).FormulaR1C1 = "=IF(AND(RC24=""?"",RC27>TODAY()-15),RC31<>"""",""Transit"",RC27)" ''Formule en colonne IJ

Je comprends pas😕
Merci de ton aide
@+

 

[Grand Chaman Excel]

Re : VBA Qu'est ce qui cloche dans ma formule

Bonjour Arpette,

Ta condition AND s'arrête où ??? Je crois que ta parenthèse, n'est pas à la bonne place :

Zone2.Offset(0, 220).FormulaR1C1 = "=IF(AND(RC24=""?"",RC27>TODAY()-15),RC31<>"""",""Transit"",RC27)" ''Formule en colonne IJ

 

[Arpette]

Re : VBA Qu'est ce qui cloche dans ma formule

Re, merci Chaman, effectivement parenthèse mal placée , code correcte:

Zone2.Offset(0, 220).FormulaR1C1 = "=IF(AND(RC24=""?"",RC27>TODAY()-15,RC31<>""""),""Transit"",RC27)"

Un grand merci à toi, car à fin de regarder je n'y voyais plus rien.
PS: pas trop froid chez toi, nous, nord est de la france beaucoup de vent mais toujours pas de de neige🙁
@+