inscrire une formule excel en vbaRésolu

Question

bonjour cette formule cacul le numero de semaine suivant la date du jour dans la cellule j2
je voudrais pouvoir la mettre dans la cellule i2


Private Sub CommandButton2_Click()
Dim formule
formule = "=ENT((J2-SOMME(MOD(DATE(ANNEE(J2-MOD(J2-2;7)+3);1;2);{1E+99;7})*{1;-1})+5)/7)"
Feuil1.Select
Feuil1.Range("i2") = formule
End Sub

je pense a des erreurs de syntaxes

cs_loulou69 · Accepted Answer

Bonjour
La syntaxe de la commande pour mettre une formule dans une cellule est
Cell.FormulaR1C1= formule
donc essayez
Feuil1.Range("i2").FormulaR1C1 = formule

ucfoutu · Answer

Bonjour,
Ce devrait être (aucun besoin de tes select) quelque chose comme ceci :
Sheets("Feuil1").Range("I2").FormulaLocal = "=ENT((J2-SOMME(MOD(DATE(ANNEE(J2-MOD(J2-2;7)+3);1;2);{1E+99;7})*{1;-1})+5)/7)" 
Sans préjudice de l'efficacité de ta formule elle-même (mais je suppose que tu l'as vérifié en la testant par écriture directe et manuelle).
J'appelle par ailleurs ton attention sur le fait que tu aurais peut-être intérêt à utiliser Fotrmula et non Formulalocal (en transposant alors tout en anglais et en transformant les ; en ,)
Ouvre ton aide en ligne sur ces deux mots (portabilité meilleure avec Formula car non dépendante de la langue de la version)
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

cs_marco60 · Answer

sa marche merci

Inscrire une formule excel en vba

3 réponses

Votre réponse