OVH Cloud OVH Cloud

Formules Excel via VBA

4 réponses
Avatar
Nico
Bonjour et bon app=E9tit =E0 ceux qui n ont pas encore mang=E9

J'ai besoin de faire une somme sur les colonnes d'un=20
tableau de nombre de lignes variable. Je voulais entrer=20
des formules Excel dans les derni=E8res cases de mon=20
tableau =E0 l'aide de commandes du types
Cells(MaxC + 8, 2).Value =3D "=3DSOMME(B9:B" & MaxC + 7 & ")"
Mais lorsque j execute la macro Excel m'affiche dans les=20
cellules concernees #NOM?
Si je rentre dans le contenu de la cellule comme pour le=20
modifie et que je valide alors le calcul s effectue sans=20
probleme
D ou viens le probleme

En esperant que vous pourrez m aider je vous souhaite une=20
bonne digestion

Nico

4 réponses

Avatar
papou
Bonjour
Déclare une variable de type string et utilise cette variable pour mettre la
formule :
Dim LaFormule As String
LaFormule = "=SOMME(B9:B" & MaxC + 7 & ")"
Cells(MaxC + 8, 2).Formula = LaFormule

Cordialement
Pascal

"Nico" a écrit dans le message de
news:c0bd01c47a12$0f15bf60$
Bonjour et bon appétit à ceux qui n ont pas encore mangé

J'ai besoin de faire une somme sur les colonnes d'un
tableau de nombre de lignes variable. Je voulais entrer
des formules Excel dans les dernières cases de mon
tableau à l'aide de commandes du types
Cells(MaxC + 8, 2).Value = "=SOMME(B9:B" & MaxC + 7 & ")"
Mais lorsque j execute la macro Excel m'affiche dans les
cellules concernees #NOM?
Si je rentre dans le contenu de la cellule comme pour le
modifie et que je valide alors le calcul s effectue sans
probleme
D ou viens le probleme

En esperant que vous pourrez m aider je vous souhaite une
bonne digestion

Nico
Avatar
JpPradier
Bonjour Nico

Modifie ta ligne comme ceci :
Cells(MaxC + 8, 2).formulalocal = "=SOMME(B9:B" & MaxC + 7 & ")"

j-p
Avatar
Nico
Ca marche!
Merci beaucoup
Ca faisait un moment que je m arracher les cheveux dessus

Nico
-----Message d'origine-----
Bonjour Nico

Modifie ta ligne comme ceci :
Cells(MaxC + 8, 2).formulalocal = "=SOMME(B9:B" & MaxC +
7 & ")"


j-p
.



Avatar
AV
Aussi comme ça :

Cells(MaxC + 8, 2).Value = "=SUM(B9:B" & MaxC + 7 & ")"

AV