XL 2013 Extraire des chaines de caractère en VBA

J

jmfmarques

XLDnaute Accro

• 4 Juin 2020

• #2

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 4 Juin 2020

• #3

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

VB:

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

 

Vote positif 0 Vote négatif

Solution

kiki29

XLDnaute Barbatruc

• 4 Juin 2020

• #4

Salut, à lire

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 4 Juin 2020

• #5

Salut,

Ce qui donne :

 

Vote positif 0 Vote négatif

F

Flolongboard

XLDnaute Nouveau

• 5 Juin 2020

• #6

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

 

Vote positif 0 Vote négatif

E

Eric60390

XLDnaute Nouveau

• 21 Décembre 2020

• #7

kiki29 à dit:

Salut, à lire

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 21 Décembre 2020

• #8

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Décembre 2020

• #9

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)

 

Vote positif 0 Vote négatif