Souci avec les formats en VBA

Bonjour,

J'ai vraiment un souci de compréhension avec les formats en VBA.

Les données :excel 2016 + utilisation d'un Userform

J'ai un tableau avec une colonne représentant des mois =>>janvier,février......

A proximité de cette colonne, je dois mettre des montants en euros

Afin de produire une somme au finale....et c'est là que les problèmes commencent. L'addition ne se fait pas en automatique.

mon code :

Range("janvierr").Value = Format(Me.TextjanvierR, "#,##0.00 €")

Visuellement, c'est bon sauf que EXCEL considère que c'est un format personnalisé et donc la formule somme n'a aucun effet.

Si je rajoute cdbl pour réaliser une conversion en numérique comme ceci :

Range("marsr").Value = CDbl(Format(Me.TextmarsR, "#,##0.00"))

ça fonctionne SAUF que dans le formulaire je suis obligé de préciser une valeur, je ne peux pas laisser la textbox en question VIDE.

Et là, je sèche un peu....j'ai tenté différentes combinaisons y compris dans la textbox elle même....mais je passe à côté de l'essentiel.

merci pour votre aide

Bonjour Lenautile, bonjour le forum,

Peut-être avec :

If Me.TextmarsR.Value = "" Then Range("marsr").Value = "" Else Range("marsr").Value = CDbl(Format(Me.TextmarsR, "#,##0.00"))

Merci pour ta réponse, mais malheuseument ça ne fonctionne pas pour moi.

ça me bloque carrément le formulaire.

J'ai même essayé ce code dans la textbox

Private Sub TextmarsR_AfterUpdate()
If Me.TextmarsR.Value = "" Then
    Range("marsr").Value = "0"
ElseIf Me.TextmarsR.Value <> "" Then
    Range("marsr").Value = CDbl(Format(Me.TextmarsR, "#,##0.00"))
Else
End If
End Sub

Rien ne se passe, même la valeur 0 ne s'intégre pas, c'est curieux ?

Egalemement en début de code, c'est à dire avant la validation des autres valeurs.

Merci encore pour ton aide