Discussion :

[kernkraft]

J'ai presque le même problème que dans cette discussion:
J'ai une colonne avec un texte commençant à chaque fois par un C:
exemple:
CJEAN
CMICHEL
CANDRE

et je voudrais obtenir

JEAN
MICHEL
ANDRE

Quelqu'un pourrait m'aider?

[AlainTech]

Bonsoir,

En supposant que ta feuille s'appelle Feuil1, que les données à traiter soient en colonne A et que tu veuilles ton résultat en colonne B, voici un petit 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
Sub SupprPremCaract()
  Dim c As Range  ' Ce range pointera sur chacune des cellules parcourues par la boucle For Each
  Dim r As Range  ' Ce range pointera sur l'ensemble des cellules à traiter
  Set r = Range(Sheets("Feuil1").Cells(1, 1), Sheets("Feuil1").Cells(Sheets("Feuil1").Rows.Count, 1).End(xlUp))
  For Each c In r
    If Not IsEmpty(c) Then
      c.Offset(0, 1) = Mid(c.Text, 2)
      ' Si tu veux convertir les données dans la colonne où elles sont
      ' remplace la ligne précédente par
      ' c = Mid(c.Text, 2)
      ' Mais attention, chaque fois que cette routine sera lancée
      ' elle supprimera un caractère de chaque nom
    End If
  Next c
End Sub

[kernkraft]

Excellent c'est exactement ce qu'il me fallait.

Un tout grand merci!