déclencher une macro

Question

Bonjour,

Je voudrais rajouter dans une macro un &#233;v&#232;nement, c'est a dire que lorsque la cellule A1 est remplie la macro fonction se d&#233;clanche. Je voudrais &#233;galement que le r&#233;sultat de la cellule s'inscrivent en B2 par exemple.
Je ne sais pas o&#249; et comment rajouter ces &#233;l&#233;ments dans ma macro
Voici ma macro :

Function coutstockage() As Currency
Dim cout As Currency
Dim nbpal As Integer
Dim cmm As Integer



If Cells(12, 2) = "UM" Then


nbpal = Cells(8, 2)
cmm = Cells(10, 2)
cout = Cells(11, 2)
Else
nbpal = Cells(8, 3)
cmm = Cells(10, 3)
cout = Cells(11, 3)
End If


Dim nbmois As Integer
nbmois = (nbpal / cmm)


Dim t As Integer
t = 0
Do While t <> nbmois


coutstockage = coutstockage + (cout * (nbpal - (t * cmm)))


t = t + 1
Loop


End Function

Quelqu'un peu m'aider svp
Merci d'avance
Aur&#233;lie

michelxld · Answer

bonsoir

tu peux tester cette procedure qui utilise l'evenement Change , &#224; placer au niveau de la feuille 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value <> "" Then Range("B2") = coutstockage
End If
End Sub



bonne soiree
michel

Lyly601 · Answer

Merci pour la formule, elle marche cependant je souhaiterai une pr&#233;cision? 

Je voudrais plus pr&#233;ciemment que si une de mes cellules  B2,B3,B4,ou B5 change alors la macro se relance



Merci d'avance

Déclencher une macro

2 réponses

Discussions similaires