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 :

Concaténer plusieurs cellules d'une table dans une seule cellule [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre du Club
    Homme Profil pro
    Inscrit en
    Juillet 2012
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juillet 2012
    Messages : 7
    Par défaut Concaténer plusieurs cellules d'une table dans une seule cellule
    Bonjour,
    Dans le but d'intégrer le résultat dans un rapport prévisionnel de vente, j'ai besoin de concaténer les données de plusieurs lignes et colonnes dans une seule et même cellule.
    Ma base de devis intègre ~1800 références ( lignes) et cette base est évolutive.
    J'arrive à concaténer et extraire les références dont la quantité est > 0 mais je ne trouve pas la méthode pour que ces données soient inclus dans une seule et même cellule.

    je vous adresse un fichier décrivant sommairement mon besoin et vous remercie par avance de votre aide .
    extraction.xls

    En vous souhaitant une excellente fin de journée


    Fred

  2. #2
    Membre Expert Avatar de QuestVba
    Homme Profil pro
    Enseignant
    Inscrit en
    Juillet 2012
    Messages
    2 475
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : Belgique

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Service public

    Informations forums :
    Inscription : Juillet 2012
    Messages : 2 475
    Par défaut
    Bonjour,

    Je pense que tu dois passer par une solution VBA. Donc, il faudra passer vers ce sous-forum. Avec une formule, je ne vois pas comme tu pourras t'en sortir.

  3. #3
    Membre émérite
    Homme Profil pro
    Inscrit en
    Octobre 2013
    Messages
    385
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Octobre 2013
    Messages : 385
    Par défaut
    Bonjour,

    Effectivement, je ne vois pas d'autre solution que de passer par VBA.

    Solution que te propose ci-dessous :
    extraction.xlsm

    Bon courage.

  4. #4
    Membre Expert Avatar de excfl
    Profil pro
    Inscrit en
    Octobre 2012
    Messages
    690
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2012
    Messages : 690
    Par défaut
    Bonsoir le forum,

    Solution sans VBA :

    D3 : E3 :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =SI(LIGNE()-2>NB.SI(D:D;1);"";INDEX(C:C;PETITE.VALEUR(SI(C:C>0;LIGNE(A:A);"");LIGNE()-1)))&" "&SI(LIGNE()-2>NB.SI(D:D;1);"";INDEX(A:A;PETITE.VALEUR(SI(C:C>0;LIGNE(A:A);"");LIGNE()-1)))
    Formule matricielle à valider avec CTRL MAJ ENTREE

    Nom : REF.png
Affichages : 663
Taille : 13,8 Ko

  5. #5
    Membre Expert Avatar de excfl
    Profil pro
    Inscrit en
    Octobre 2012
    Messages
    690
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2012
    Messages : 690
    Par défaut
    Merci au courageux qui m'a noté négativement, certainement déçu de constater qu'il existe une solution sans VBA.

    Cette discussion pouvait donc rester dans la section excel.

  6. #6
    Membre émérite
    Homme Profil pro
    Inscrit en
    Octobre 2013
    Messages
    385
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Octobre 2013
    Messages : 385
    Par défaut
    Bonjour excfl,

    Promis ce n'est pas moi

    Je met un pour équilibrer !

    Moi j'aime bien ta formule

  7. #7
    Membre du Club
    Homme Profil pro
    Inscrit en
    Juillet 2012
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juillet 2012
    Messages : 7
    Par défaut
    Citation Envoyé par excfl Voir le message
    Bonsoir le forum,

    Solution sans VBA :

    D3 : E3 :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =SI(LIGNE()-2>NB.SI(D:D;1);"";INDEX(C:C;PETITE.VALEUR(SI(C:C>0;LIGNE(A:A);"");LIGNE()-1)))&" "&SI(LIGNE()-2>NB.SI(D:D;1);"";INDEX(A:A;PETITE.VALEUR(SI(C:C>0;LIGNE(A:A);"");LIGNE()-1)))
    Formule matricielle à valider avec CTRL MAJ ENTREE

    Nom : REF.png
Affichages : 663
Taille : 13,8 Ko
    Bonjour excfl

    Je vous remercie pour votre aide et du temps que vous y avez consacré.
    Je cherche une solution VBA qui semble effectivement le plus appropriée à ma demande.
    le résultat que vous me proposez ne correspond pas totalement à ma demande car j'ai besoin que toutes les variables soient inclus dans une seule et même cellule.
    En VBA j'arrive au même résultat que vous mais n'arrive pas a trouver la logique me permettant de "Concaténer" toutes les lignes et colonnes concernées (>0) dans une seule cellule.

    merci encore de votre aide

    Fred

  8. #8
    Membre Expert Avatar de excfl
    Profil pro
    Inscrit en
    Octobre 2012
    Messages
    690
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2012
    Messages : 690
    Par défaut
    Citation Envoyé par fguillonnet Voir le message
    le résultat que vous me proposez ne correspond pas tout a fait à ma demande car j'ai besoin que toutes les variables soient inclus dans une seule et même cellule.
    Merci pour votre réponse.

    Mais ???

    Nom : 120.png
Affichages : 581
Taille : 24,2 Ko

  9. #9
    Membre du Club
    Homme Profil pro
    Inscrit en
    Juillet 2012
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juillet 2012
    Messages : 7
    Par défaut
    Citation Envoyé par mat955 Voir le message
    Bonjour,

    Effectivement, je ne vois pas d'autre solution que de passer par VBA.

    Solution que te propose ci-dessous :
    extraction.xlsm

    Bon courage.
    Bonjour mat955

    Merci pour votre réponse.
    Je cherche effectivement une solution VBA.
    votre fichier joint .xlsm ne semble pas contenir de module ou l'explication que vous me proposé.
    Merci encore de votre aide.
    Fred

  10. #10
    Membre du Club
    Homme Profil pro
    Inscrit en
    Juillet 2012
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juillet 2012
    Messages : 7
    Par défaut
    Citation Envoyé par QuestVba Voir le message
    Bonjour,

    Je pense que tu dois passer par une solution VBA. Donc, il faudra passer vers ce sous-forum. Avec une formule, je ne vois pas comme tu pourras t'en sortir.
    Bonjour,
    merci pour votre réponse.
    J'ai probablement posté ma demande au mauvaise endroit.
    Je cherche effectivement une solution en VBA.
    en vous souhaitant une excellente journée

    Fred

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

Discussions similaires

  1. copier une table d'une BDD dans une table d'une autre BDD
    Par faniette dans le forum C++Builder
    Réponses: 2
    Dernier message: 15/05/2013, 10h17
  2. Réponses: 7
    Dernier message: 25/03/2011, 10h52
  3. [AC-2003] insert des données d'une table dans une table d'une base externe
    Par marieo dans le forum VBA Access
    Réponses: 1
    Dernier message: 30/11/2009, 14h29
  4. Réponses: 2
    Dernier message: 02/06/2006, 11h26
  5. Mettre une valeur d'une table dans une variable
    Par Raphou96 dans le forum Access
    Réponses: 5
    Dernier message: 06/02/2006, 15h19

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