Bonjour,

j'ai un usf avec de nombreuse textbox, et je ne sais pas pourquoi quand je m'amuse à cliquer d'une textbox à une autre ma macro s'arrête et me mets incompatibilité de type

Voici le code de la textbox lors que ma macro bogue :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub TextBox_ht_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
    'Si la valeur de textbox_ht est un nombre sans virgule alors on rajoute la virgule et deux 0
    Dim vResult_ht As Variant, montant As String
    
    vResult_ht = Replace(TextBox_ht.Value, ".", ",")
    vResult_ht = CDbl(vResult_ht) 'arrêt du code ici
    TextBox_ht = IIf(IsNumeric(vResult_ht), Format(vResult_ht, "###0.00"), "")
    TextBox_ht = Replace(TextBox_ht, ",", ".")
        
End Sub
lorsque je passe de la première à la seconde et inversement (mon code pour la seconde textbox et le même avec vResult_ttc au lieu de vResult_ht et textbox_ttc à la place de textbox_ht)