XL 2016 Mise en forme colonnes

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

baptiste76220

XLDnaute Nouveau
Bonjours à tous,

Je souhaiterai automatiser une action assez simple qui me prend pas mal de temps à la main.
J'ai différentes colonnes avec des valeurs et je souhaiterai que ces valeurs se mettent les une après les autres à la suite dans une seule colonne.
Voir fichier ci-joint pour exemple.
Merci d'avance
 

Pièces jointes

Bonjour @baptiste76220, @JBARBE 🙂,

Avec une petite macro. La plage en entrée et la colonne en sortie peuvent se trouver sur des feuilles différentes. le code est dans module1.
Code:
Sub UneColonne()
Dim rgIn As Range, rgOut As Range, i&

On Error Resume Next
Set rgIn = Application.InputBox("Sélectionnez la plage à traiter SVP", _
               "Plage à 'déplier' :", Type:=8)
If rgIn Is Nothing Then Exit Sub
Set rgOut = Application.InputBox("Sélectionnez la cellule destination SVP", _
               "Vers la cellule :", Type:=8)
If rgOut Is Nothing Then Exit Sub
On Error GoTo 0

With rgOut.Parent
   .Range(rgOut, .Cells(Rows.Count, rgOut.Column)).ClearContents
   For i = 1 To rgIn.Columns.Count
      rgIn.Columns(i).Copy rgOut.Offset(rgIn.Rows.Count * (i - 1))
   Next i
   .Select
End With
End Sub
 

Pièces jointes

Merci pour cette solution, mais imaginons que j'ai des milliers de valeurs variables sur des dizaines de colonnes... Cette solution n'est pas très pratique parce qu'il faut que je descende manuellement à chaque fois non ?

On pourrait le faire de façon entièrement automatique mais il faudrait disposer de la structure exacte du fichier concerné ce qui ne semble pas être le cas pour le fichier exemple...
 
Re,

Merci pour cette solution, mais imaginons que j'ai des milliers de valeurs variables sur des dizaines de colonnes... Cette solution n'est pas très pratique parce qu'il faut que je descende manuellement à chaque fois non ?

Cdlt
Bonjour mapomme !
Ma solution était trop simpliste compte tenu de ne pas avoir le fichier intégral, et comme le dit mapomme :
il faudrait disposer de la structure exacte du fichier concerné ce qui ne semble pas être le cas pour le fichier exemple...
Bonne journée !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
200
  • Question Question
Microsoft 365 Power Query
Réponses
7
Affichages
291
Réponses
6
Affichages
229
Retour