Adaptation de formule en VBA

Y compris Power BI, Power Query et toute autre question en lien avec Excel
c
criscris11
Membre fidèle
Membre fidèle
Messages : 216
Inscrit le : 12 juillet 2008
Version d'Excel : 2010 FR

Message par criscris11 » 2 juillet 2014, 08:59

Bonjour,

J'ai transposé une formule en VBA mais je suis confronté à un petit souci dans l'exécution du code (erreur 13 : incompatibilité de type).
Le résultat de la formule en D5 doit être retrouvé dans mon TextBox nommé XP_Vol dans le formulaire.
Ci-joint mon fichier test.
Merci d'avance.
Test.xlsm
(42.58 Kio) Téléchargé 13 fois
f
frangy
Passionné d'Excel
Passionné d'Excel
Messages : 4'342
Inscrit le : 19 novembre 2012
Version d'Excel : 2007 FR

Message par frangy » 2 juillet 2014, 09:50

Bonjour,

Essaie comme cela
Private Sub ComboBox3_Change()
If Me.ComboBox2 = "Lvl 1" Then
Me.XP_Vol.Value = Application.Index(Range("XP"), Application.Match(Me.ComboBox1, Range("Lvl_Héros_XP"), 0), Application.Match(Me.ComboBox2, Range("Lvl_Jets_XP")) + Application.Match(CInt(Me.ComboBox3), Range("Temps_de_Vol1_XP"), 0) - 1)
Else
Me.XP_Vol.Value = Application.Index(Range("XP"), Application.Match(Me.ComboBox1, Range("Lvl_Héros_XP"), 0), Application.Match(Me.ComboBox2, Range("Lvl_Jets_XP")) + Application.Match(CInt(Me.ComboBox3), Range("Temps_de_Vol_XP"), 0) - 1)
End If
End Sub
A+
c
criscris11
Membre fidèle
Membre fidèle
Messages : 216
Inscrit le : 12 juillet 2008
Version d'Excel : 2010 FR

Message par criscris11 » 2 juillet 2014, 11:47

Re,

Merci frangy, c'est impeccable.
Bonne journée.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message