VBA/ Excel Comment supprmier un caractère

Fermé
Rachid - 4 déc. 2008 à 15:56
herod1983 Messages postés 193 Date d'inscription jeudi 2 octobre 2008 Statut Membre Dernière intervention 3 août 2012 - 9 déc. 2008 à 00:06
Bonjour,
J'ai une colonne contenant des chiffres d'affaires. J'ai plusieurs chiffre de cette forme là 102,304,50 . Je voudrais savoir comment pourrais-je supprimer le premier virgule à gauche et garder l'autre chiffre du décimale tout en sachant que j'ai des milliers des chiffres. Merci beaucoup d'avance.
A voir également:

2 réponses

Réponse 1 / 2
Rachid
4 déc. 2008 à 17:38
Svp , c'est très urgent!!!!! Merci
0
Réponse 2 / 2
herod1983 Messages postés 193 Date d'inscription jeudi 2 octobre 2008 Statut Membre Dernière intervention 3 août 2012 5
9 déc. 2008 à 00:06
Salut

A mettre dans un module, tu pourra l'appeler d'un bouton par ex.
Garde par contre les décimales aux nombre maximum de 2 comme tu la indiqué 102,304,50 

Sub essai()

'déclare variable
Dim avantvirgule , apresvirgule As Long
Dim chiffresrestant

'boucle sur col. A de 1 a 10000
For i = 1 To 10000

    If Cells(i, 1).Value <> "" Then
    
        If Mid(Cells(i, 1).Value, 4, 1) = "," Then

        
        On Error Resume Next
        'garde chiffre a gauche de 1er virgule
        avantvirgule = (Split(Cells(i, 1).Value, ",")(0))
        'garde chiffre a droite de 1er virgule
        apresvirgule = (Split(Cells(i, 1).Value, ",")(1))
        'rajoute derniere virgule ainsi que dernier chiffres
        chiffresrestant = Mid(Cells(i, 1).Value, 8, 2)
        
        'modif de la cellule
        Cells(i, 1).Value = avantvirgule & apresvirgule & chiffresrestant
    
        End If
    End If

Next i

End Sub
0