Supprimer la fin d'une chaine de carractére
cybridd
Messages postés
8
Date d'inscription
dimanche 6 janvier 2008
Statut
Membre
Dernière intervention
22 septembre 2009
-
2 févr. 2008 à 17:53
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 - 2 févr. 2008 à 22:32
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 - 2 févr. 2008 à 22:32
A voir également:
- Vba supprimer espace fin de chaine
- Vba longueur chaine ✓ - Forum VB.NET
- Doevents vba - Conseils pratiques -Visual Basic / VB.NET
- Vba supprimer une feuille ✓ - Forum Visual Basic
- Parcourir une chaine de caractère en python ✓ - Forum Python
- Sous chaine en python - Forum Python
2 réponses
cs_casy
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
40
2 févr. 2008 à 17:55
2 févr. 2008 à 17:55
TaChaine = Left$(TaChaine , Len(TaChaine) - 14)
---- Sevyc64 (alias Casy) ---- <hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE # http://aide-office-vba.monforum.com/index.php
---- Sevyc64 (alias Casy) ---- <hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE # http://aide-office-vba.monforum.com/index.php
us_30
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
2 févr. 2008 à 22:32
2 févr. 2008 à 22:32
Bonsoir,
La réponse de Casy est juste, mais comme 14 caractères c'est grand, il faut aussi s'assurer que TaChaine contient au moins 14 carcatères sous peine d'une erreur d'exécution...
Pour cela, un simple test peut suffire avec :If Len(TaChaine) >14 Then TaChaine Left$(TaChaine, Len(TaChaine) - 14)
Ou une seconde solution, c'est de passer outre l'erreur avec :
On error resume next
TaChaine = Left$(TaChaine , Len(TaChaine) - 14)
Amicalement,
Us.
La réponse de Casy est juste, mais comme 14 caractères c'est grand, il faut aussi s'assurer que TaChaine contient au moins 14 carcatères sous peine d'une erreur d'exécution...
Pour cela, un simple test peut suffire avec :If Len(TaChaine) >14 Then TaChaine Left$(TaChaine, Len(TaChaine) - 14)
Ou une seconde solution, c'est de passer outre l'erreur avec :
On error resume next
TaChaine = Left$(TaChaine , Len(TaChaine) - 14)
Amicalement,
Us.
