XL 2019 Traitement chaines de caractères vba

[chris4785478547]

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:

 Left ("année",2)

qui renvoie: an
Mais peut on donner une variable à la place de la chaine explicite ?
Merci

 

[Staple1600]

Re

=>chris
J'ai rangé mon string (cf message#11)
Mais je me suis attardé dans VBE

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.

 

[soan]

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