Excel, colonne en ligne

Résolu
laetice13 Messages postés 78 Statut Membre -  
laetice13 Messages postés 78 Statut Membre -
Bonjour,
je viens d'importer des données de word en excel. Sous excel, elles apparaissent sur une seule colonne de cette façon:
nom1
titre1
adresse1
cp1
ville1

et de même pour le nom 2 et les suivants

je voudrais que ces données se mettent en colonne automatiquement de façon à ce que nom1, nom 2 etc soient ds la colonne avec le champ "nom", titre 1, titre 2 etc ds la colonne avec le champ "titre" etc.
merci de m'aider !
Laetice13
A voir également:

9 réponses

Réponse 1 / 9
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
bonjour,

toutes tes données se trouvent elles dans la même colonne Excel
ou par exemple, nom1 dans colonne A nom2 colonne B ?

Si c'est dans la m^me colonne, tu sélectionnes toutes les données puis "copier", tu sélectionnes une cellule comme B2 édition- collage spécial -transposé (XL<2007)

sinon, on trouvera quelque chose
0
Réponse 2 / 9
laetice13 Messages postés 78 Statut Membre 1
 
merci michel pr ton aide,
oui ttes les données sont dans la colonne A
j'ai fait ce que tu m'as conseillé mais tout est en ligne, en fait je voudrais que les données de A1, A7, A13, A17: Mr X, Mr y, etc soient dans la colonne B
les données de A2, A8,A14 soient dans la colonne C etc,
je ne sais pas si c'est explicite ?
merci d'avance
0
Réponse 3 / 9
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
OK, je regarde...
0
Réponse 4 / 9
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Bonjour michel, laetice13
Une idée !! 
Sub Transpose()
Dim lig As Long, e As Integer, LigAr As Long
    With Sheets("Feuil1")
        LigAr = 2
        For lig = 1 To .Range("A65536").End(xlUp).Row Step 6
            col = 2
            For e = lig To lig + 5
                Cells(LigAr, col) = Cells(e, 1)
                col = col + 1
            Next e
            LigAr = LigAr + 1
        Next lig
    End With
End Sub

A+
0
laetice13 Messages postés 78 Statut Membre 1
 
Bonjour lermite 222,
je ne sais pas utiliser visual basic, je peux copier et coller ta macro ? peux-tu me dire comment procéder stp ?
merci beaucoup!!!
Laetice13
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 9
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
re, bonjour Louis

proposition (sans vba)
http://www.cijoint.fr/cjlink.php?file=cj200902/cijOhZ9TvU.xls
0
Réponse 6 / 9
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Bonjour,
>> Alt+F11 >> pour entrer dans l'éditeur VBA
Dons "Explorateur de projet (si pas visible >> Ctrl+R ) tu double clic sur le nom de ta feuille.
C'est dans cette fenêtre que tu colle le code.
Pour tester.. Tu met le curseur DANS la macros et tu tape F5
Pour pouvoir l'appeller à partir d'excel..
Tu peu mettre un raccourci sur la macro
Ou mettre un bouton sur ta feuilles.
Tu dis ce que tu veux faire
A+
0
Réponse 7 / 9
laetice13 Messages postés 78 Statut Membre 1
 
bonjour Michel,
j'ai essayé cette fonction, peux-tu me dire à quoi correspond le -3 ?
il y a une erreur "valeur", je vais chercher,
merci de ton aide
0
Réponse 8 / 9
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Bonjour,

ci joint tentatives (!!!) d'explications
http://www.cijoint.fr/cjlink.php?file=cj200903/cij1IqoUpQ.xls

je repasserai en fin d'aprèm mais si tu préfères cette version 2, garde là: l'essentiel est que toi ou quelqu'un d'autre puisse comprendre rapidement le système en ouvrant le classseur + tard!

Pour étudier la fonction "decaler" je te suggère d'aller jeter un coup d(oeil à ce site XL incontournable (c'est ma bible), ce sera mieux expliquer que mes baratins embrouillés:
http://boisgontierjacques.free.fr/
rubrique: fonctions magiques
0
Réponse 9 / 9
laetice13 Messages postés 78 Statut Membre 1
 
merci beaucoup !
0