Décomposer une feuille en plusieur feuille

Question

Bonjour,

Je vous remercie d'avance pour votre aide. Je qu'il y a déja un topic sur le sujet mais ma problématique est un peu différente.

Ma question est simple : 
j'ai une feuille avec plusieurs colonnes. Je voudrais juste par l'intermédiaire d'une macro faire en sorte qu'il il ait une colonne par feuille donc la colonne A reste sur la feuille 1, la colonne B va dans une feuille 2 etc.....
et si possible j'aimerais que l'onglet ait comme nom la premièreca case de la colonne mais vraiment si possile

je vous remercie d'avance pour vos réponse à un débutant

stephane

amigo · Answer

Bonjour,

cette macro devrait réaliser ce que tu demandes. Colles le code dans un module
seul impératif, les noms des feuilles doivent etre uniques et donc le texte en tete de chaque colonne également

Sub transferer_colonnes()
'
Dim nbre_feuilles As Integer
Dim nom_feuille As String
Dim i As Integer

'nommer la première feuille
Sheets(1).Select
nom_feuille = Cells(1, 1).Value
Sheets(1).Name = nom_feuille

'compter les colonnes
i = 1
While Cells(1, i).Value <> ""
i = i + 1
Wend

'nombre de feuilles à inserer
nbre_feuilles = i - 1

'transfert des données
For i = nbre_feuilles To 2 Step -1
    Sheets(1).Select
    nom_feuille = Cells(1, i).Value
    Sheets.Add
    Sheets(1).Name = nom_feuille
    Sheets(1).Move After:=Sheets(2)
    Sheets(1).Select
    Columns(i).Select
    Selection.Cut
    Sheets(2).Select
    ActiveSheet.Paste
    Range("A1").Select
Next

    Sheets(1).Select
    Range("A1").Select
    
End Sub

Décomposer une feuille en plusieur feuille

1 réponse

Discussions similaires

Newsletters