XL 2010 Effacer caractère

[mcj1997]

Bonjour,

J’ai un tableau avec des valeurs qui comportent toutes une apostrophe sur la gauche exemple ‘234,56

Je ne peux donc pas faire la moindre opération, j’ai chercher dans FORMAT et ne trouve rien. Quelqu’un saurait il comment faire ? Peut être avec une macro afin de modifier sur la feuille entière.

Merci d’avance

 

[Victor21]

Bonjour.

A défaut d'un fichier exemple, au hasard :

 

[Jocelyn]

Bonjour le forum,
Bonjour mcj1997,

A tester taper 1 dans une cellule vide faire un copier de cette cellule puis sélectionner la plage de cellule a modifier faire un collage spéciale et choisir multiplication

Avec un fichier exemple les choses sont plus simples pour nous

Cordialement

Edit : Bonjour l'ami victor21 bien content de te croiser

 

[eriiic]

Bonjour à tous,

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

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

 

[mcj1997]

Bonjour.

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

Merci, simple et efficace mais il fallait y penser.

 

[mcj1997]

Bonjour à tous,

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

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

merci