Insertion d'une virgule dans une cellule excel

Question

Slt, je cherche a faire un traitement de caract&#232;re pour une cellule excel.

Je m'explique, je voudrais peut importe le nombre qui se trouve dans ma cellule ins&#233;rer une virgule entre le 1er et le 2&#232;me chiffre.

Je suppose qu'il faut r&#233;cuperer mon nombre dans une variable string, couper cette chaine en 2 parties, le 1er chiffre dans une premi&#232;re chaine et les autres dans une seconde. Ensuite on concataine &#224; la 1&#232;re chaine une chaine contenant une virgule puis on concataine le tout a ma 2&#232;me chaine. Il ne reste alors plus qu'a mettre cette nouvelle chaine dans ma cellule.

Cela n'est qu'une supposition et de plus je ne sais pas le faire.

Alors si quelqu'un le sait ou alors peut me proposer une autre solution ca serait cool.

Merci d'avance

Olivier

cs_EBArtSoft · Answer

ya meme pas besoin de vba ...
suffit d'utiliser les format personnalis&#233;

@+


E.B.

valtrase · Answer

Salut, une solution

Dim MaChaine As String
Dim intlongeur As Integer
Dim MyRange As Range
Dim strMyRange As String


    'Ici tu choisi ta cellule
Set MyRange = Range("A1")
strMyRange = CStr(MyRange.Value)


intlongeur = Len(strMyRange)
Select Case intlongeur
    Case 1, 2
        MaChaine = Left(strMyRange, 2) & "," & "00"
    Case Is = 3
        MaChaine = Left(strMyRange, 2) & "," & Mid(strMyRange, 3) & "0"
    Case Else
        MaChaine = Left(strMyRange, 2) & "," & Mid(strMyRange, 3)
End Select


 
 'Si tu as de z&#233;ro apr&#233;s la virgule excel les enl&#233;ve donc
 '&#224; toi de parametrer excel pour afficher les z&#233;ros
 
 MyRange.Value = MaChaine

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

olivier857 · Answer

ok merci je vais &#233;tudi&#233; ca.

Olivier

Insertion d'une virgule dans une cellule excel

3 réponses

Discussions similaires