Discussion :

[keupon]

Bonjour,

je voudrais réussir à assigner automatiquement une formule à des cellules à l'aide d'une macro mais j'ai un petit problème.

J'ai un message d'erreur dans certaines conditions et je n'arrive pas à contourner le problème (sans doute un problème de type de variable ou de syntaxe).

Si je fais ça, ça fonctionne très bien:

Code :

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

1
2
Private Sub change_horaires_Click()
Worksheets("lundi").Cells(1,1).Value = "=NB.SI(E1:E5;1)"

Mais pour des raisons d'automatisation de tâche, je veux que ma formule soit stockée dans une chaine de caractères que je puisse modifier.
J'ai procédé de cette façon:

Code :

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

1
2
3
4
Private Sub change_horaires_Click()
Dim PC_Nuit As String
PC_nuit = "=NB.SI(E1:E5;1)"
Worksheets("lundi").Cells(1,1).Value = PC_Nuit

et là, ça ne fonctionne plus. En fait, dès que ma chaine de caractère PC_Nuit débute par un signe égal, la macro plante (avec un message très explicite: erreur d'exécution '1004': Erreur définie par l'application ou par l'objet).
Quelqu'un a une idée sur la façon dont je pourrais arranger ça (pas taper si c'est simple, c'est la première fois que je fais du VBA ) ?


Merci d'avance pour vos réponses.

[fring]

Bonsoir,

Remplace

Code :

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

Worksheets("lundi").Cells(1,1).Value = PC_Nuit

par

Code :

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

Worksheets("lundi").Cells(1,1).FormulaLocal = PC_Nuit

[keupon]

J'avais testé avec formula mais pas avec formulalocal.

Merci beaucoup pour la réponse .


A plus.