pb d'incompatibilité

[lioneldu47]

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😀

 

[Ubot303]

Re : pb d'incompatibilité

Bonjour à toi,

Je pense que la conversion nécessite autre chose qu'un champ vide ""

Une petite condition?
If TxtPriXAchat <> "" then .Cells(myVar, 5) = CDbl(TxtPriXAchat)

A+

 

[phlaurent55]

Re : pb d'incompatibilité

Bonjour lionel,

as-tu essayé de mettre la valeur 0 (zéro) dans tes Tbox à l'initialisation

si elles ne sont pas remplies lors de la saisie, tu ne devrais plus rencontrer de problèmes au cours de ta procédure

à+
Philippe

 

[Papou-net]

Re : pb d'incompatibilité

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😀

Bonjour lioneldu47, le Forum,

Une autre solution :

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

Ou encore :

        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)

Cordialement.

 

[lioneldu47]

Re : pb d'incompatibilité

Merci pour ton aide!!! je n'avais pas pensé à cela...Je l'ai adapté au reste de ma macro et cela fonctionne.merci

 

[lioneldu47]

Re : pb d'incompatibilité

Merci pour toutes vos réponses