Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Extraction d'une sous-chaine

22 réponses
Avatar
Apitos
Bonsoir,

Dans la feuille1 j'ai les donn=E9es suivantes :

Articles.....................Laboratoire
Bio-Tourbe-1 Biologie
Chm-Pipette-1 Chimie
Eln-Circuit int=E9gr=E9-1 Electronique
Eln-diode-1 Electronique
Eln-Omettre-1 Electronique
Elt-Ondulaire-1 Electricite
Bio- St=E9rilisateur -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=E9sultat suivant :

Laboratoire............... Abr=E9viation
Biologie Bio
Chimie Chm
Electronique Eln
Electricit=E9 Elt

Merci.

10 réponses

1 2 3
Avatar
Modeste
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)))

Avatar
Jacky
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" a écrit dans le message de news:

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.
Avatar
LSteph
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.


Avatar
Apitos
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.
Avatar
Apitos
Bonsoir LSteph;

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

Merci.
Avatar
AH60
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.



Avatar
AH60
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.



Avatar
AH60
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.





Avatar
Apitos
Bonjour AH,

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

Merci.
Avatar
JB
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 wrote:
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.


1 2 3