Séparé une cellule en plusieurs

Fermé
gsk - 3 oct. 2017 à 11:38
gskmac Messages postés 3 Date d'inscription mardi 3 octobre 2017 Statut Membre Dernière intervention 3 octobre 2017 - 3 oct. 2017 à 23:18
Bonjour,

je voudrais repartir sur plusieurs colonnes , avec une condition sur le nombre de "_x000B_" pour chaque ligne
les cellules suivantes et d autres colonnes avec les libelles entre parenthese
par exemple

Ligne 1
02 33 36 72 32 (Atelier en Normandie)_x000B_06 67 21 72 18 (Eric)_x000B_06 61 23 00 81 (Harold, le fils)
Ligne 2
01 23 45 67 89 (Perso)_x000B_06 78 91 23 45 (Mobile)
Ligne 3
09 87 65 43 21

Merci de votre aide

3 réponses

Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 418
3 oct. 2017 à 12:35
Bonjour
pas facile à comprendre.. quelles sont les infos dans la cellule d'origine.*
pour faire clair, déposez un modèle avec des données conformes mais bidonnées si confidentialité, ici:
http://mon-partage.fr
ajoutez y quelques explications sur le résultat attendu et revenez ici coller le lien créé sur le site
à vous lire
crdlmnt
1
gskmac Messages postés 3 Date d'inscription mardi 3 octobre 2017 Statut Membre Dernière intervention 3 octobre 2017
3 oct. 2017 à 15:06
Effectivement , voici le fichier et un grand merci pour votre aide si precieuse
https://mon-partage.fr/f/vclDJ3Jm/
0
JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 858
Modifié le 3 oct. 2017 à 15:29
Bonjour,

une possibilité :
1) tu sélectionnes les cellules à répartir.
2) tu fais un Remplacer (CTRL+h) de "(" par "µ" puis ")_x000B_" par "µ", ")" par "µ" et enfin "_x000B_" par "µµ"
3) tu termines par une conversion (menu Données\Outils de données) en délimité en cochant "autre" et en saisissant "µ"

Cordialement

PS : si tu veux l'automatiser, lance l'enregistreur de macro en faisant ces manipulations
1
gskmac Messages postés 3 Date d'inscription mardi 3 octobre 2017 Statut Membre Dernière intervention 3 octobre 2017
3 oct. 2017 à 18:17
j essaye tout de suite , merci
0
Bonjour
si tu bricole un peux en VBA
voila une macro
Sub Test()
   For L = 2 To 4 'Nombre de Lignes
      MaVar = Range("A" & L).Value
      MaVar = Replace(Replace(MaVar, "(", "|"), ")", "|")
      MaVar = Replace(MaVar, "_x000B_", "|")
      Dec = Split(MaVar, "|")
         For C = 0 To UBound(Dec)
            Cells(L, C + 2).Value = Dec(C)
         Next
   Next
End Sub

A+
Maurice
1
gskmac Messages postés 3 Date d'inscription mardi 3 octobre 2017 Statut Membre Dernière intervention 3 octobre 2017
3 oct. 2017 à 23:18
Merci Archer
J admire cette maitrise mais malheureusement je ne suis pas expert en VBA
Un grand merci a vous 2,
la solution de JvDo marche superbement aussi
0