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

Macros et VBA Excel Discussion :

Répartir le contenu d'une cellule sur plusieurs lignes


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Femme Profil pro
    archiviste
    Inscrit en
    Février 2017
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 40
    Localisation : France, Vosges (Lorraine)

    Informations professionnelles :
    Activité : archiviste

    Informations forums :
    Inscription : Février 2017
    Messages : 3
    Par défaut Répartir le contenu d'une cellule sur plusieurs lignes
    Bonjour,

    La réponse fait à cette demande correspond aussi à mon problème. Comment puis-je faire la même chose pour sur le fichier ci-joint. Je souhaiterais que les termes séparés par des "|", se retrouvent non pas sur les colonnes adjacentes mais sur des lignes adjacentes, sachant que le nombre de termes dans chaque cellules n'est jamais le même...

    Je vous remercie par avance pour votre aide.


    indexation.ods

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Je ne suis pas sûr d'a&voir bien compris ce qu tu veux. La macro suivant met chaque mot en colonne B

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Sub Ventilation()
        Dim C As Range, Ligne As Long
        With Sheets("Feuille1")
            For Each C In Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
                For Each Item In Split(C.Value, "|")
                    Ligne = Ligne + 1
                    .Cells(Ligne, 2).Value = Item
                Next Item
            Next C
        End With
    End Sub
    Nom : Capture.JPG
Affichages : 352
Taille : 86,1 Ko

  3. #3
    Candidat au Club
    Femme Profil pro
    archiviste
    Inscrit en
    Février 2017
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 40
    Localisation : France, Vosges (Lorraine)

    Informations professionnelles :
    Activité : archiviste

    Informations forums :
    Inscription : Février 2017
    Messages : 3
    Par défaut Répartir le contenu d'une cellule sur plusieurs lignes
    Merci pour votre réponse. Le résultat affiché correspond parfaitement à ce que je voudrais, mais j'ai un niveau assez basique au niveau de l'utilisation d'Excel (je n'ai jusque là jamais utilisé la macro... c'est l'occasion de m'y mettre...). J'ai tenté d'intégrer votre macro, mais j'ai un message d'erreur "l'indice n'appartient pas à votre sélection". Pourriez-vous m'expliquer la procédure à suivre, je vous en remercie par avance et veuillez m'excuser de mon ignorance...

    Julie

  4. #4
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Il y a peut-être une ligne vide ? Est-ce que tu utilises le classeur que tu as mis en pièce jointe ? Quand tu as ce message d'erreur, clique sur "débogage". La ligne fautive va se mettre en surbrillance jaune. Indique-moi laquelle. Ensuite, en lisant les mots recopiés, tu vas trouver la ligne de la colonne A qui a provoqué l'erreur.

  5. #5
    Candidat au Club
    Femme Profil pro
    archiviste
    Inscrit en
    Février 2017
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 40
    Localisation : France, Vosges (Lorraine)

    Informations professionnelles :
    Activité : archiviste

    Informations forums :
    Inscription : Février 2017
    Messages : 3
    Par défaut
    Merci pour l'astuce. Avec le débocage, j'ai eu la ligne suivant en surlignage With Sheets("Feuille1"), en fait ma feuille était nommée Feuil1
    J'ai fait la modification et ça fonctionne bien.

    Merciii beaucoup pour le temps consacré à ma demande.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Répartir le contenu d'une cellule sur plusieurs lignes
    Par Sandrineboubou dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 19/02/2019, 09h45
  2. Répartir le contenu d'une cellule sur plusieurs lignes
    Par AudreyAQF dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 10/06/2016, 16h22
  3. répartir le contenu d'une colonne sur plusieurs colonnes
    Par thierry.drot dans le forum Excel
    Réponses: 1
    Dernier message: 28/10/2012, 11h12
  4. [XL-2003] Répartir le contenu d'une cellule sur plusieurs lignes
    Par Leehan dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 10/10/2012, 15h06
  5. Réponses: 4
    Dernier message: 22/01/2008, 16h59

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