IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Excel Discussion :

spliter une colonne en plusieurs ?


Sujet :

Excel

  1. #1
    Futur Membre du Club
    Inscrit en
    Août 2005
    Messages
    21
    Détails du profil
    Informations forums :
    Inscription : Août 2005
    Messages : 21
    Points : 6
    Points
    6
    Par défaut spliter une colonne en plusieurs ?
    Bonjour,

    J'ai une feuille excel avec une seule colonne. On me demande de splitter dans une nouvelle feuille en 4 colonnes : Les 4 première lignes de l'ancienne feuilles vers la première ligne de la nouvelle feuille, les 4 ligne suivante vers la 2eme ligne, et ainsi de suite.

    J'envisage de faire une petite appli en java avec jexcel. Mais il y a peu être moyen de faire cella en deux coups de cuillère à pot avec une macro dans excel 2003 ? (Je n'ai jamais touché aux macro excel, word ou à vba.)

    merci pour vos lumières.

  2. #2
    Expert éminent sénior
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Points : 11 274
    Points
    11 274
    Par défaut
    Soir Bon,à adapter http://cjoint.com/?dyu75k4m0x

  3. #3
    Membre confirmé
    Inscrit en
    Janvier 2008
    Messages
    467
    Détails du profil
    Informations forums :
    Inscription : Janvier 2008
    Messages : 467
    Points : 493
    Points
    493
    Par défaut
    Bonsoir
    les données de base se trouvent dans la colonne A de la feuille 1, seront transposées dans le feuille 2 du même classeur. voir exemple ci-joint
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    Sub test()
    Dim temp()
    Dim i As Integer, j As Integer
    j = 1
    Do Until IsEmpty(Cells(j, 1))
       ReDim temp(1 To 2, 0 To 3)
     For i = 0 To 3
       temp(1, i) = Cells(j, 1)
           j = j + 1
         Next
        Feuil2.Range("A65536").End(xlUp)(2).Resize(1, 4) = temp
       Erase temp
     Loop
     Feuil2.Select
    End Sub
    Bonne soirée à tout le monde

    Abed_H

  4. #4
    Futur Membre du Club
    Inscrit en
    Août 2005
    Messages
    21
    Détails du profil
    Informations forums :
    Inscription : Août 2005
    Messages : 21
    Points : 6
    Points
    6
    Par défaut
    Citation Envoyé par kiki29 Voir le message
    Soir Bon,à adapter http://cjoint.com/?dyu75k4m0x
    Ça semble correspondre aux besoins.

    Merci beaucoup.

    Mais comment puis-je modifier cette macro pour qu'elle agisse sur la "feuille active" (L'onglet sélectionné) ?

  5. #5
    Expert éminent sénior
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Points : 11 274
    Points
    11 274
    Par défaut
    Salut, une version "modifiée" , la feuille sélectionnée avant le lancement de la macro doit être celle contenant les données à transposer, voir sur http://cjoint.com/?dzb4RkCAVX

  6. #6
    Futur Membre du Club
    Inscrit en
    Août 2005
    Messages
    21
    Détails du profil
    Informations forums :
    Inscription : Août 2005
    Messages : 21
    Points : 6
    Points
    6
    Par défaut
    Citation Envoyé par kiki29 Voir le message
    Salut, une version "modifiée" , la feuille sélectionnée avant le lancement de la macro doit être celle contenant les données à transposer, voir sur http://cjoint.com/?dzb4RkCAVX
    Génial !

    Mais j'ai encore une requête : Comment faire pour que la nouvelle feuille s'appelle par exemple "new truc" si l'ancienne s'appelait "truc" ?

  7. #7
    Expert éminent sénior
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Points : 11 274
    Points
    11 274
    Par défaut
    Salut, dans la procédure
    sous ajoute
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
        ActiveSheet.Name = "New_" & sNom

  8. #8
    Futur Membre du Club
    Inscrit en
    Août 2005
    Messages
    21
    Détails du profil
    Informations forums :
    Inscription : Août 2005
    Messages : 21
    Points : 6
    Points
    6
    Par défaut
    Mille mercis.

    Et j'abuse, mais comment faire pour que la nouvelle feuille soit placée après la feuille active ?

  9. #9
    Expert éminent sénior
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Points : 11 274
    Points
    11 274
    Par défaut
    Re,à placer vers la fin de la procédure
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sheets("New_" & sNom).Move After:=Sheets(sNom)
    Au final cela donnera qqch comme http://cjoint.com/?dzjIZjJTik

  10. #10
    Futur Membre du Club
    Inscrit en
    Août 2005
    Messages
    21
    Détails du profil
    Informations forums :
    Inscription : Août 2005
    Messages : 21
    Points : 6
    Points
    6
    Par défaut
    Un tout tout grand merci.

Discussions similaires

  1. [SQL2005]Séparer une colonne en plusieurs
    Par Kazuko dans le forum Développement
    Réponses: 2
    Dernier message: 24/04/2009, 11h27
  2. [SSIS] [2K5] Split d'une colonne en plusieurs
    Par plouffy dans le forum SSIS
    Réponses: 2
    Dernier message: 23/04/2009, 15h41
  3. Réponses: 6
    Dernier message: 12/12/2008, 07h56
  4. Réponses: 5
    Dernier message: 07/11/2006, 12h16
  5. Eclater une colonne en plusieurs selon critère
    Par Tatoine dans le forum Langage SQL
    Réponses: 5
    Dernier message: 14/07/2006, 12h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo