extraire des différents mots d'une mm cellule

[Edeb]

Slt ! Un dieu d'excel pourrait peut etre m'aider svp.
sur une cellule j'ai: "ZAMN CANADA 2VITAM L LA NONTRADE"
je voudrais extraire chacune de ces dimensions dans les cellules suivantes.
Du genre B1:ZAMN, C1:CANADA, D1:2VITAM, etc...

merci bcp
ced

 

[Foufoudora]

Re : extraire des différents mots d'une mm cellule

Salut,
tu fais données/convertir/ suivant suivant terminer et le travail est fait
Cordialement

Je ne suis pas un Dieu

Foufoudora

 

[pierrejean]

Re : extraire des différents mots d'une mm cellule

bonjour edeb

salut foufoudora

pas un dieu non plus

version vba

Sub eclate()
eclatement = Split(Selection.Value, " ", [COLOR=red]3[/COLOR])
For n = 0 To UBound(eclatement)
Selection.Offset(0, n + 1) = eclatement(n)
Next n
End Sub

en faisant varier le chiffre en rouge (3) on sert 3 cellules ou plus

exemple dans fichier

Et Merci à Hervé pour le split

 

[Hervé]

Re : extraire des différents mots d'une mm cellule

bonjour à tous

de rien pierrejean, merci à toi pour le split(....,3)

plus court :

Sub eclate()
Selection(1, 2).Resize(1, 3) = Split(Selection.Value, " ", 3)
End Sub

salut

 

[mamard]

Bonjour, je poste une question plus ou moins identique dans ce thème : l'objectif est d'analyser de manière macro les descriptions de "fourniseurs" contenues dans une cellule.
- Ceci consiste à y trouver des "mots clés" qui sont dans une autre table dédiée, puis les "extraire".

J'ai fait un petit fichier avec 3 onglets : données d'entrée > table de données > résultat attendu.
Si quelqun à quelques minutes pour se pencher sur le sujet, ça serait super.

nb : j'espère que c'est faisable en excel pour "débutant" car je ne connais rien du tout à VBA ...

Merci beaucoup !

 

[laurent950]

Bonjour Pierrejean,

dans cette fonction split ici
- eclatement = Split(Selection.Value, " ", 3)
le chiffre 3 correspond à la dimension du tableau que tu donnes soit :
- eclatement est une variable tableau a 1 dimension et 3 cases réservé
C'est cela Pierrejean ?

Laurent

 

[laurent950]

Bonsoir mamard,
C'est possible en passant par des Regex mais si Pierrejean ou Hervé ont des pistes.

Regex : Memo

Aide-mémoire des regex / regexp sur ExpReg

sujet déjà traité si cela peux aider
https://www.excel-downloads.com/threads/vba-rechercher-une-chaine-de-caractères-dans-une-autre.104975/

 

[mapomme]

Bonsoir @mamard,

- Ceci consiste à y trouver des "mots clés" qui sont dans une autre table dédiée, puis les "extraire".

Une piste avec une fonction personnalisée (écrite en VBA) à mettre dans un module. Voir code dans module1.

Function Critères_Fournisseur(Description, MotsClef As Range, Quoi)
'------------------------------------------------------------------------------------------
' Description => Description du fournisseur de la feuille "Input"
' MotsClefs => tableau à deux colonnes des Mots-clef et notes de la feuille "Mots clefs"
' suivant le tableau choisi, on traite les qualités ou les défauts
' Quoi => si Quoi = 1, on renvoie le texte des qualités ou défauts
' Quoi => si Quoi = 2, on renvoie le total des notes des qualités ou défauts
'------------------------------------------------------------------------------------------

 

[mamard]

Bonsoir à tous, merci beaucoup pour vos retours.
Je viens de tester la solution de @mapomme qui est super....
à un détail près : ne connaissant rien de rien en VBA, je n'arrive pas à faire fonctionner la fonction dans mon excel d'origine.

J'ai fais (et refais) :
- excel de mapomme : clic droit sur l'onglet de la formule > visualiser le code > copie le code
- mon excel d'origine : idem > création d'un Module 1 > coller le code > ré intégrer la formule et là .... "#NOM?"

C'est très frustrant

Bonne soirée