Discussion :

[oboulot]

Bonjour,

Ca fait un petit moment que je cherche une solution à mon problème peut être que vous pourrez me donner des solutions/ des idées?

Alors voila :

J'ai un tableau cf ci joint Classeur1.xls

et je voudrais que la macro me crée 4 fichiers/classeurs pour les groupes : 2, 7, 9 et 12 (ce sont les chiffres de la première ligne) qui contient :
- pour le 1er fichier : les colonnes A, B et C
- pour le 2eme fichier : les colonnes A, B et D
- pour le 3eme fichier : les colonnes A, B et E
- pour le 4eme fichier : les colonnes A, B et F

Merci par avance de vos idées, de votre aide =)

[joe.levrai]

Bonjour,

à adapter, je n'ai pas ouvert ton fichier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub ioi()
Dim Wb As Workbook
Dim Sh As Worksheet
 
Sh = ThisWorkbook.Worksheets("MaFeuilleSource")
Set Wb = Workbooks.Add
 
With Wb
    Sh.Columns(1).Resize(Rows.Count, 3).Copy .Worksheets(1).Range("A1")
    .SaveAs ("CheminComplet+Nom de Fichier + extension") ' fichier avec colonne A,B,C
    Sh.Columns(4).Copy .Worksheets(1).Range("C1")
    .SaveAs ("CheminComplet+Nom de Fichier + extension") ' fichier avec colonne A,B,D
    Sh.Columns(5).Copy .Worksheets(1).Range("C1")
    .SaveAs ("CheminComplet+Nom de Fichier + extension") ' fichier avec colonne A,B,E
    Sh.Columns(6).Copy .Worksheets(1).Range("C1")
    .SaveAs ("CheminComplet+Nom de Fichier + extension") ' fichier avec colonne A,B,F
    .Close
End With
 
End Sub

[oboulot]

Tout d'abord un grand merci d'avoir répondu à ma question ça me donne un code, des idées...

Cepandant, j'ai plus de 40 fichiers à faire de cette façon...

Est ce que vous auriez pas une méthode un plus automatique avec une boucle ?

Merci encore de votre aide...

[joe.levrai]

Bonjour,

sans pattern, pas possible de faire une boucle sans passer par des tableaux de repérage des colonnes

au vu de ton exemple, tu prend toujours la colonne A et B, et tu y colles une autre colonne ? ( premier fichier = colonne C, second fichier = colonne D etc...)

si tel est le cas, 40 fichiers sur ce pattern :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub ioi()
Dim Wb As Workbook
Dim Sh As Worksheet
 
Sh = ThisWorkbook.Worksheets("MaFeuilleSource")
Set Wb = Workbooks.Add
 
With Wb
 
    ' premier fichier
    Sh.Columns(1).Resize(Rows.Count, 3).Copy .Worksheets(1).Range("A1")
    .SaveAs ("CheminComplet+Nom de Fichier + extension")
 
    ' les 40 suivants
    For i = 4 To 43
        Sh.Columns(i).Copy .Worksheets(1).Range("C1")
        .SaveAs ("CheminComplet+Nom de Fichier + extension") ' fichier avec colonne A,B,D
    Next i
 
    .Close
End With
 
End Sub

il reste à gérer le nom des classeurs maintenant (tu peux utiliser l'indice i de la boucle pour avoir des noms différents par exemple)

[oboulot]

Merci encore pour ton aide !!!

J'ai commencé à faire un tableau de ce style :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Global tablo(39) As Variant
Global i As Integer
 
Sub Creation ()
 
      Dim x As Integer
....
 
Range("C2").Select
    i = 0
 
    Do While ActiveCell.Value <> ""
        If ActiveCell.Value <> ActiveCell.Offset(0, 1).Value Then
            tablo(i) = ActiveCell.Value
            i = i + 1
        End If
        ActiveCell.Offset(0, 1).Select
    Loop
...end sub

Donc la je récupère les valeurs des groupes 2, 7, 9 et 12

et je me demandais si on peux pas lui dire si à chaque fois que tu vois ces chiffres dans la 3ème ligne tu me crées un fichier différent qui copie/colle les chiffres relatif aux groupes 2,7,9 et 12...Classeur1.xls

Mon fichier de départ à un peu changer...

donc en faite, le résultat souhaité est 4 fichiers avec 2 onglets ...

[oboulot]

Personne ne voit comment on peut faire (peut c'est pas possible) où vous ne comprennez pas mon problème?

Merci de votre réponse,

[Philippe Tulliez]

Bonjour,
Comme beaucoup je n'ouvre pas les classeurs donc si tu n'expliques pas l'organisation de tes données avec éventuellement une image accompagnant tes explications, tu limites en effet le nombre de réponses.
Au vu de ta question, j'aurais proposé une solution avec filtre élaborés d'excel mais sans explications complémentaires difficile de répondre.

[oboulot]

Ok merci de ta réponse,

Je vais essayer d'être plus compréhensible...

J'ai un fichier avec 2 onglets.
- Dans le 1er onglet : j'ai 6 colonnes qui ont pour nom : Date, Total, 2, 7, 9 et 12
- Dans le 2eme onglet, j'ai 11 colonnes quit ont pour nom : Date max min 2max 2min 7max 7min 9max 9min 12max 12min

Je voudrais créer 4 fichiers : fichiers_2, fichiers_7, fichiers_9 et fichiers_12.

Dans le fichier_2 , dans le 1er onglet il y aurait comme colonnes Date Total 2
dans le 2eme onglet il y aurait comme colonnes Date max min 2max 2min

Dans le fichier_7 , dans le 1er onglet il y aurait comme colonnes Date Total 7
dans le 2eme onglet il y aurait comme colonnes Date max min 7max 7min


J'ai réussi a crée mes 4fichiers mais je n'arrive pas à récupere les colonnes ...

Merci de votre aide