Extraction d'une sous-chaine

Le
Apitos
Bonsoir,

Dans la feuille1 j'ai les données suivantes :

ArticlesLaboratoire
Bio-Tourbe-1 Biologie
Chm-Pipette-1 Chimie
Eln-Circuit intégré-1 Electronique
Eln-diode-1 Electronique
Eln-Omettre-1 Electronique
Elt-Ondulaire-1 Electricite
Bio- Stérilisateur -1 Biologie
Eln-Omettre-2 Electronique

Comment extraire les sous-chaines avant le tiret "-" dans la colonne A
ainsi que la valeur correspondante dans la colonne B pour avoir dans
Feuil2 le résultat suivant :

Laboratoire Abréviation
Biologie Bio
Chimie Chm
Electronique Eln
Electricité Elt

Merci.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 3
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Modeste
Le #5064821
Bonsour® Apitos avec ferveur ;o))) vous nous disiez :

Dans la feuille1 j'ai les données suivantes :
Articles.....................Laboratoire
Bio-Tourbe-1 Biologie
Chm-Pipette-1 Chimie
Eln-Circuit intégré-1 Electronique
Eln-diode-1 Electronique
Eln-Omettre-1 Electronique
Elt-Ondulaire-1 Electricite
Bio- Stérilisateur -1 Biologie
Eln-Omettre-2 Electronique

Comment extraire les sous-chaines avant le tiret "-" dans la colonne A
ainsi que la valeur correspondante dans la colonne B pour avoir dans
Feuil2 le résultat suivant :
Laboratoire............... Abréviation
Biologie Bio
Chimie Chm
Electronique Eln
Electricité Elt


la détection des espaces n'est pas fiable (notament dans "Circuit intégré")
alors en feuil2
en A2
=STXT(STXT(Feuil1!A2;1+TROUVE("-";Feuil1!A2);9^9);3+TROUVE("-";STXT(Feuil1!A2;1+TROUVE("-";Feuil1!A2);9^9));9^9)
en B2
=GAUCHE(Feuil1!A2;TROUVE("-";Feuil1!A2)-1)



Merci.




--
--
@+
;o)))

Jacky
Le #5064781
Bonsoir,

Un peu plus court....
en colonne A
=STXT(Feuil1!A2;TROUVE("-";Feuil1!A2;TROUVE("-";Feuil1!A2;1)+1)+3;NBCAR(Feuil1!A2))
en colonne B
=GAUCHE(Feuil1!A2;TROUVE("-";Feuil1!A2)-1)
--
Salutations
JJ


"Apitos"
Bonsoir,

Dans la feuille1 j'ai les données suivantes :

Articles.....................Laboratoire
Bio-Tourbe-1 Biologie
Chm-Pipette-1 Chimie
Eln-Circuit intégré-1 Electronique
Eln-diode-1 Electronique
Eln-Omettre-1 Electronique
Elt-Ondulaire-1 Electricite
Bio- Stérilisateur-1 Biologie
Eln-Omettre-2 Electronique

Comment extraire les sous-chaines avant le tiret "-" dans la colonne A
ainsi que la valeur correspondante dans la colonne B pour avoir dans
Feuil2 le résultat suivant :

Laboratoire............... Abréviation
Biologie Bio
Chimie Chm
Electronique Eln
Electricité Elt

Merci.
LSteph
Le #5064731
Bonsoir,
si c'est touours 3 c

=gauche(articles;3)

ou articles représente la plage
--
lSteph
Bonsoir,

Dans la feuille1 j'ai les données suivantes :

Articles.....................Laboratoire
Bio-Tourbe-1 Biologie
Chm-Pipette-1 Chimie
Eln-Circuit intégré-1 Electronique
Eln-diode-1 Electronique
Eln-Omettre-1 Electronique
Elt-Ondulaire-1 Electricite
Bio- Stérilisateur -1 Biologie
Eln-Omettre-2 Electronique

Comment extraire les sous-chaines avant le tiret "-" dans la colonne A
ainsi que la valeur correspondante dans la colonne B pour avoir dans
Feuil2 le résultat suivant :

Laboratoire............... Abréviation
Biologie Bio
Chimie Chm
Electronique Eln
Electricité Elt

Merci.


Apitos
Le #5064721
Bonsoir Modeste, Jacky.

J'ai essayé avec vos formulaires mais ça n'a pas marché.

Alors j'ai utilsé une macro pour le besoin, mais il reste des
correstions à faire.

Voilà un fichier joint.

http://cjoint.com/?lxxC5ZsTHa

Merci.
Apitos
Le #5064701
Bonsoir LSteph;

Non ce n'est pas forcément trois caractères.

Merci.
AH60
Le #5064681
Bonsoir
avec une fonction perso.

ouvre ce lien http://cjoint.com/?lyav0uQaWr

Function Ext(champ As Range)
Ext = Split(champ, "-")(0)
End Function

Abed_H





Bonsoir,

Dans la feuille1 j'ai les données suivantes :

Articles.....................Laboratoire
Bio-Tourbe-1 Biologie
Chm-Pipette-1 Chimie
Eln-Circuit intégré-1 Electronique
Eln-diode-1 Electronique
Eln-Omettre-1 Electronique
Elt-Ondulaire-1 Electricite
Bio- Stérilisateur -1 Biologie
Eln-Omettre-2 Electronique

Comment extraire les sous-chaines avant le tiret "-" dans la colonne A
ainsi que la valeur correspondante dans la colonne B pour avoir dans
Feuil2 le résultat suivant :

Laboratoire............... Abréviation
Biologie Bio
Chimie Chm
Electronique Eln
Electricité Elt

Merci.



AH60
Le #5064671
un autre fichier à été chargé par erreur......! je ne sais pas
ouvre ça http://cjoint.com/?lyaAVtllri

Abed_H



Bonsoir,

Dans la feuille1 j'ai les données suivantes :

Articles.....................Laboratoire
Bio-Tourbe-1 Biologie
Chm-Pipette-1 Chimie
Eln-Circuit intégré-1 Electronique
Eln-diode-1 Electronique
Eln-Omettre-1 Electronique
Elt-Ondulaire-1 Electricite
Bio- Stérilisateur -1 Biologie
Eln-Omettre-2 Electronique

Comment extraire les sous-chaines avant le tiret "-" dans la colonne A
ainsi que la valeur correspondante dans la colonne B pour avoir dans
Feuil2 le résultat suivant :

Laboratoire............... Abréviation
Biologie Bio
Chimie Chm
Electronique Eln
Electricité Elt

Merci.



AH60
Le #5064661
je m'excuse Apitos le fichier ne peut être envoyé surement ya un problème
mais avec cette fonction tu trouvera ton bonheure

Function Ext(champ As Range)
Ext = Split(champ, "-")(0)
End Function

Abed_H



un autre fichier à été chargé par erreur......! je ne sais pas
ouvre ça http://cjoint.com/?lyaAVtllri

Abed_H



Bonsoir,

Dans la feuille1 j'ai les données suivantes :

Articles.....................Laboratoire
Bio-Tourbe-1 Biologie
Chm-Pipette-1 Chimie
Eln-Circuit intégré-1 Electronique
Eln-diode-1 Electronique
Eln-Omettre-1 Electronique
Elt-Ondulaire-1 Electricite
Bio- Stérilisateur -1 Biologie
Eln-Omettre-2 Electronique

Comment extraire les sous-chaines avant le tiret "-" dans la colonne A
ainsi que la valeur correspondante dans la colonne B pour avoir dans
Feuil2 le résultat suivant :

Laboratoire............... Abréviation
Biologie Bio
Chimie Chm
Electronique Eln
Electricité Elt

Merci.





Apitos
Le #5064651
Bonjour AH,

je vais la tester, en attendant d'autres idées.

Merci.
JB
Le #5064641
Bonjour,

http://cjoint.com/?lyfkjSkVUE

Set mondico = CreateObject("Scripting.Dictionary")
Set f = Sheets("feuil1")
For Each c In f.Range("B2", f.[B65000].End(xlUp))
If Not mondico.Exists(c.Value) Then mondico.Add c.Value,
Left(c.Offset(0, -1), InStr(c.Offset(0, -1), "-") - 1)
Next c
[f2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
[g2].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)

JB
http://boisgontierjacques.free.fr


On 23 nov, 21:59, Apitos
Bonsoir,

Dans la feuille1 j'ai les données suivantes :

Articles.....................Laboratoire
Bio-Tourbe-1 Biologie
Chm-Pipette-1 Chimie
Eln-Circuit intégré-1 Electronique
Eln-diode-1 Electronique
Eln-Omettre-1 Electronique
Elt-Ondulaire-1 Electricite
Bio- Stérilisateur -1 Biologie
Eln-Omettre-2 Electronique

Comment extraire les sous-chaines avant le tiret "-" dans la colonne A
ainsi que la valeur correspondante dans la colonne B pour avoir dans
Feuil2 le résultat suivant :

Laboratoire............... Abréviation
Biologie Bio
Chimie Chm
Electronique Eln
Electricité Elt

Merci.


Publicité
Poster une réponse
Anonyme