VBA/ Excel Comment supprmier un caractère

Question

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.

Rachid · Answer

Svp , c'est très urgent!!!!! Merci

herod1983 · Answer

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

VBA/ Excel Comment supprmier un caractère

2 réponses

Discussions similaires

Newsletters