Formule de calcul dans macro

ziopizza

XLDnaute Occasionnel

• 13 Septembre 2005

• #2

Bonjour Sabine le Forum,

Il manque le numéro de ligne,


ActiveCell.FormulaR1C1 = '=SOMME(AB5+AD5+AF5+AH5)'


Yves

 

Vote positif 0 Vote négatif

M

marco57

XLDnaute Occasionnel

• 13 Septembre 2005

• #3

Bonsoir Sabine et le Forum,
A priori, il me semble que le problème est dans le
=SOMME(AB+AD+AF+AH)
car si il ne s'agit pas de champs nommés, il manque le N° de ligne.

Il serait peut-être souhaitable de nous envoyer un petit fichier si tu peux et nous dire ce que tu cherches à faire.

A+

Marco

 

Vote positif 0 Vote négatif

S

Sabine

Guest

• 13 Septembre 2005

• #4

Re ziopizza,

merci, mais ca ne marche pas !
et c'est fait exprès qu'il n'y ai pas le n° de ligne vu que je veux que ca le fasse jusqu'a la premiere ligne vide !

 

Vote positif 0 Vote négatif

M

michel_m

XLDnaute Accro

• 13 Septembre 2005

• #5

bonjour Sabone, marco et ziopizza,

si tu n'as pas besoin de garder les formules dans la col AA
Range('AA' & ligs)=range('AB' & ligs)+range('AD' & ligs) etc.


sinon
Range('AA' & ligs).FormulaR1C1 = '= AB' & ligs & '+AD' & ligs & ' etc

Bonne soirée

Michel M

 

Vote positif 0 Vote négatif

M

michel_m

XLDnaute Accro

• 13 Septembre 2005

• #6

Sabine, voulais je dire et non Sabone !

Excuses moi

Michel

 

Vote positif 0 Vote négatif

M

marco57

XLDnaute Occasionnel

• 13 Septembre 2005

• #7

rebonsoir Sabine, Ziopizza et le Forum,

Ziopizza, excuse moi STP si j'ai répondu la même chose un peu plus tard que toi. Je pense que nos messages se sont croisés

Pour Sabine, ceci me semble plus élégant et ça marche :

Code:

Sub Calcul()

Dim Ligne As Long
  
  Application.ScreenUpdating = False
  
  Ligne = 5
  
  Do While Range('a' & Ligne).Value <> ''
    Range('AA' & Ligne).FormulaR1C1 = '=RC[1]+RC[3]+RC[5]+RC[7]'
    Ligne = Ligne + 1
  Loop

  Application.ScreenUpdating = True
  
End Sub

Sabine, prends l'habitude de déclarer tes variables et évite les Select quand c'est possible.

Bonne programmation

Marco

 

Vote positif 0 Vote négatif

S

Sabine

Guest

• 13 Septembre 2005

• #8

Michel, j'ai essayé ta solution, mais j'ai du louper un truc, car je n'y arrive pas ! J'ai joins le fichier.

Marco, je vais tester ta macro, mais sinon, quel est l'interet de declarer les variables ??? Je débute dans le VBA et il est vrai que je me sens pas à l'aise avec tout ca ... :whistle:

Merci a tous les deux [file name=Classeur3_20050913184037.zip size=11970]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur3_20050913184037.zip[/file]

 

Pièces jointes

• Classeur3_20050913184037.zip

  11.7 KB · Affichages: 24

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 13 Septembre 2005

• #9

Bonjour Sabine, Marco, Yves, le Forum

En fait si on fait écrire par VBA une formule, elle devra être en Anglais. Il suffit d'écrire une Formule pendant que l'enregistreur de Macro tourne pour s'en convaincre et aussi pour avoir la traduction gratuitement.

La propriété 'FormulaR1C1' retournée par l'enregistreur est par contre à mes yeux très peu facile d'emploi, obligenat une gymnastique de calculs en déplacement Row/Column.

Je lui préfère de loin la Propriété 'Formula' qui elle, accepte des adresse référence de Range 'Classiques' (A1:A3)

On préfèrera écrire :
Range('D1').Formula = '=Sum(A1:A3)'

Que :
Range('D1').Select
ActiveCell.FormulaR1C1 = '=SUM(RC[-3]:RC[-1])'

Une autre Propriété est FormulaLocal qui permet de saisir la Formule en language local de la machine.

Pour le reste de la question, je vois ceci comme celà :

Sub Calcul()
Dim L As Integer

L = 5
    Do While Range('A' & L).Value <> ''
        Range('AA' & L).Formula = '=Sum(AB' & L & '+AD' & L & '+AF' & L & '+AH' & L & ')'
        L = L + 1
    Loop

End Sub

Cliquez pour agrandir...

Bonne Soirée
[ol]@+Thierry[/ol]

EDITION !!!

Sorry no refresh ! (Phone Call)

Bonsoir Michel_m et re l'équipe du Fil
Alors comme ça on 's'abonne' Michel (tant qu'on s'abandonne pas LOL)

Message édité par: _Thierry, à: 13/09/2005 19:02

 

Vote positif 0 Vote négatif

S

Sabine

Guest

• 13 Septembre 2005

• #10

Impeccable thierry, en +, il est vrai que ca parait vraiment simple !!!

En tout cas , je vous remercie vraiment tous pour votre aide. Bonne soirée.

 

Vote positif 0 Vote négatif

M

marco57

XLDnaute Occasionnel

• 13 Septembre 2005

• #11

ReBonsoir Sabine et Tous,

Merci pour ton fichier, je viens de tester ma macro et ça marche impec.

Quel est l'intêret de déclarer une variable?
Bien que je ne sois que presque débutant, je vais te donner ce que j'ai retenu de mes lectures à ce sujet.
- D'abord parce-que les pros le font (pas très convainquant jusqu'ici)
- Ensuite parce-qu'en les déclarant, tu définis un type qui est souvent très utile.
Par exemple si tu déclares Feuille as Worksheets
puis Feuille = 'Sommaire'
quand tu fais With Feuille excel sait que tu parles d'une feuille de classeur excel
- Si tu les déclares correctement, tu y mettras au moins une lettre en majuscule. Quand tu saisis du code, tu écris tout en minuscule (sauf une lettre par variable au moment de la déclaration) ainsi, quand tu valides ta ligne, tu peux voir ta minuscule se transformer en majuscule c'est une preuve qu'excel à reconnu ta variable et sa te facilitera énormément la recherche de bug suite à une faute de frappe.
Pour te forcer à déclarer les variables, il faut mettre ou laisse l'Option Explicit en tête de module.
J'espèce que je t'ai convaincue.
Bonne soirée
Marco

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 14 Septembre 2005

• #12

Bonsoir Marco, Sabine, Yves, le Forum


Merci Marco, ce que tu as écrit est tout à fait juste et bien fondé. Tu ne me convaincras pas, mais je tenais juste à te confirmer mon accord de principe sur les bases.

J'ajouterai juste une raison primaire de base de déclarer les variables, c'est aussi (et surtout) l'économie des ressources en mémoires vives de la machine (ça semble dérisoire avec un méga de RAM, mais il faut se dire que l'on peut faire tourner Excel avec un tas d'autres applis simultanément)

Bonne Nuit
[ol]@+Thierry[/ol]

 

Vote positif 0 Vote négatif

S

Sabine

Guest

• 14 Septembre 2005

• #13

Bien, bien, je vais essayer de retenir la lecon ! 🙂 🙂 🙂

Merci bcp en tout cas.

 

Vote positif 0 Vote négatif