Discussion :

[yann26]

bonjour a tous

je suis en train de travailler sur fichier excel incluant des maccro, étant débutant et ne connaissant pas toute les futilités de ce langage, je me confronte à quelques problèmes

Je souhaite insérer dans une collone de "n" ligne la formule excel somme pour toute la ligne

voila comment je m'y prend :

Code :

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

1
2
3
4
5
6
7
 
For i = 0 To nblignetri 'variable indiquant le nombre de ligne dans mon tableau
 
Range("i10").Offset(i).FormulaLocal = "=sum(Range(j10).offset(i): range(j10).offset(i,200))" 
'le nombre de collone etant variable au cours du temps, avec 200 je suis sure de prendre toutes les donnée
 
Next i

J'ai essayé avec "zz10" afin de m’affranchir du 200, mais cela ne fonctionne pas non plus
il m'affiche "l'erreur 1004"
je pense que cela viens de la manière d'indiquer la plage des cellules dans la formule somme, une erreur de guillemet ou autre mais après avoir essayé différentes façon, je bloque.

Pouvais m'aider à résoudre ce prolème svp?
y'a t-il un moyen plus simple d’écrire cette fonction

je vous remercie pour votre aide

yann

[Marc-L]

Bonjour,

vu le code, la version d'Excel n'est pas française, si ?

[yann26]

merci de t’intéresser à ma question

si, c'est une version française

J'ai mit le mot "sum" après avoir lu sur certain forum qu'il fallait l'inscrire comme ça
suite à ta question question, j'ai essayé avec "somme", j'ai le même problème

afin de compléter les données mon problème, je précise qu'au moment où la maccro se lance, les cellules dont je veux faire la somme ne contienne aucune valeur
je ne pense pas que ce soit un problème mais peut être que je me trompe.

[Marc-L]

Pour une version locale, effectivement la propriété FormulaLocal fait l'affaire
mais la formule doit être identique au contenu de la cellule depuis la feuille de calculs …

Dans un environnement international, mieux vaut utiliser la propriété Formula nativement en anglais.

Astuce pour la traduction native d'une formule locale : sélectionner la cellule puis ouvrir
la fenêtre Exécution de l'environnement VBA puis y entrer ? activecell.formula et valider !

Le but du jeu étant la « formule VBA » devant reproduire exactement le même texte de la formule de feuille de calculs …

Donc Range seul ne suffit pas à renvoyer une adresse d'une plage de cellules dans une formule car il renvoie un objet
et non pas une adresse : il faut donc ne pas oublier de lui coller sa propriété Address !
Consulter son aide intégrée au VBA pour y découvrir ses paramètres.

Cells(10 + i, 9).Formula = "=SUM(" & Cells(10 + i, 10).Resize(, 200).Address & ")" …

Astuce pour accélérer la procédure : désactiver avant la boucle le mode de calcul automatique et l'affichage,
voir l'aide concernant les propriétés Calculation et ScreenUpdating …
Et ne pas oublier de réactiver le mode de calcul automatique avant de sortir de la procédure !

__________________________________________________________________________________________

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

[yann26]

SUPERBE!!!!!

Merci beaucoup pour ton aide et ton explication.
En effet, cela me parait logique maintenant mais il fallait le savoir.

encore merci pour tout

cdt

yann