XL 2013 Extraire des chaines de caractère en VBA

[Flolongboard]

Bonjour,

Comment puis-je extraire en VBA les caractères des chaines suivantes sachant que seule l'année a un nb de caractères fixes
123-xxxxxxxxxxxxx-2019
1-xxxxx-2018

- à gauche du tiret (ex 123 ou 1) et les convertir en texte
- les 4 deniers caractères (2019 ou 2018)

Je vous remercie pour votre aide.

Flo

 

[jmfmarques]

Bonjour
Intéresse-toi (et utilise-la) à la fonction Split, parfaitement exposée à la rubrique Split, fonction de ton aide interne VBA

 

[sylvanu]

Bonsoir Flolongboard et bienvenu sur XLD, bonsoir Jmfmarques,
Un essai à tester :

Sub Extraire()
    Chaine = "123-xxxxxxxxxxxxx-2019"
    tablo = Split(Chaine, "-")
    DebChaine = tablo(0)
    Année = tablo(2)
End Sub

Fonction Split (Visual Basic pour Applications)

Rubrique de référence sur Office VBA

docs.microsoft.com

 

[kiki29]

Salut, à lire

 

[fanch55]

Salut,

Ce qui donne :

 

[Flolongboard]

Bonjour,
Merci à tous pour vos réponses !
Je vais utiliser la fonction split et le code de Sylvanu que j'ai adapté.

 

[Eric60390]

Salut, à lire

Merci de ce lien. A permis de résoudre mes nuits blanches ...

 

[soan]

Bonsoir,

« seule l'année a un nombre de caractères fixe »
et : « les 4 derniers caractères (2019 ou 2018) »

ok, mais comme l'année est toujours à la fin,
il suffit d'utiliser : =DROITE(A1;4)

attention : cette année sera une année texte,
pas une année numérique.

soan

 

[Staple1600]

Bonsoir le fil

solutions VBA, solutions formules.
Il manquait la troisième voie
C'est à dire:
Données-Convertir/Séparateur [x] Autres (choisir le tiret)
NB: A l'étape 3 de l'assistant , on peut choisir le type d'export
(voir copie écran ci-dessous)