XL 2010 Effacer caractère

Victor21 à dit:

Bonjour.

A défaut d'un fichier exemple, au hasard :
Regarde la pièce jointe 1029260

Cliquez pour agrandir...

eriiiic à dit:

Bonjour à tous,

Si c'est répétitif et que tu veux par macro, comme ce sont des nombres :

VB:

Sub prefixe()
    Dim pl As Range, c As Range
    Set pl = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlTextValues)
    'Set pl = Intersect(Columns(1), ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlTextValues))
    If Not pl Is Nothing Then
        For Each c In pl
            If c.PrefixCharacter <> "" Then c.Formula = c.Formula
        Next c
    End If
End Sub

Si besoin remplacer au passage le séparateur décimal.
Si des textes sont concernés il faudrait faire légèrement différemment.

Ponctuellement le collage spécial proposé au-dessus est rapide.
eric

Cliquez pour agrandir...