Discussion :

[Vadorblanc]

Bonjour
Après divers code VBA pour finaliser un projet, je constate que certaines colonnes contiennent des apostrophes à gauche dans chaque cellule, exemple : 'Toto 'Tata 'Titi sont précédés d'une apostrophe, j'ai essayé par différentes formules: Epurage; Supprespace, Gauche...rien n'y fait, je retrouve cet apostrophe '
J'utilise le copier collage spéciale valeur pour supprimer mon format formule cellule.
Je cherche depuis sans résoudre ce problème, auriez vous une solution ?
Merci

[doncamelo]

Bonsoir Vadorblanc,

utilise la fonction substitue.
Si ta donnée se trouve en A1, la formule sera:

=sustitue(A1;" ' ";"")

En espérant que cela puisse t'aider.

[Vadorblanc]

Bonjour doncamelo
Merci pour ta proposition
Voici un code qui fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub EnleveApostrophe()
Sheets(1).Select
Dim Cel As Range
For Each Cel In Cells.SpecialCells(xlCellTypeConstants, 23)
    If Cel.PrefixCharacter <> "" Then
        Cel.Formula = Cel.Formula
    End If
Next Cel
End Sub

Merci à toi
Cordialement