Réaliser des colonnes après chaque virgule
Résolu/Fermé
A voir également:
- Réaliser des colonnes après chaque virgule
- Word colonnes indépendantes - Guide
- Figer des colonnes excel - Guide
- Réaliser un organigramme - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Fusionner deux colonnes excel - Guide
3 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
Modifié par lermite222 le 15/02/2011 à 12:42
Modifié par lermite222 le 15/02/2011 à 12:42
Bonjoue,
Faut adapter la plage de travail (ici ligne 5 à 21, colonne 4)
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.
Un exemple...
Sub Separer()
Dim Lig As Long, TB, Col As Integer
Const dCol = 5 '1ère colonne où transposer
Const Sep = "," 'sélection du séparateur (ici la virgule)
For Lig = 5 To 21
TB = Split(Cells(Lig, 4), Sep)
For Col = 0 To UBound(TB)
Cells(Lig, Col + dCol) = TB(Col)
Next Col
Next Lig
End Sub
Faut adapter la plage de travail (ici ligne 5 à 21, colonne 4)
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.
