Séparé une cellule en plusieurs

Fermé
Signaler
-
Messages postés
3
Date d'inscription
mardi 3 octobre 2017
Statut
Membre
Dernière intervention
3 octobre 2017
-
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

Messages postés
26296
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
26 novembre 2021
6 125
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Messages postés
3
Date d'inscription
mardi 3 octobre 2017
Statut
Membre
Dernière intervention
3 octobre 2017

Effectivement , voici le fichier et un grand merci pour votre aide si precieuse
https://mon-partage.fr/f/vclDJ3Jm/
Messages postés
1978
Date d'inscription
mercredi 27 juillet 2005
Statut
Membre
Dernière intervention
28 septembre 2020
847
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Messages postés
3
Date d'inscription
mardi 3 octobre 2017
Statut
Membre
Dernière intervention
3 octobre 2017

j essaye tout de suite , merci
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Messages postés
3
Date d'inscription
mardi 3 octobre 2017
Statut
Membre
Dernière intervention
3 octobre 2017

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