Adaptation de formule en VBA

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.

15test.xlsm (42.58 Ko)

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+

Re,

Merci frangy, c'est impeccable.

Bonne journée.

Rechercher des sujets similaires à "adaptation formule vba"