Separer plusieurs mots d'une cellule

Dugenou

XLDnaute Barbatruc

• 22 Octobre 2013

• #2

Re : Separer plusieurs mots d'une cellule

Bonjour,
Sélectionner la colonne,
données/convertir, type de fichier délimité , suivant, séparateur point virgule, terminer

ensuite supprimer les colonnes inutiles

Cordialement

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 22 Octobre 2013

• #3

Re : Separer plusieurs mots d'une cellule

Bonjour dormir et bienvenu sur XLD, salut Dugenou 😀,

Sinon avec une petite macro

VB:

Option Explicit
Sub Explose()
Dim i&, a
For i = 2 To [A65536].End(xlUp).Row
  a = Split(Cells(i, 1), ";")
  Cells(i, 2) = a(6)
  Cells(i, 3) = Trim(a(7))
  Cells(i, 4) = Trim(a(9))
  Cells(i, 5) = Trim(a(17))
  Cells(i, 6) = a(20)
  Cells(i, 7) = Trim(a(21))
Next
End Sub

A+

Martial

 

Vote positif 0 Vote négatif

D

dormir

XLDnaute Nouveau

• 22 Octobre 2013

• #4

Re : Separer plusieurs mots d'une cellule

Je te remercie tu es une génie.

 

Vote positif 0 Vote négatif

D

dormir

XLDnaute Nouveau

• 22 Octobre 2013

• #5

Re : Separer plusieurs mots d'une cellule

Martial,
je ne comprends pas la macro. Peux tu me le faire direct sur mon fichier. Je te remercie par avance.

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 22 Octobre 2013

• #6

Re : Separer plusieurs mots d'une cellule

Voici ton fichier.

Dans la macro, j'écris les données à partir de la colonne B, pour ne pas effacer les données de ta colonne A. Il est possible d'écraser ta colonne A et d'inscrire les données à partir de cette colonne.

A+

 

Pièces jointes

• test forum excel.xls

  32 KB · Affichages: 70
• test forum excel.xls

  32 KB · Affichages: 64
• test forum excel.xls

  32 KB · Affichages: 65

Vote positif 0 Vote négatif

D

dormir

XLDnaute Nouveau

• 22 Octobre 2013

• #7

Re : Separer plusieurs mots d'une cellule

Merci martial.
Je suis debutant sur excel ou as tu étais exactement pour faire cette fonction (Macro???).
Et qu'est ce que tu as ecrits.
Merci
Vous etes des magiciens

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 22 Octobre 2013

• #8

Re : Separer plusieurs mots d'une cellule

Pour accéder aux macros, tu fais Alt+F11 cela ouvre une fenêtre appelée Visual Basic Editor, sur la gauche tu trouves les noms de tes feuilles + Module1

La macro se situe dans la partie de droite, s'il n'y a rien, il faut cliquer ou double-cliquer sur Module1 de la partie de gauche.
Pour lancer la macro pas à pas, tu peux faire F8 à chaque fois que tu appuies sur cette touche tu descends d'une ligne.
Voici la macro avec des lignes de commentaires (en vert) te permettant de comprendre comment ça marche.

VB:

Sub Explose()
'Déclaration des variables
Dim i&, a
'i sera le N° de ligne
'Pour i de 2 (puisque ton tableau commence à la ligne 2)
'jusqu'à la dernière ligne pleine de la colonne A
For i = 2 To [A65536].End(xlUp).Row
  'On décompose les données de la cellule (ligne = 1, colonne = 1 (A))
  'on découpe à chaque ;
  a = Split(Cells(i, 1), ";")
  'On place ensuite les parties de a dans les colonnes souhaitées
  Cells(i, 2) = a(6)
  'On utlise Trim pour supprimer les espaces avant et après la donnée copiée
  Cells(i, 3) = Trim(a(7))
  Cells(i, 4) = Trim(a(9))
  Cells(i, 5) = Trim(a(17))
  Cells(i, 6) = a(20)
  Cells(i, 7) = Trim(a(21))
Next
End Sub

En espérant t'avoir aidé 😀

A+

 

Pièces jointes

• Capture.jpg

  55.9 KB · Affichages: 91
• Capture.jpg

  55.9 KB · Affichages: 89

Vote positif 0 Vote négatif

D

dormir

XLDnaute Nouveau

• 22 Octobre 2013

• #9

Re : Separer plusieurs mots d'une cellule

Je te remercie. Je test ce soir

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Octobre 2013

• #10

Re : Separer plusieurs mots d'une cellule

Bonsoir à tous

dormir

Je suis debutant sur excel

Cliquez pour agrandir...

Dans ce cas, privilégie la solution proposée par Dugenou (Données/Convertir) dans le message #2

Solution à laquelle j'apporterai cette petite précision:

Dans l'assistant Données/Convertir ( à l'étape 3) , tu peux cocher : Colonne non distribuée.
pour ne pas traiter les colonnes qui ne t'intéressent pas.

Ce qui évite de devoir les effacer ensuite.

 

Dernière édition: 22 Octobre 2013

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 22 Octobre 2013

• #11

Re : Separer plusieurs mots d'une cellule

Salut Staple 😀,

Oui, c'est clair que c'est plus simple par l'assistant Données/Convertir mais ça ne traite pas les espaces après les noms.
Donc, tout dépend de ce que veut en faire dormir.

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Octobre 2013

• #12

Re : Separer plusieurs mots d'une cellule

Salut Yaloo

Yaloo
J'essaie juste d'inciter dormir à utiliser les fonctions natives d'Excel puisqu'il débute, avant de basculer dans l'univers VBA 😉
Car une fois qu'il aura gouter au VBA, il risque de devenir accro 😉

PS: C'est aussi parce que j'ai l'impression qu'il avait zappé le message de Dugenou 😉

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 22 Octobre 2013

• #13

Re : Separer plusieurs mots d'une cellule

Re Staple 🙄,

C'est vrai, que lorsque tu commences VBA, ça ne s'arrête pas, personnellement j'ai tendance à "sauter" les fonctions natives (à tort évidemment) 😡.
Mais je ne pense pas que dormir ai zapper la réponse de Dugenou, vois son post#4 😱.

A+

 

Vote positif 0 Vote négatif