Macro excel
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 :)
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 :)
2 réponses
-
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 -
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
