Microsoft 365 Comparer date incrémentée avec une autre date

Tieuma66

XLDnaute Nouveau
Bonjour le forum,

Je bloque sur une formule, un petit coup de main serait le bien venu. Voici mon code

VB:
Worksheets("Retard AirSupply").Range("Tableau3[Flag>15J]").FormulaR1C1 = _
    "=IF([Date Demandée]+15<R11C109,""oui"",""non"")"

Je pense que ça doit venir du symbole "<" mais je n'arrive à rien.

Cette formule est censée comparer 2 dates : si la date de la colonne [date demandée], incrémentée de +15 jours, est inférieur à une date entrée manuellement en cellule R11C109, et alors reporter "oui", ou sinon reporter "non".

Je me doute qu'il y a de bien meilleur façon de l'écrire mais je ne suis pas un as... long de là!

Pouvez-vous m'aider à coder ça svp.

Je n'ajoute pas mon fichier car très lourd et beaucoup de modif à faire avant diffusion... si besoin dites moi.

Merci à vous
 

Pièces jointes

  • Plan de convergence.xlsm
    76.9 KB · Affichages: 2

Dranreb

XLDnaute Barbatruc
Bonjour.
Il y a un espace, déjà, dans le titre entre "Flag" et ">15J"
Mais d'abord ça coince parce qu'il ne semble pas y avoir de Tableau7.
Mais sur pour l'instruction indiquée il ne semble pas y avoir non plus de 'Date demandée
Si en Tableau3[Flag >15J] ça doit être :
Code:
=SI([@[Dte dem]]+15>$DE$11;"oui";"non")
Alors c'est plutôt
VB:
Feuil1.[Tableau3[Flag >15J]].FormulaR1C1 = "=IF([@[Dte dem]]+15>R11C109,""oui"",""non"")"
 
Dernière édition:

Discussions similaires

Réponses
1
Affichages
1 K

Statistiques des forums

Discussions
311 733
Messages
2 082 011
Membres
101 866
dernier inscrit
XFPRO