'"montant" est un textbox du userform "Convoyeur"
Cells(li, 3) = Convoyeur.montant.Value
Cells(li, 3).Style = "euro"
Est-il possible de ne pas faire apparaître le ",00" qui se trouve derrière
la valeur dans la cellule, et de faire apparaître la virgule et ce qui a
derrière seulement si j'entre une valeur à virgule ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
PMO
Bonjour,
Créez le style "euro2" identique à votre style "euro" sauf en ce qui concerne le nombre de décimales qu'il faut mettre = 0 Modifiez votre code selon le code ci-dessous.
'**************** Dim var var = Convoyeur.Montant If IsNumeric(var) Then If CLng(var) = var Then Cells(1, 3).Style = "euro2" Else Cells(1, 3).Style = "euro" End If End If Cells(1, 3) = var '****************
Cordialement. -- PMO Patrick Morange
Bonjour,
Dans mon code, j'ai ceci :
'"montant" est un textbox du userform "Convoyeur" Cells(li, 3) = Convoyeur.montant.Value Cells(li, 3).Style = "euro"
Est-il possible de ne pas faire apparaître le ",00" qui se trouve derrière la valeur dans la cellule, et de faire apparaître la virgule et ce qui a derrière seulement si j'entre une valeur à virgule ?
Bonjour,
Créez le style "euro2" identique à votre style "euro" sauf en
ce qui concerne le nombre de décimales qu'il faut mettre = 0
Modifiez votre code selon le code ci-dessous.
'****************
Dim var
var = Convoyeur.Montant
If IsNumeric(var) Then
If CLng(var) = var Then
Cells(1, 3).Style = "euro2"
Else
Cells(1, 3).Style = "euro"
End If
End If
Cells(1, 3) = var
'****************
Cordialement.
--
PMO
Patrick Morange
Bonjour,
Dans mon code, j'ai ceci :
'"montant" est un textbox du userform "Convoyeur"
Cells(li, 3) = Convoyeur.montant.Value
Cells(li, 3).Style = "euro"
Est-il possible de ne pas faire apparaître le ",00" qui se trouve derrière
la valeur dans la cellule, et de faire apparaître la virgule et ce qui a
derrière seulement si j'entre une valeur à virgule ?
Créez le style "euro2" identique à votre style "euro" sauf en ce qui concerne le nombre de décimales qu'il faut mettre = 0 Modifiez votre code selon le code ci-dessous.
'**************** Dim var var = Convoyeur.Montant If IsNumeric(var) Then If CLng(var) = var Then Cells(1, 3).Style = "euro2" Else Cells(1, 3).Style = "euro" End If End If Cells(1, 3) = var '****************
Cordialement. -- PMO Patrick Morange
Bonjour,
Dans mon code, j'ai ceci :
'"montant" est un textbox du userform "Convoyeur" Cells(li, 3) = Convoyeur.montant.Value Cells(li, 3).Style = "euro"
Est-il possible de ne pas faire apparaître le ",00" qui se trouve derrière la valeur dans la cellule, et de faire apparaître la virgule et ce qui a derrière seulement si j'entre une valeur à virgule ?
mephisto_atecmi
Merci beaucoup !! J'ai failli partir du boulot sans avoir la réponse, j'aurai pas dormi cette nuit... A+.
Bonjour,
Créez le style "euro2" identique à votre style "euro" sauf en ce qui concerne le nombre de décimales qu'il faut mettre = 0 Modifiez votre code selon le code ci-dessous.
'**************** Dim var var = Convoyeur.Montant If IsNumeric(var) Then If CLng(var) = var Then Cells(1, 3).Style = "euro2" Else Cells(1, 3).Style = "euro" End If End If Cells(1, 3) = var '****************
Cordialement. -- PMO Patrick Morange
Bonjour,
Dans mon code, j'ai ceci :
'"montant" est un textbox du userform "Convoyeur" Cells(li, 3) = Convoyeur.montant.Value Cells(li, 3).Style = "euro"
Est-il possible de ne pas faire apparaître le ",00" qui se trouve derrière la valeur dans la cellule, et de faire apparaître la virgule et ce qui a derrière seulement si j'entre une valeur à virgule ?
Merci beaucoup !! J'ai failli partir du boulot sans avoir la réponse,
j'aurai pas dormi cette nuit...
A+.
Bonjour,
Créez le style "euro2" identique à votre style "euro" sauf en
ce qui concerne le nombre de décimales qu'il faut mettre = 0
Modifiez votre code selon le code ci-dessous.
'****************
Dim var
var = Convoyeur.Montant
If IsNumeric(var) Then
If CLng(var) = var Then
Cells(1, 3).Style = "euro2"
Else
Cells(1, 3).Style = "euro"
End If
End If
Cells(1, 3) = var
'****************
Cordialement.
--
PMO
Patrick Morange
Bonjour,
Dans mon code, j'ai ceci :
'"montant" est un textbox du userform "Convoyeur"
Cells(li, 3) = Convoyeur.montant.Value
Cells(li, 3).Style = "euro"
Est-il possible de ne pas faire apparaître le ",00" qui se trouve derrière
la valeur dans la cellule, et de faire apparaître la virgule et ce qui a
derrière seulement si j'entre une valeur à virgule ?
Merci beaucoup !! J'ai failli partir du boulot sans avoir la réponse, j'aurai pas dormi cette nuit... A+.
Bonjour,
Créez le style "euro2" identique à votre style "euro" sauf en ce qui concerne le nombre de décimales qu'il faut mettre = 0 Modifiez votre code selon le code ci-dessous.
'**************** Dim var var = Convoyeur.Montant If IsNumeric(var) Then If CLng(var) = var Then Cells(1, 3).Style = "euro2" Else Cells(1, 3).Style = "euro" End If End If Cells(1, 3) = var '****************
Cordialement. -- PMO Patrick Morange
Bonjour,
Dans mon code, j'ai ceci :
'"montant" est un textbox du userform "Convoyeur" Cells(li, 3) = Convoyeur.montant.Value Cells(li, 3).Style = "euro"
Est-il possible de ne pas faire apparaître le ",00" qui se trouve derrière la valeur dans la cellule, et de faire apparaître la virgule et ce qui a derrière seulement si j'entre une valeur à virgule ?
