Bonjour,

Je suis de nouveau confronter un problème, sans doute à cause d'un mauvais format utiliser à la base.
Je hais les formats!

J'ai dans ma colonne A et B de mon fichier des noms, malheureusement certains sont précédés d'un apostrophe ( ' ) et d'autres pas
J'aimerai simplement supprimer ces apostrophes lorsqu'il y en a:

J'ai ecrit ce bout de code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub corriger_apostrophe()
Dim i As Long
Dim j As Long
Dim chaine As String
j = 0
i = 2
 
With Sheets("fusion_entreprise")
Do
i = 2
j = j + 1
    Do
      MsgBox (Left(.Cells(i, j), 1)) 'la Msgbox ne trouve jamais l'apostrophe mais donne la premiere lettre du nom à la place 
    If Left(.Cells(i, j), 1) = "'" Then
 
    chaine = Replace(Left(.Cells(i, j).Value, 1), "'", "") 'remplace l'apostrophe par rien
    End If
    i = i + 1
    Loop Until .Cells(i, j).Value = "" 
Loop Until j = 3
End With
 
End Sub
Si quelqu'un sait comment faire, merci de m'aider


Cdlt
DoDo