Inscrire une formule excel en vba [Résolu]

Messages postés
14
Date d'inscription
samedi 24 mars 2007
Statut
Membre
Dernière intervention
6 février 2010
- - Dernière réponse : cs_marco60
Messages postés
14
Date d'inscription
samedi 24 mars 2007
Statut
Membre
Dernière intervention
6 février 2010
- 6 févr. 2010 à 17:30
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
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
672
Date d'inscription
mercredi 22 janvier 2003
Statut
Membre
Dernière intervention
2 juin 2016
1
3
Merci
Bonjour
La syntaxe de la commande pour mettre une formule dans une cellule est
Cell.FormulaR1C1= formule
donc essayez
Feuil1.Range("i2").FormulaR1C1 = formule

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 224 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_loulou69
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
215
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 224 internautes nous ont dit merci ce mois-ci

Commenter la réponse de ucfoutu
Messages postés
14
Date d'inscription
samedi 24 mars 2007
Statut
Membre
Dernière intervention
6 février 2010
0
Merci
sa marche merci
Commenter la réponse de cs_marco60