Slt, je cherche a faire un traitement de caractère pour une cellule excel.

Je m'explique, je voudrais peut importe le nombre qui se trouve dans ma cellule insérer une virgule entre le 1er et le 2ème chiffre.

Je suppose qu'il faut récuperer mon nombre dans une variable string, couper cette chaine en 2 parties, le 1er chiffre dans une première chaine et les autres dans une seconde. Ensuite on concataine à la 1ère chaine une chaine contenant une virgule puis on concataine le tout a ma 2è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

ya meme pas besoin de vba ...
suffit d'utiliser les format personnalisé

@+

E.B.

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éro aprés la virgule excel les enléve donc
 'à toi de parametrer excel pour afficher les zéros
 
 MyRange.Value = MaChaine


Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé

ok merci je vais étudié ca.

Olivier