Lancer le recaclul d'une feuille à partir d'une ComboBox
Bonjour,
Je souhaite faire en sorte que lorsqu'on change la sélection d'une ComboBox, la feuille Excel se recalcule complètement.
J'ai une fonction, dans un module, qui dépend du choix de la sélection de la ComboBox:
Function MaFonction(ByVal Var1 As Double, ByVal Var2 As Double, ByVal Var3 As Double, ByVal Var4 As Double) As Double
If Worksheets("MaFeuille").ComboBox.Value = "Choix 1" Then
MaFonction = Var1+Var2+Var+Var4
ElseIf Worksheets("MaFeuille").ComboBox.Value = "Choix 2" Then
MaFonction = Var1*Var2*Var*Var4
End If
End Function
Et le code suivant pour la feuille MaFeuille:
Public Sub ComboBox_Change()
Application.Calculate
End Sub
Mais ça ne marche pas. Rien ne se passe si je change la sélection de la ComboBox.
Par contre, si je mets à jour cellule par cellule avec F2, les valeurs se mettent à jour en fonction de la nouvelle sélection dans la ComboBox...
Une solution?
Marcus
Super! Ca fonctionne nickel.
J'ai juste remplacé "Application.Calculate" par "ActiveSheet.Calculate"
Merci!