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.
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.
Essai comme ca
Code : Sélectionner tout - Visualiser dans une fenêtre à part Mid("ABCD123456", 5, Len("ABCD123456"))
Bonjour
Ou encore
Code : Sélectionner tout - Visualiser dans une fenêtre à part right(cellule,len(cellule)-4)
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 :
on pourrait même s'amuser avec Replace.
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 également jouer avec autre chose...
Mais la solution de jfontaine reste la plus rapide (en enlevant toutefois le len(machinchouette) inutile ici.
Bonne continuation...
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.Envoyé par ucfoutu
Cette solution a été, à peu de chose près, déjà proposée.Envoyé par ucfoutu
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.Envoyé par ucfoutu
Bien que UcFoutu aie la critique aisée, je doit bien reconnaître qu'il a raison sur ce point
Est suffisant.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Mid("ABCD123456", 5)
c'est surtout que je suis plutot habitué a utiliser substring en .NET donc j'ai tendance a garder les mêmes syntaxes.
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 :
Bonne continuation...
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
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 :
Voilà, bonne journée
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager