Formule recopie cellules excel

Signaler
Messages postés
4
Date d'inscription
vendredi 8 janvier 2021
Statut
Membre
Dernière intervention
12 janvier 2021
-
Messages postés
16365
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
13 janvier 2021
-
Bonjour,
J'ai plusieurs colonnes dans excel qui contiennent chacune un nombre différent de valeurs (cellules contenant un chiffre). Je souhaite sans passer par des copier-coller, que toutes les valeurs apparaissent les unes à la suite des autres dans une nouvelle colonne : valeurs de la colonne A puis celles de la colonne B ...
Une formule est elle adaptée ?
Merci de votre aide
cordialement

Configuration: Macintosh / Safari 14.0.1

6 réponses

Messages postés
1310
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
14 janvier 2021
130
Bonjour,

vous voulez faire apparaître les valeurs de plusieurs colonnes dans une seule et unique colonne, c'est ça ?
Messages postés
4
Date d'inscription
vendredi 8 janvier 2021
Statut
Membre
Dernière intervention
12 janvier 2021

Bonsoir,
bon la solution proposée fonctionne parfaitement sur un "petit" jeu de données. ici je m'adresse à un fichier de 10 de milliers de lignes et là ça coince. je ne sais pas si Excel tourne en tache de fond ou si il est bloqué (mon Mac ne me dit pas qu'il l'est) mais après plusieurs heures je n'ai pas le résultat escompté avec la macro.
J'aurais éventuellement une autre option : "fusionner" (merger ?) différents fichiers Excel formatés de manière identique (même nom de colonnes).
Savez vous comment faire ?
D'avance merci bonne soirée.
Messages postés
4
Date d'inscription
vendredi 8 janvier 2021
Statut
Membre
Dernière intervention
12 janvier 2021

oui c'est bien ça
merci d'avance
Messages postés
16365
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
13 janvier 2021
3 110
Bonjour chennec, Yoyo

" les valeurs apparaissent les unes à la suite des autres "

C'est à dire triées dans l'ordre croissant des x colonnes ?
Messages postés
4
Date d'inscription
vendredi 8 janvier 2021
Statut
Membre
Dernière intervention
12 janvier 2021

Merci. Voici la solution

Sub concat()

For i = 2 To ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1

derlignec = ActiveSheet.Range("F" & Rows.Count).End(xlUp).Row + 1
Cells(derlignec, 6).Value = Cells(i, 1).Value

Next i

For i = 2 To ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row + 1

derlignec = ActiveSheet.Range("F" & Rows.Count).End(xlUp).Row + 1
Cells(derlignec, 6).Value = Cells(i, 2).Value

Next i

For i = 2 To ActiveSheet.Range("C" & Rows.Count).End(xlUp).Row + 1

derlignec = ActiveSheet.Range("F" & Rows.Count).End(xlUp).Row + 1
Cells(derlignec, 6).Value = Cells(i, 3).Value

Next i
For i = 2 To ActiveSheet.Range("D" & Rows.Count).End(xlUp).Row + 1

derlignec = ActiveSheet.Range("F" & Rows.Count).End(xlUp).Row + 1
Cells(derlignec, 6).Value = Cells(i, 4).Value

Next i
For i = 2 To ActiveSheet.Range("E" & Rows.Count).End(xlUp).Row + 1

derlignec = ActiveSheet.Range("F" & Rows.Count).End(xlUp).Row + 1
Cells(derlignec, 6).Value = Cells(i, 5).Value

End Sub
Messages postés
53100
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
17 janvier 2021
15 071
"Une formule est elle adaptée ?" Non ; aucune.
Messages postés
16365
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
13 janvier 2021
3 110
Bonjour,

Avec Excel sur Windows solution rapide

Option Explicit
'-----------------
Sub xxx()
Dim Col As Byte, Derlig As Integer, Ligvid As Long, Tablo
Range("F2:F500000").Clear
For Col = 1 To 5
Derlig = Columns(Col).Find(what:="*", searchdirection:=xlPrevious).Row
Tablo = Range(Cells(1, Col), Cells(Derlig, Col))
Ligvid = Columns("F").Find("", Range("F1"), xlValues).Row
Cells(Ligvid, "F").Resize(UBound(Tablo), 1) = Tablo
Next

End Sub


restitution à partir de F2 (en f1 entêté par ex: compil)