sommation dans une macro

[Tmumu]

Bonjour,

Dans une macro je souhaite dans la cellule B2 mettre une formule de sommation - de la cellule C17 à la dernière cellule ‘‘ non vide’’.

J’ai essayé ceci :

Linfin = Range("a65536").End(xlUp).Row

Range("B2").Select
ActiveCell.FormulaR1C1 = "=SUM(Range(c17).select:range(c" & linfin).Select)

Mais cela ne fonctionne pas. Est-ce une erreur de syntaxe ?

D’avance merci pour votre aide.

 

[pierrejean]

Re : sommation dans une macro

Bonjour Tmumu

une solution:

linfin = Range("A65536").End(xlUp).Row
ad = Range("C17:C" & linfin).Address(0, 0)
ActiveCell.FormulaLocal = "=SOMME(" & ad & ")"

 

[mutzik]

Re : sommation dans une macro

Bonjour Tmumu, PierreJean,

une petite rectification d'apres ce que j'ai compris
ActiveCell.FormulaLocal = "=SOMME(C17:" & ad & ")"

rectification : ne pas tenir compte, j'ai pas encore les yeux en face des trous

 

[Tmumu]

Re : sommation dans une macro

Formidable !

Dans le même ordre d'idée je souhaite placer en a4 la différence entre la derniére cellule non vide de la collonne A et la cellule A16.

Merci

 

[pierrejean]

Re : sommation dans une macro

Re

Salut Mutzik

ad = Range("A65536").End(xlUp).Address(0, 0)
Range("A4").FormulaLocal = "=" & ad & "-A16"

 

[Tmumu]

Re : sommation dans une macro

merci Pierrejean

J'ai pas mal de problème de syntaxe sur les formules ou puis-je trouver de l'information sur le sujet?

Par exemple si je veux diviser le résultat obtenu par 365 ou par une valeur se trouvant dans une cellule.

thanks