Supprimer la lettre X dans toutes la colonnes A en VBA

[Broch002]

Bonjour, le Forum.

J'ai cherché dans le forum, mais n'ai pas trouvé.
J'ai une colonne qui comporte pour certaines cellules la lettre "B" en début, je cherche à supprimer cette lettre par un code à inclure dans une macro, quelqu'un a t'il une idée?

merci d'avance.

Broch002

 

[Pierrot93]

Re : Supprimer la lettre X dans toutes la colonnes A en VBA

Bonjour,

essaye peut être ceci :

Option Explicit
Sub test()
Dim i As Long
For i = 1 To Range("B65536").End(xlUp).Row
With Cells(i, 2)
    If .Value Like "B*" Then .Value = Mid(.Value, 2)
End With
Next i
End Sub

bonne journée
@+

 

[Broch002]

Re : Supprimer la lettre X dans toutes la colonnes A en VBA

Bonjour,

essaye peut être ceci :

Option Explicit
Sub test()
Dim i As Long
For i = 1 To Range("B65536").End(xlUp).Row
With Cells(i, 2)
    If .Value Like "B*" Then .Value = Mid(.Value, 2)
End With
Next i
End Sub

bonne journée
@+

Bonjour,

J'essaie de suite.

Broch002