Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Traitement chaines de caractères vba

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

chris4785478547

XLDnaute Junior
Bonsoir le fil,

A nouveau, Bonne Année à tous.
Je connais la syntaxe pour tronquer une chaine de caractères par la gauche (par exemple) à savoir:

VB:
 Left ("année",2)
qui renvoie: an
Mais peut on donner une variable à la place de la chaine explicite ?
Merci
 
Re

=>chris
J'ai rangé mon string (cf message#11) 😉
Mais je me suis attardé dans VBE
VB:
Sub En_attendant_la_rentrée()
Dim vChaine$
vChaine = "chris4785478547"
MsgBox extraire(vChaine, 5)
MsgBox extraire(vChaine, 5, "D")
MsgBox extraire(vChaine, 8, "PapaWasARollingStone")
End Sub
Private Function extraire(chaine, vNB, Optional SENS = "G") As String
Dim tmp$
Select Case SENS
Case "G"
tmp = Left(chaine, vNB)
Case "D"
tmp = Right(chaine, vNB)
Case Else
tmp = Mid(chaine, 1, vNB)
End Select
extraire = tmp
End Function
Au delà de la blague, en théorie, ta curioisité VBAistique devrait te pousser à me poser des questions.
😉
 
Bonjour @chris4785478547, Staple, le fil,

rappel de mon énigme :

« as-tu compris pourquoi j'ai utilisé aussi RTrim$() ? »

solution : c'est car ça prend les 2 premiers caractères !

* en A9 : "A conseiller pour les entreprises." ➯ "A " : « A » et 1 espace

* en A11 : "À l'écoute..." ➯ "À " : « À » et 1 espace

le RTrim$ sert à supprimer l'espace de droite qui est en trop ! 🙂
(R de RTrim est pour Right = droite)




y'a aussi LTrim$ pour supprimer les espaces de gauche
(L de LTrim est pour Left = gauche)

si y'a besoin de supprimer les espaces de gauche ET
les espaces de droite, utiliser : Trim$


soan
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…