Discussion :

[pael013]

Bonjour,
J’ai sur ma Feuille1 plusieurs colonnes prenant des valeurs (la taille de chaque colonne est différente).
Je souhaite copier chaque colonne sur une feuille distincte !!!

Je sais que je dois utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Range("???", "????").Copy Sheets("Feuil ???").Range("???" & 1)

Mon problème c'est que je ne sais pas définir le fait que chaque colonne à une taille différente, et que je ne connais pas la syntaxe pour incrémenter "feuil"

Quelqu'un peut-il me donner de l'aide?

Merci d'avance !!!

[Pierre Fauconnier]

Bonjour.

Il n'est pas nécessaire de connaître le nombre de lignes utilisées par colonne.

Voici un code qui copie chaque colonne d'une feuille source vers une nouvelle feuille cible, cette dernière prenant le nom du numéro de la colonne qu'elle contient...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub CopierColonnes()
    Dim i As Integer
    Dim Feuillesource As Worksheet
    Dim FeuilleCible As Worksheet
 
    Set Feuillesource = Worksheets("feuil1")
    For i = 1 To Feuillesource.Range("iv1").End(xlToLeft).Column
        Set FeuilleCible = Worksheets.Add()
        FeuilleCible.Name = "Colonne " & i
        Feuillesource.Columns(i).Copy Destination:=FeuilleCible.Range("a1")
    Next i
End Sub

[diude54]

Voici un code qui fopnctionne, cela implique que les feuilles de destination existent déjà.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Col=Range("CZ1").end(xltoleft).column 'Trouve le nombre de colonnes non vides
For i=1 to Col
 
Columns(i).copy Worksheets(i+1).columns(1) 'Imaginons que la feuille 1 soit celle de départ et que l'on copie dans les feuille 2 à Col
 
next i

Pour reprendre l'idée d'ajouter les feuilles dans le classeur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub cop()
Dim Col as long, i as long
 
Col = Range("A1").End(xlToRight).Column 'Trouve le nombre de colonnes non vides
 
For i = 1 To Col
Worksheets.Add after:=Worksheets(Worksheets.Count)
Worksheets(1).Columns(i).Copy ActiveSheet.Columns(1)
ActiveSheet.Name= "Colonne " & i
Next i
End Sub

Edit: Ce code est sensiblement identique à celui de Pierre Fauconnier, cela m'apprendra à ne pas faire attention avant de poster