Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Séparer le contenu de plusieurs colonnes en 2

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion F1.999
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

F1.999

Guest
Bonjour,

voici mon problème, j'ai un fichier avec de nombreuses colonnes (+ de 5000) contenant chacune 2 caractères. Ce que j'aimerais faire, c'est disposer chacun des 2 caractères dans une colonne individuelle et ce, pour l'ensemble des colonnes. Cela revient à avoir un seul caractère par colonne. J'ai joint une partie du fichier au cas où je n'aurais pas été très clair.
Merci d'avance
 

Pièces jointes

Trier par date Trier par votes
Re : Séparer le contenu de plusieurs colonnes en 2

Bonsoir et Bienvenu sur XLD,
en G1 :
Code: 
=STXT(DECALER($A1;;ENT((COLONNES($G:G)-1)/2));MOD(COLONNES($G:G)-1;2)+1;1)
@ tirer vers le bas et vers la droite
Amicalement
 
Vote positif 0 Vote négatif
Re : Séparer le contenu de plusieurs colonnes en 2

Bonsoir F1.999

Il suffit d'utiliser les fonctions GAUCHE() et DROITE() d'Excel
Les 2 première cellules : A20 =GAUCHE(A1;1) / B20 =DROITE(A1;1)
Ensuite de décaler : C20 =GAUCHE(B1;1) / D20 =DROITE(B1;1)
C20 et D20 à copier et recoller vers la droite su autant de colonne que tu as besoin

Edit : Oups salut Rachid, alors là je me fais tout petit, mé tout tout petit 😉😀

A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Séparer le contenu de plusieurs colonnes en 2

Bonjour, cette macro devrait convenir :
VB: 
Private Sub CommandButton1_Click()
Dim c As Range, Der As Long
Application.ScreenUpdating = False
Set c = Range("A1").End(xlToRight)
Der = c.End(xlDown).Row
Do
  c.Offset(, 1).Resize(, 2).EntireColumn.Insert
  Range(c.Offset(, 1), c.Offset(Der - 1, 1)).FormulaR1C1 = "=LEFT(RC[-1],1)"
  Range(c.Offset(, 2), c.Offset(Der - 1, 2)).FormulaR1C1 = "=Right(RC[-2],1)"
  Range(c.Offset(, 1), c.Offset(Der - 1, 2)).Value = Range(c.Offset(, 1), c.Offset(Der - 1, 2)).Value
  If c.Column = 1 Then Exit Do
  Set c = c.Offset(, -1)
  c.Offset(, 1).EntireColumn.Delete
Loop
c.EntireColumn.Delete
Application.ScreenUpdating = True
End Sub

cf. fichier joint

Edit : Bonjour Rachid, Bruno.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Séparer le contenu de plusieurs colonnes en 2

Merci Rachid_0661 et BrunoM45 pour vos réponses, même si c'est la réponse de Softmama qui correspond le mieux à mon problème. En effet, j'ai plus de 5000 colonnes, je n'ai donc pas envie de retaper la formule à chaque fois. Un grand merci à toi Softmama. J'ai rajouter "--" dans les cellules vides de mon fichier car autrement la macro s’arrêtait dès qu'elle trouvait une cellule vide sur la première ligne. Maintenant ça marche nickel.

Encore un grand merci à vous et à bientôt sur ce forum
 
Vote positif 0 Vote négatif
Re : Séparer le contenu de plusieurs colonnes en 2

Bonsoir @ tous,
même si c'est la réponse de Softmama qui correspond le mieux à mon problème. En effet, j'ai plus de 5000 colonnes, je n'ai donc pas envie de retaper la formule à chaque fois
Cliquez pour agrandir...
c'est vrai que la macro est plus rapide dans le cas de 5000 colonnes, je remercie notre ami Softmama, mais tu n'as pas besoin de retaper la formule a chaque fois, je pense que j'ai dis,
@ tirer vers le bas et vers la droite
Cliquez pour agrandir...

J'ai rajouter "--" dans les cellules vides de mon fichier car autrement la macro s’arrêtait dès qu'elle trouvait une cellule vide sur la première ligne.
Cliquez pour agrandir...
Si tu as mis cette possiblite d'avoir des cellules vides, je suis sur que notre cher ami va l'apprendre en compte et te donnera une macro adaptee.
Amicalement
 
Vote positif 0 Vote négatif
Re : Séparer le contenu de plusieurs colonnes en 2

Bonsoir tout le monde,

Tu dois pouvoir adapter ainsi, pour gérer les colonnes vides :
VB: 
Private Sub CommandButton1_Click()
Dim c As Range, Der As Long
Application.ScreenUpdating = False
Set c = Cells(1, ActiveSheet.UsedRange.Columns.Count)
Der = ActiveSheet.UsedRange.Rows.Count
Do
  If Application.CountA(c.EntireColumn) > 0 Then
    c.Offset(, 1).Resize(, 2).EntireColumn.Insert
    Range(c.Offset(, 1), c.Offset(Der - 1, 1)).FormulaR1C1 = "=LEFT(RC[-1],1)"
    Range(c.Offset(, 2), c.Offset(Der - 1, 2)).FormulaR1C1 = "=Right(RC[-2],1)"
    Range(c.Offset(, 1), c.Offset(Der - 1, 2)).Value = Range(c.Offset(, 1), c.Offset(Der - 1, 2)).Value
  End If
  If c.Column = 1 Then Exit Do
  Set c = c.Offset(, -1)
  c.Offset(, 1).EntireColumn.Delete
Loop
c.EntireColumn.Delete
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

G
  • Résolu(e)
Microsoft 365 Séparer Numéro de compte et intitulés d'une colonne
Réponses
2
Affichages
214
Germaine
G
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
315
Nico Gre
N
B
  • Résolu(e)
XL 2021 Séparer les adresses (Rue et N°) en 2 cellules avec un macro
2
Réponses
20
Affichages
2 K
Banbara
B
F
  • Question Question
XL pour MAC Mise en forme conditionnelle
Réponses
6
Affichages
345
flea
F
K
  • Question Question
XL 2010 copier le contenu de plusieurs feuilles sur une seule
Réponses
3
Affichages
374
sylvanu
R
  • Question Question
XL 2010 Copie de plusieurs plages de cellules spécifiques dans le presse-papier
2
Réponses
20
Affichages
937
Dranreb
O
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellules si une autre cellule est vide
Réponses
9
Affichages
607
Olihoes
O
E
  • Résolu(e)
Microsoft 365 ComboBox "dynamiques" sans doublon sur plusieurs colonnes
Réponses
2
Affichages
408
ExcLnoob
E
M
  • Question Question
XL 2021 Fichier de suivi avec liens et formules
Réponses
4
Affichages
502
Mily74
M
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
575
fanch55
  • Résolu(e)
Microsoft 365 Ajout d'onglet par VBA et entête de colonnes
2
Réponses
17
Affichages
2 K
Roseline
  • Résolu(e)
Microsoft 365 Extraction d'informations sur différents onglets en partant d'une base de données
Réponses
7
Affichages
829
MBax
J
  • Résolu(e)
XL 2021 Diviser 2 colonnes de cumul dans un tcd
Réponses
2
Affichages
698
Julien__74
J
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
1 K
loloboc
L
B
  • Question Question
XL 2016 Récupérer les valeurs de chaque titre à partir de plusieurs onglets
Réponses
4
Affichages
622
bnolwalid
B
P
  • Question Question
Power Pivot Filtrer une somme en fonction de filtres sur un graphique
Réponses
2
Affichages
573
Pierre111
P
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
2 K
Pac41240
P
C
  • Question Question
Microsoft 365 Liste déroulante en colonne 2 en fonction de la colonne 1
Réponses
9
Affichages
973
chris
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
927
crocrocro
C
S
  • Question Question
XL 2016 Comparaison de valeur entre 2 colonnes + affichage du résultat trouvé
Réponses
8
Affichages
997
sgomez7
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…