Discussion :

[phal2ip]

Bonjour à tous,
voilà mon souci, je créé une sorte de calendrier où dans la cellule C8, je voudrais inscrire la formule excel suivante :
=DATE(an;mois;jour) où an, mois, jour représente des variables demandés à l'utilisateur.

J'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C8").FormulaR1C1 = DATE(an;mois;jour)

=> error

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C8").FormulaR1C1 = "DATE(an;mois;jour)"

=> ça écris mais comme il manque le = devant la formule, cette dernière ne peut pas fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C8").FormulaR1C1 = "'=DATE(an;mois;jour)"

=> ça écris également mais sous format texte avec le ' donc la formule ne fonctionne toujours pas.

Comment puis-je faire inscrire par un code VBA cette formule (avec ce fichu caractère =) dans la cellule C8??

Anoter que j'ai également essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C8").Value = ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C8").Text = ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C8") = ...

Merci pour votre aide

[Marc-L]

Bonjour,

les variables ne sont pas des éléments directs de la formule !

[C8].Formula = "=DATE(" & an & "," & mois & "," & jour & ")" …


Astuce pour voir la formule d'une cellule en VBA :

• cellule active avec la formule correcte

• dans l'environnement VBA, dans la fenêtre Exécution, taper ? activecell.formula puis valider …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[phal2ip]

Merci Marc-L
j'y ai pensé après avoir posté mais cela n'a rien changé malheureusement j'ai toujours un message d'erreur :

erreur d'exécution 1004:
Erreur définie par l'application ou par l'objet
Je précise que je suis sous excel 2003...

[Marc-L]

De rien !

De mon côté sur une version 2003 - du reste peu importe la version - ma formule fonctionne sans souci !

Évidemment elle reste conditionnée par la cohérence des valeurs des variables, une cellule protégée …

[nibledispo]

Bonjour,

remplaces les ; par des , et enlève ta cote

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C8").FormulaR1C1 = " =Date(an,mois,jour)"

il te renverra la formule mais écrira nom dans la cellule.
ne serait-ce pas plutôt "dateserial" que tu veux utiliser?

cordialement

[phal2ip]

Non j'ai vérifier pour les cellules protégés ou même fusionner mais rien de tout cela...
je vais essayer la formule à nibledispo et je verrais mais peut etre pus ce soir

Merci en totu cas de vous soucier de mon cas...