pb d'incompatibilité

lioneldu47 à dit:

Bonjour le forum,​

J'ai un problème d'incompatibilité.
Voici la partie de la macro où j'ai un problème:

.Cells(myVar, 5) = CDbl(TxtPriXAchat)
.Cells(myVar, 7) = CDbl(TxtPrixVente)
.Cells(myVar, 4) = CLng(Me.TxtStocks)
.Cells(myVar, 13) = CDbl(Me.Txtlimite)

En fait lorsque rien n'est inséré dans un des 4 textbox j'ai un problème d'incompatibilité à cause de CDbl par exemple. J'ai besoin de garder ce format mais ça arrive qu'il n'y ait rien dans la cellule. Comment éviter le débogage?

merci a tous😀

Cliquez pour agrandir...

        .Cells(myVar, 5) = IIf(TxtPriXAchat<>"";CDbl(TxtPriXAchat);"")
        .Cells(myVar, 7) = IIf(TxtPrixVente<>"";CDbl(TxtPrixVente);"")
        ...

        On Error Resume Next
        .Cells(myVar, 5) = CDbl(TxtPriXAchat)
        .Cells(myVar, 7) = CDbl(TxtPrixVente)
        .Cells(myVar, 4) = CLng(Me.TxtStocks)
        .Cells(myVar, 13) = CDbl(Me.Txtlimite)