Macro excel

Fermé
Lumi - 22 sept. 2010 à 11:50
cousinhub29 Messages postés 643 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 24 mars 2023 - 12 oct. 2010 à 14:36
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 :)


2 réponses

melanie1324
12 oct. 2010 à 13:51
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
0
cousinhub29 Messages postés 643 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 24 mars 2023 325
12 oct. 2010 à 14:36
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
0