Supprimer premier caractère de gauche

[ascal44]

Bonsoir, je voudrais supprimer le premier caractère de gauche d'une cellule et ceci sur toute une colonne.
Je ne suis vraiement pas doué.

 

[jeanpierre]

Re : Supprimer premier caractère de gauche

Bonsoir ascal44, re le forum,

Avec une colonne supplémentaire, c'est possible.

Regarde du coté de STXT,

par exemple = STXT(A1;2;nombre selon le nombre de caractère derrière)
Où 2 est la première lettre de départ de l'extraction et le second (par exemple 6 sera le combre de caractères à extraire), mais sans plus de précision.... pas facile le clés en main...

Bonne soirée.

Jean-Pierre

 

[CB60]

Re : Supprimer premier caractère de gauche

Bonsoir à tous
Ou alors tu selectionne ta colonne, tu choisi données, convertir, largeur fixe, tu click sur l'echelle (pour selectionner un caractere) et ensuite tu choisi colonne non distribué pour la premiere colonne

 

[jeanpierre]

Re : Supprimer premier caractère de gauche

Bonsoir CB60,

Oui, effectivement, pas idiot ta méthode.... même pas pensé...

Bonne soirée.

Jean-Pierre

 

[CB60]

Re : Supprimer premier caractère de gauche

re
C'est normal Jean Pierre, il y a eu beaucoup de bruit sur le Mans ce WE, alors la tu te repose un peu

 

[marmotte18]

Re : Supprimer premier caractère de gauche

Bonsoir,

Soit A1, la cellule pour laquelle il faut enlever le 1er caractère.

Met en B1, la formule

=STXT(A1;2;NBCAR(A1))

=> le 1er caractère sera ainsi supprimé !

 

[Paulhardmen]

Re : Supprimer premier caractère de gauche

Bonsoir,

Soit A1, la cellule pour laquelle il faut enlever le 1er caractère.

Met en B1, la formule

=STXT(A1;2;NBCAR(A1))

=> le 1er caractère sera ains

Hello, en fait ça l'extrait, mais ne le supprime pas...

 

[soan]

Bonjour @Paulhardmen,

en PJ : un fichier exemple ; fais Ctrl e ➯ travail effectué

note bien que la 1ère ligne est inchangée ; ce n'est pas un bug : c'est voulu,
pour préserver une ligne d'en-têtes ; à toi d'adapter le code VBA si besoin.

si tu n'arrives pas à adapter pour ton fichier, envoie-le sur le forum,
mais sans données confidentielles.

Sub Essai()
  Dim Tbl, n&: Application.ScreenUpdating = 0
  n = Cells(Rows.Count, 1).End(3).Row
  If n = 1 Then Exit Sub
  Dim chn$, i&: n = n - 1: Tbl = [A2].Resize(n)
  For i = 1 To n
    chn = Tbl(i, 1)
    If Len(chn) > 1 Then Tbl(i, 1) = Mid$(Tbl(i, 1), 2)
  Next i
  [A2].Resize(n) = Tbl
End Sub

soan

 

[Staple1600]

Bonjour le fil,

=>Paulhardmen

Hello, en fait ça l'extrait, mais ne le supprime pas...

Ce qui n'est pas un problème puisque la solution la plus simple fut donnée par CB60
[=> Données/Convertir<=]
La question qui démeure donc est :
Pourquoi diable est-tu allé déterrer en 2020 ce vieux fil de 2007 solutionné en 2007?