Discussion :

[freyliss]

Bonjour,

Voilà dans mes cellules, j'ai cela par exemple "ABCD123456"

Je voudrais supprimer les 4 premiers caractères en partant de la gauche donc "ABCD", afin d'avoir dans ma cellule que "123456".

Merci d'avance pour vos réponses.

[jfontaine]

Essai comme ca

Code :

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

Mid("ABCD123456", 5, Len("ABCD123456"))

[Pierre Fauconnier]

Bonjour

Ou encore

Code :

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

right(cellule,len(cellule)-4)

[ucfoutu]

Bonjour,

1) Le len(....) ne sert rigoureusement à rien ici puisque Mid l'inclut par défaut !

Mid("ABCD123456", 5) fera donc exactement la même chose .

pour ceux qui veulent s'amuser, on peut également écrire :

Code :

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

1
2
3
4
5
Private Sub Command4_Click()
  toto = "abcd123456"
  Mid(toto, 1, 4) = "    "
  MsgBox Trim(toto)
End Sub

on pourrait même s'amuser avec Replace.
On pourrait également jouer avec autre chose...
Mais la solution de jfontaine reste la plus rapide (en enlevant toutefois le len(machinchouette) inutile ici.

Bonne continuation...

[zazaraignée]

Bonjour,

1) Le len(....) ne sert rigoureusement à rien ici puisque Mid l'inclut par défaut !

Si on utilise la fonction Right, comme proposé plus haut, la fonction Len devient paratiquement obligatoire puisqu'il est pratiquement impossible de deviner d'avance la longueur de la chaîne de départ.

Mid("ABCD123456", 5) fera donc exactement la même chose .

pour ceux qui veulent s'amuser, on peut également écrire :

Code :

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

1
2
3
4
5
Private Sub Command4_Click()
  toto = "abcd123456"
  Mid(toto, 1, 4) = "    "
  MsgBox Trim(toto)
End Sub

!

Cette solution a été, à peu de chose près, déjà proposée.

on pourrait même s'amuser avec Replace.
On pourrait également jouer avec autre chose...
Mais la solution de jfontaine reste la plus rapide (en enlevant toutefois le len(machinchouette) inutile ici.

Pas d'accord. Il faudrait être certain que la cellule contient toujours les même quatre premiers caractères, ce qui n'est surement pas le cas.

[LeForestier]

Bien que UcFoutu aie la critique aisée, je doit bien reconnaître qu'il a raison sur ce point

Code :

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

Mid("ABCD123456", 5)

Est suffisant.

[jfontaine]

c'est surtout que je suis plutot habitué a utiliser substring en .NET donc j'ai tendance a garder les mêmes syntaxes.

[ucfoutu]

Bonjour, zazaraignée,

Je ne vois pas ce que ce que sont les 4 premiers caractères aurait à voir ...

Bien que je sois (et l'ai dit) défavorable à la solution Replace, elle serait celle-ci, tout simplement :

Code :

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

1
2
3
4
Private Sub Command1_Click()
  texte = "abcd123456"
  MsgBox Replace(texte, Left(texte, 4), "")
End Sub

Bonne continuation...

[freyliss]

Merci pour les diverses propositions proposées, j'ai pu trouver mon bonheur .

Et j'ai fait un truc de ce genre et qui fonctionne :

Code :

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

1
2
3
4
5
 
    Columns("D:D").Select
    Selection.Replace What:="WBS ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Voilà, bonne journée