VBA Qu'est ce qui cloche dans ma formule

Arpette · 12 Décembre 2011

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

Code:

'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 · 12 Décembre 2011

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 · 12 Décembre 2011

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:

Code:

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

Ca fonctionne avec cet formule:

Code:

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

Code:

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 · 12 Décembre 2011

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 · 12 Décembre 2011

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

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

Code:

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🙁
@+

VBA Qu'est ce qui cloche dans ma formule

Arpette

XLDnaute Impliqué

Grand Chaman Excel

XLDnaute Impliqué

Arpette

XLDnaute Impliqué

Grand Chaman Excel

XLDnaute Impliqué

Arpette

XLDnaute Impliqué

Discussions similaires

VBA Qu'est ce qui cloche dans ma formule

Arpette

XLDnaute Impliqué

Grand Chaman Excel

XLDnaute Impliqué

Arpette

XLDnaute Impliqué

Grand Chaman Excel

XLDnaute Impliqué

Arpette

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency