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.
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
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
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