Macro excel

Question

Bonjour tout le monde.

Je suis assez nul dans ce domaine et je me permet donc de demander de l'aide. 

Je souhaite faire une macro excel qui me stockerai des valeurs dans la feuille numéro 2 à l'aide d'un bouton.
Je m'explique : 

J'ai une formule dans ma feuil1 qui fait la somme de plein de chiffres (par ex. de C5 à C65 + H52 à H124)...

Je souhaiterai que le résultat de cette formule soit stocké dans une variable puis écrite dans la cellule A1 de la feuille 2.

Par contre, à chaque fois que je lance cette marco, il ne faut pas que les valeurs s'écrasent entre elles.

A1 : résultat 1 
A2 : résultat 2
...

Merci d'avance pour votre aide :)


Configuration: Windows XP / Firefox 3.6.2

melanie1324 · Answer

Bonjour,

sub résultatformule ()

a = Sheets("Feuil1").cells(1,2) ' remplaces Feuil1 par ton nom de feuille
'cells(1,2) = cellule située à la première ligne, 2e colonne remplaces les chiffres s'ils ne sont pas bons.

i=2
do while Sheets("Feuil2").cells(i,1) <> ""
i=i+1
loop

Sheets("Feuil2").cells(i,1) = a

end sub

cousinhub29 · Answer

Bonjour,

Une autre variante....

Sub lumi()
Dim Plg As Range
With Sheets("Feuil1")
    Set Plg = Union(.Range("C5:C65"), .Range("H52:H124"))
End With
Sheets("Feuil2").Range("A65000").End(xlUp)(2) = Application.Sum(Plg)
End Sub


Mef aux petits points, devant les .Range.....

Bonne soirée

Macro excel

2 réponses

Discussions similaires

Newsletters