séparation de données dans une cellule

mutzik

XLDnaute Barbatruc

• 28 Août 2007

• #2

Re : séparation de données dans une cellule

Bonjour,

tu veux le faire en automatique (VBA => fichier exemple)
ou en manuel :
- données / convertir / choisir comme séparateur le '/'

 

Vote positif 0 Vote négatif

T

titcoeur

XLDnaute Occasionnel

• 28 Août 2007

• #3

Re : séparation de données dans une cellule

Coucou

heu ...
ma solution était beaucoup plus tirée par les cheveux j'avoue :

substituer(cell;"/";"*";3) pour chager le dernier / en *

puis faire une fonction milieu à partir du *

Mais Mutzik est plus efficasse et surtout plus simple


A+

 

Vote positif 0 Vote négatif

J

judikael

XLDnaute Occasionnel

• 28 Août 2007

• #4

Re : séparation de données dans une cellule

Merci à vous deux mais je ne peux convertir car avec l'outil d'import dans excel ca bug ensuite et il me faut faire encore plus de manip ensuite

je sais je suis embetant 😉

 

Vote positif 0 Vote négatif

T

titcoeur

XLDnaute Occasionnel

• 28 Août 2007

• #5

Re : séparation de données dans une cellule

ma solution ne demande pas de convertir

c'est juste une alternative à
gauche
et droite

1) tu changes le dernier / en * par la formule SUBSTITUTE (voir version française)
2) tu obtiens l'occurence du * avec la fonction CHERCHE (comme dans ta solution)
3) tu utilise la fonction MID au lieu de la fonction gauche

en anglais (désolée , ai excel anglais) ça donne ,

mid(substitute(cell;"/";"*";3);find("*";substitute(cell;"/";"*";3);20)

 

Vote positif 0 Vote négatif

J

judikael

XLDnaute Occasionnel

• 28 Août 2007

• #6

Re : séparation de données dans une cellule

je vais essayer merci

 

Vote positif 0 Vote négatif

S

smotty

XLDnaute Occasionnel

• 28 Août 2007

• #7

Re : séparation de données dans une cellule

Bonjour à tous,

Sinon il existe la possibilité de créer une fonction dans un module telle que cell-ci.
Puis d'appeler cette fonction depuis une cellule.

La fonction ci-dessous peut-etre appelée comme ça:

=ElementChaine(Cellule;séparateur;niveau(à partir de 1))

elle donne le nième élément dans une chaine.

J'espère avoir été clair.

Function ElementChaine(ByRef Chaine As Range, _
ByVal Separateur As String, ByVal niv As Integer) As String
'récup d'un élément dans une chaine
If Chaine.Value <> "" Then
tabch = Split(Chaine.Value, "/")
ElementChaine = tabch(niv - 1)
Else
ElementChaine = ""
End If
End Function

 

Vote positif 0 Vote négatif

J

judikael

XLDnaute Occasionnel

• 7 Septembre 2007

• #8

Re : séparation de données dans une cellule

Merci à tous de votre aide

 

Vote positif 0 Vote négatif