1 colonne en plusieurs colonnes
aba1998
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3013 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3013 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai un fichier de ce type : 1 seule colonne et 1500 lignes
NOM
ADRESSE
TEL
NOM
ADRESSE
TEL
.....
Je souhaiterais regrouper tous les nom sous une même colonne, pareil pour les adresses ainsi que les tel :
NOM - ADRESSE - TEL
NOM - ADRESSE - TEL
NOM - ADRESSE - TEL
....
J'ai testé la fonction transpose mais le résultat et juste inversé en ligne
Est ce que cela est possible ? une formule, une macro ?
Est ce que quelqu'un pourrait m'aider ? y-a t'il une solution ?
Je vous remercie d'avance
EL
j'ai un fichier de ce type : 1 seule colonne et 1500 lignes
NOM
ADRESSE
TEL
NOM
ADRESSE
TEL
.....
Je souhaiterais regrouper tous les nom sous une même colonne, pareil pour les adresses ainsi que les tel :
NOM - ADRESSE - TEL
NOM - ADRESSE - TEL
NOM - ADRESSE - TEL
....
J'ai testé la fonction transpose mais le résultat et juste inversé en ligne
Est ce que cela est possible ? une formule, une macro ?
Est ce que quelqu'un pourrait m'aider ? y-a t'il une solution ?
Je vous remercie d'avance
EL
A voir également:
- 1 colonne en plusieurs colonnes
- Formule moyenne excel plusieurs colonnes - Guide
- Déplacer colonne excel - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Comment faire des colonnes sur word - Guide
- Formule somme excel colonne - Guide
3 réponses
Re
Avec cette Macro tes cellules en colonnes F seront réparties sur les 3 premières colonnes :
Il faut que ta feuille soit en première position soit la plus à gauche.
Sub transfert()
Nb_Lgn = Sheets(1).Cells(Rows.Count, 6).End(xlUp).Row
X = 1
Y = 1
For i = 1 To Nb_Lgn
If X = 3 Then
Sheets(1).Cells(Y, X) = Sheets(1).Cells(i, 6)
X = 1
Y = Y + 1
Else
Sheets(1).Cells(Y, X) = Sheets(1).Cells(i, 6)
X = X + 1
End If
Next i
End Sub
Avec cette Macro tes cellules en colonnes F seront réparties sur les 3 premières colonnes :
Il faut que ta feuille soit en première position soit la plus à gauche.
Sub transfert()
Nb_Lgn = Sheets(1).Cells(Rows.Count, 6).End(xlUp).Row
X = 1
Y = 1
For i = 1 To Nb_Lgn
If X = 3 Then
Sheets(1).Cells(Y, X) = Sheets(1).Cells(i, 6)
X = 1
Y = Y + 1
Else
Sheets(1).Cells(Y, X) = Sheets(1).Cells(i, 6)
X = X + 1
End If
Next i
End Sub
Bonjour
Sélectionnez la colonne à copier.
Copiez la en faisant clic-droit puis Copier ou Ctrl + C.
Sélectionnez la cellule ou vous souhaitez coller sous forme de ligne et faites clic-droit puis Collage Spécial.
Dans le menu qui s'ouvre ensuite, cocher la case Transposé
Cordialement
Sélectionnez la colonne à copier.
Copiez la en faisant clic-droit puis Copier ou Ctrl + C.
Sélectionnez la cellule ou vous souhaitez coller sous forme de ligne et faites clic-droit puis Collage Spécial.
Dans le menu qui s'ouvre ensuite, cocher la case Transposé
Cordialement
