Référence relative dans une formule Résolu/Fermé

Question

Bonjour, 

Voici ma partie de code qui bloque :

Cells(ligne + 1, 12).Formula = "=IF(RC[-9]<>0;WORKDAY(RC[-9];5);"")"

"ligne" correspond à la dernière ligne remplie et me permet de me repérer dans mon fichier, mais sa valeur n'a pas vraiment d'importance ;

La cellule située en [ligne + 1 ; 3], c'est-à-dire en C quelque chose, contient une date. Sur la même ligne mais 9 cellules plus loin à l'horizontale j'aimerai récupérer cette date, si la case n'est pas vide, et y ajouter 5 jours ouvrables.

Seulement mon code me donne une erreur 1004, ce qui veut dire que j'ai un problème sur l'objet. 
Je ne pense pas que ce soit dû à la fonction, qui marche bien quand je la rentre directement dans Excel et je ne vois pas le problème avec l'appel de la cellule par Cells du coup je bloque complètement, pouvez-vous m'aider ?

ThauTheme · Answer

Bonsoir Pullok, bonsoir le forum,

un proposition en dur :

If IsDate(Cells(ligne + 1, 3)) = True Then Cells(ligne + 1, 12).Value = Format(Application.WorksheetFunction.WorkDay(Cells(ligne + 1, 3), 5), "yyyy/mm/dd") 

une autre en formule :
If IsDate(Cells(ligne + 1, 3)) = True Then Cells(ligne + 1, 12).Formula = "=WorkDay(" & Cells(ligne + 1, 3).Address & ", 5)"
 
À plus,
ThauTheme

Pullok · Answer

Problème résolu !

C'est donc les guillemets qui bloquaient. Je les ai enlevés en utilisant ISBLANK pour arriver au même résultat :

Cells(linea + 1, 12).Formula = "=If(ISBLANK(RC[-9]),,Workday(RC[-9],5))"

Par contre si quelqu'un sait comment mettre des guillemets dans une formule, je suis preneur.

Référence relative dans une formule

2 réponses

Discussions similaires