XL 2010 Extraction

Chasse · 24 Janvier 2018

Bonsoir le forum

j‘ besoin d’extraire d’une chaine
Colonne A 16 : l o g g i a d e l l a l u n a (2 0 1 5) M o r e l l i n o d i S c a n s a n o / T o s c a n e / I t a l i e

le nom Toscane qui se trouve entre 2 CAR(47) identique =/
et le nom Italie qui se trouve après le 2iem CAR(47)

colonne F = T o s c a n e
colonne G = I t a l i e

pour les autres colonne pas de problème
colonne B = 12
colonne C = L o g g i a d e l l a l u n a
colonne D = 2 0 1 5
colonne E = M o r e l l i n o d i S c a n s a n o

d'avance merci de votre aide

vgendron · 24 Janvier 2018

Hello

une idée avec une fonction personnalisée que tu appelles comme une fonction excel classique
code à metter dans un module standard vba

VB:

Function ville(target As Range, ind As Integer) As String
 ville = Split(target, "/")(ind - 1)
End Function

et dans la feuille excel tu tapes
=ville(A16;1)
1 = 1er élement avant le 1er /
2 = 2eme entre les deux /
3=3eme élément après le deuxiième /

tu pourrais aussi modifier la fonction pour faire un split sur le caractère parenthèse.. pour récuperer l'année...

vgendron · 24 Janvier 2018

avec ceci..

VB:

Function ville(target As Range, ind As Integer) As String

If ind = 1 Then ville = Split(target, "(")(0)                       'pour récupérer ce qu'il y a avant la première parenthèse "("
If ind = 2 Then ville = CInt(Left(Split(target, "(")(1), 7))        'pour récupérer l'année entre les parenthèses "("
If ind = 3 Then ville = Split(Split(target, ")")(1), "/")(0)        'pour récupérer ce qu'il y a avant la première parenthèse ")" et le premier "/"
If ind = 4 Or ind = 5 Then ville = Split(target, "/")(ind - 3)

End Function

zebanx · 24 Janvier 2018

Bravo Vgendron pour le #3
Je conserve perso, très intéressant.

Chasse · 24 Janvier 2018

Merci Vgendron

L'ai juste une erreur avec l'année 2015 et la région Toscane

If ind = 2 Then ville = CInt(Left(Split(target, "(")(1), 7)) 'pour récupérer l'année entre les parenthèses "("

et If ind = 4

Mais pour le reste chapeau bas

XL 2010 Extraction

Chasse

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

zebanx

XLDnaute Accro

Chasse

XLDnaute Occasionnel

Discussions similaires