Ecrire une formule dans une cellule en VBA

Question

J'aimerais solliciter votre aide: en effet je souhaite par le moyen d'une VBA pouvoir écrire une formule dans une ou plusieurs cellules si la ou les cellules avoisinantes ne sont pas vides sinon les cellules doivent rester vierges (voir le photo) Avec tous mes remerciements...

Juice · Answer

Alors sans les références aux colonnes et aux lignes, la seule chose qu'on peut te filer ces comment procéder pour que tu l'adapte à ton fichier. Et donc, pour écrire une formule dans une cellule : Cells(1, 1).FormulaR1C1 = "=maformule" Je te conseil te faire une boucle For pour procéder en une seule fois sur toute tes lignes...

MFerrand · Answer

C'est une opération que je qualifie habituellement d'absurde ! Pourquoi ? Parce que lorsqu'on place une formule c'est normalement une opération que l'on ne fait qu'une fois. Parce que conditionner l'existence ou non de la formule à un test sur l'existence de valeur dans une cellule n'est rien d'autre qu'une condition qui peut fort bien être incluse dans la formule. Parce qu'il nettement plus facile et plus rapide d'insérer une formule manuellement que d'utiliser VBA pour cela. L'utilité de VBA en la matière est généralement d'opérer le calcul et affecter le résultat, lorsque l'on veut éviter de mettre une formule... Je n'apporte donc en principe pas ma contribution sur ce genre de projet improductif... mais il peut y avoir des exceptions, quoique ton image ne montre aucune particularité qui pourrait justifier l'opération. On y voit seulement que tu ne formules guère avec beaucoup de brio ! Une formule débutant par un "+" : Excel va automatiquement transformer en "=+". Je ne sais très bien pourquoi mais les formules débutant ainsi ont le don de m'énerver... Cela dénote que l'on reste plus que nécessaire bloqué sur son clavier en majuscules, que l'on n'a pas assimilé que lorsqu'on réfère à des composants Excel la frappe en minuscules est préférable, Excel bascule en majuscules les références, les noms de fonctions, etc. La composition de la formule, doublonnée pour tester la valeur renvoyée, se concevait jusqu'à Excel 2003, mais depuis Excel 2007, la fonction SIERREUR permet de l'éviter. Et une formule, telle : =SIERREUR(SI(D8&lt;&gt;"";RECHERCHEV(D8;Bases!$B$2:$F$370;5;0);"");"") remplira les fonctions recherchées sans mobiliser inutilement VBA. Cordialement. edit : Ton dernier post confirme que tu devrais améliorer sensiblement ta dextérité au clavier, afin d'éviter de rester bloqué fort mal à propos en majuscules ! Au cas où tu l'ignorerais, écrire un texte en majuscules sur le Net signifie que tu le hurles ! Il serait bien de te calmer.....

MFerrand · Answer

Donc en plus tu multipostes ! On le saura pour une autre fois.

Je n'ai nul besoin de solution en la matière mais je la trouverais plutôt mal écrite et peu performante, mais peu importe...

Je ne jugeais nullement ton inexpérience mais tentais de te faire comprendre quelques éléments du fonctionnement d'Excel et de VBA, pour le cas où tu voudrais ne pas t'y cantonner , mais tu es libre de tes choix.