Extraire des donnés

[phil59110]

Bonjour a tous,

voila j'aimerai faire une extration de donnés avec formule ou macro comme vous le voulez
mais comme un exemple vaut mieu que toutes les explications je vous est join un petit fichier

si vous voulez bien y jeter un petit coup d'oeil,

Je vous en Remerci beaucoup!!

 

[JHA]

Re : Extraire des donnés

Bonjour à tous,

As tu essayé Données/convertir/délimité choisir "autre" et mettre"-" suivant terminé

JHA

 

[david84]

Re : Extraire des donnés

Bonjour,
si tu veux absolument une formule :

=STXT("-"&$I5&"-";CHERCHE("§";SUBSTITUE("-"&$I5&"-";"-";"§";COLONNES($A:A)))+1;CHERCHE("§";SUBSTITUE("-"&$I5&"-";"-";"§";COLONNES($A:B)))-CHERCHE("§";SUBSTITUE("-"&$I5&"-";"-";"§";COLONNES($A:A)))-1)

Mais je te conseille la solution préconisée par JHA.
A+

 

[youky(BJ)]

Re : Extraire des donnés

Bonjour à vous,
Voici pour finir en macro . . .
Phil tu auras le choix
Bruno

 

[phil59110]

Re : Extraire des donnés

Bonjour JHA et david84,

ben oui j'ai pensé a cette solution avec donnés convertir mais je vais devoir le refaire a chaque fois donc pas trés pratique
sinon je vais tester cette formule et je dit quoi!

Merci beaucoup a vous!!

 

[phil59110]

Re : Extraire des donnés

Bonjour à vous,
Voici pour finir en macro . . .
Phil tu auras le choix
Bruno

bonjour Bruno
je vais tester ça aussi ça me permettera de comparer formule et macro!!

Merci beaucoup!

 

[phil59110]

Re : Extraire des donnés

J'ai tester la formule et ça fonctionne impec
Merci beaucoup david84!!!

j'ai aussi tester ta macro Bruno ça fonctionne impec mais ça extrait que 4 chiffres sur 5 donc est ce que tu peut me dire
comment je peut modifier la macro pour que ça extrai les 5 chiffres

Merci beaucoup!

 

[david84]

Re : Extraire des donnés

Re
par fonction personnalisée :

Function Séparer(c As String, rang As Integer) As String
Dim s
s = Split(c, "-")
If rang - 1 <= UBound(s) Then Séparer = s(rang - 1)
End Function

=Séparer($I5;COLONNES($A:A))

à tirer vers la droite et le bas.
A+

 

[phil59110]

Re : Extraire des donnés

Re
par fonction personnalisée :

Function Séparer(c As String, rang As Integer) As String
Dim s
s = Split(c, "-")
If rang - 1 <= UBound(s) Then Séparer = s(rang - 1)
End Function

=Séparer($I5;COLONNES($A:A))

à tirer vers la droite et le bas.
A+

je te remerci milles fois david84!!
Bonne soirée a toi et a tout le Forum!!

 

[youky(BJ)]

Re : Extraire des donnés

Re;
en effet il manque le dernier chiffre
il faut rectifier
For k = 1 To n
par
For k = 1 To n + 1
Petit oubli de ma part
Bruno

 

[phil59110]

Re : Extraire des donnés

Re;
en effet il manque le dernier chiffre
il faut rectifier
For k = 1 To n
par
For k = 1 To n + 1
Petit oubli de ma part
Bruno

Ok je fait cette rectification Encore Merci Bruno!!!

 

[phil59110]

Re : Extraire des donnés

Dites ce n'ais pas du tout le méme sujet mais j'ai reçu un fichier xlsm pouriez vous me dire comment sans servir de ce fichier sous excel 2003

Merci beaucoup!

 

[youky(BJ)]

Re : Extraire des donnés

.xlsm
Qui peut le plus peut le moins ! ! !
Lors d'envoie de fichiers sans connaitre les versions Excel du destinataire il est actuellement d'usage de faire enregistrer sous<<version 97-2003>> lorsque l'on possède Office2007 ou plus.
A demander à l'envoyeur de refaire le transfert en enregistrant comme ci-dessus.
Bruno