regrouper plusieurs colonnes en une seule

[fitou_skartier@hotmail.fr]

Bonjour tout le monde,
J'ai environ 100 colonnes que je souhaite regrouper en une seule colonne afin de pouvoir travailler sur Access, existe t'il d'autres solutions plus rapide que copier coller 100 fois...

Merci d'avance

FRED

 

[jcsellas]

Re : regrouper plusieurs colonnes en une seule

salut,

Je sais pas si c'est la réponse que tu attends mais as tu essayé la formule concatener ?

 

[hoerwind]

Re : regrouper plusieurs colonnes en une seule

Bonjour et bienvenu sur le forum,

Sujet maintes fois abordé.

Regarde au bas de cette page sous "Discussions similaires", je suis sur que tu y trouveras réponse.
Si cela ne te convient pas, fais une recherche sous les anciens messages (onglet "Rechercher" au haut de cette page)

 

[jeanpierre]

Re : regrouper plusieurs colonnes en une seule

Bonjour fitou etc... et Bienvenue sur le forum, jcsellais,

Concatener sur 100 colonnes, j'ai peur que Excel tousse au point de s'asphyxier.

Sans plus de renseignements il me semble difficile de répondre.

Bon après-midi.

Jean-Pierre

 

[fitou_skartier@hotmail.fr]

Re : regrouper plusieurs colonnes en une seule

ok merci en tous en cherchant sur le forum j'ai trouver une macro nikel mais le problème, c'est quelle ne prend pas en compte les cellules vides ni celles ou il y a 0...
Quelqu'un peut il m'aider ?

https://www.excel-downloads.com/thr...usieurs-colonnes-en-une-seule-colonne.125567/

 

[JCGL]

Re : regrouper plusieurs colonnes en une seule

Bonjour à tous,

Peux-tu essayer avec :

Sub Transfert()
    Range("A1:A65536").ClearContents
    ligne = 1
    For n = 2 To 100
        For m = 1 To Cells(65536, n).End(xlUp).Row
            ' If Cells(m, n) <> 0 Then
            Cells(ligne, 1) = Cells(m, n)
            ligne = ligne + 1
            ' End If
        Next m
    Next n
End Sub

J'ai déplacé la liste en colonne A

A+ à tous

 

[fitou_skartier@hotmail.fr]

Re : regrouper plusieurs colonnes en une seule

JCGL c'est PARFAIT vraiment MERCI BEAUCOUP

 

[Staple1600]

Re : regrouper plusieurs colonnes en une seule

Bonjour à tous


Une autre façon de faire
(qui permet de récupérer aussi le format des cellules d'origine)

Sub Colonnes_en_une()
Dim Ncol As Long, NL As Long
With ActiveSheet.UsedRange
    .SpecialCells(4).Delete Shift:=xlUp
    NL = Rows.Count
    For Ncol = 2 To .Columns.Count
        With .Columns(Ncol)
            .Cut Cells(NL, 1).End(xlUp)(2, 1)
        End With
    Next Ncol
End With
End Sub '[COLOR=Green]-> adapté de D. Hawley[/COLOR]

 

[kahatif]

Re : regrouper plusieurs colonnes en une seule

Bonsoir à tous, je suis nouveau sur le forum et je voudrai vous demander de l'aide pour savoir si quelqu'un pouvait m'aider à rassembler une série d'adresse mail pour pouvoir les écrire en une seule fois. Sachant que les adresses que j'ai sont dans une même colonne.
Avec Excel, j'ai essayé de créer une deuxième colonne qui ne contient que des virgules mais je n'arrive pas à les fusionner touts dans une même cellules.

 

[Monique]

Re : regrouper plusieurs colonnes en une seule

Bonjour,
Une formule qui concatène les adresses s'il y a une croix dans la colonne de choix
On colle le résultat dans la barre d'adresses de la messagerie
(virgule peut-être mais point-virgule ça marche)