Discussion :

[RemiT]

Bonjour à tous,

Voilà, je voudrais insérer une formule dans une cellule a partir de vba et ça marche pas.

la formule que je veux entrer est : "=SI(I9<>0;I9;J9)"

si, sous vba, je fais : activecell.value = "=si(I9<>0;I9;J9)"

j'ai une erreur d'execution 1004 ?????

merci pour votre aide.

[tirex28]

Bonjour,

Utilise la propriété Formula:

Code :

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

Activecell.Formula = "taformule"

Si ca ne fonctionne pas, essaye FormulaLocal.

Cordialement,

Tirex28/

[melouille56]

Tu as une autre possibilité très utile si ta formule se trouve dans une boucle.

Ca évite de taper 15 lignes de macros, la 1ère pour les cellules de la ligne 9, les suivantes pour les cellules des lignes 10, 11, etc.

en supposant que tu tapes ta formule dans la cellule K9, le code sera:

Code :

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

ActiveCell.FormulaR1C1 = "=IF(RC[-2]<>0,RC[-2],RC[-1])"

RC[-2] signifie que la cellule concernée est sur la même ligne (R) mais 2 colonnes avant (C[-2]), en l'occurence I9.

Voilà

[RemiT]

En fait, ma formule dans vba doit etre avec des virgules pour donner des point-virgule dans EXCEL...OK pour des ; dans excel et des , dans vba...

en fait ma formule est un peu plus compliquée et donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For i = 1 To 17
        formul = "=SI(I" & ActiveCell.Row _
                                  & "<>0,I" _
                                  & ActiveCell.Row _
                                  & ",Planning!R" 
                                  & nbligneplan + 8 
                                  & "C" & colplan 
                                  & ")"
        ActiveCell.Formula = formul
        ActiveCell.Offset(1, 0).Select
Next i

l'espion de vba me donne :
"SI(I9<>0,I9,Planning!R728C13)"

la formule est bien collée dans EXCEL mais le rendu est :
=SI('I9'<>0;'I9';Planning!$M$728)

POURQUOI ME MET-IL DES COTES AUTOUR DE 'I9' CE ???

[tirex28]

Re,

"SI(I9<>0,I9,Planning!R728C13)"

Tu mélange références A1 et L1C1, ca ne peut pas marcher...
Soit tu converti I9 en R9C9, soit tu converti R728C13 en M728.

Essaye de lancer l'enregistreur de macro et de taper ta formule à la main, en regardant le code généré ca devrait t'aider à trouver la syntaxe correcte.

Cordialement,

Tirex28/

[RemiT]

CA MARCHE mais il me met une valeur de cellule en #NOM?... voir autre sujet...

MERCI