Discussion :

[COCONUT2]

Bonsoir à tous

J'ai crée une macro qui fonctionne tres bien mais qui présente le défaut suivant:

dans une boucle, j'ai le code

Code :

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

1
2
3
celld = .Cells(10, i).Address
cellf = .Cells(k - 1, i).Address
.Cells(k, i).Formula = "=SOMME(" & celld & ":" & cellf & ")"

MAis lorsque on visionne la cellule, on ne voit que

Code :

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

#NOM?

Il faut alors entrer dans la cellule et ressortir sans rien changer.
Et alors le calcul se fait.
Donc la formule est bonne mais je suppose que la ligne de commande necessite une correction que je ne connais pas.

Merci d'avance pour vos réponses.

Christophe

[mercatog]

Code :

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

.Cells(k, i).FormulaLocal = "=SOMME(" & celld & ":" & cellf & ")"

ou

Code :

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

.Cells(k, i).Formula = "=SUM(" & celld & ":" & cellf & ")"

Je préfère la 2

Edit

Ou mieux

Code :

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

.Cells(k, i).FormulaR1C1 = "=SUM(R[" & 10 - k & "]C:R[-1]C)"

Ou encore au lieu de (par exemple)

Code :

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

1
2
3
For i = 1 To 12
    .Cells(k, i).FormulaR1C1 = "=SUM(R[" & 10 - k & "]C:R[-1]C)"
Next i

mettre directement sans boucle sur le i

Code :

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

.Range(.Cells(k, 1), .Cells(k, 12)).FormulaR1C1 = "=SUM(R[" & 10 - k & "]C:R[-1]C)"

[arosec]

Bonsoir,

Il faut utiliser la syntaxe Us dans le vba pour écrire une formule:

Code :

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

1
2
 
"=SUM(" & celld & ":" & cellf & ")"

Cdt,

[COCONUT2]

Effectivement en mettant la fonction en anglais ca passe beaucoup mieux.
Merci pour vos réponses efficaces.
Christophe