Discussion :

[bibvba]

Bonjour,

j'ai bidouillé une macro que l'on m'a écrit, mais je bloc

Cette macro sert à trier une colonne du 1er onglet de mon workbook1 dans plusieurs autres onglets situés dans mon workbook2.

au lieu de trier uniquement le 1er onglet de mon workbook1 je souhaiterai le faire pour tous les onglets.

Voici ma macro

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
24
25
26
27
28
29
30
 
sub essai
Workbooks.Open "C:\Documents and Settings\HP_Administrateur\Mes documents\vierge.XLS"
  ActiveWindow.ActivateNext
    Dim LIGNE As Range
    Dim ZONES As Worksheet
    Dim ZONESOURCES As Worksheet
    Dim FICHIERSOURCE As Workbook
    Dim FICHIERDESTIN As Workbook
    Set FICHIERDESTIN = Workbooks("vierge.xls")
    Set FICHIERSOURCE = ActiveWorkbook
 
 
    With FICHIERSOURCE.Worksheets(1)
                  For Each LIGNE In .Range(.Cells(Rows.Count, "D").End(xlUp), .Range("D1"))
            If LIGNE.Value <> "" Then
                For Each ZONES In FICHIERDESTIN.Worksheets
                    If ZONES.Name = LIGNE.Value Then
                    .Rows(LIGNE.Row).Copy FICHIERDESTIN.Sheets(LIGNE.Value).Cells(Rows.Count, "D").End(xlUp).Offset(1, -3)
        GoTo ap
                    End If
                Next
                FICHIERDESTIN.Sheets.Add after:=FICHIERDESTIN.Sheets(FICHIERDESTIN.Sheets.Count)
                FICHIERDESTIN.Sheets(FICHIERDESTIN.Sheets.Count).Name = LIGNE.Value
                .Rows(LIGNE.Row).Copy FICHIERDESTIN.Sheets(LIGNE.Value).Cells(Rows.Count, "D").End(xlUp).Offset(1, -3)
ap:
            End If
        Next
    End With
end sub

merci d'avance

[alsimbad]

le plus simple pour toi, puisque tu as déja

Code :

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

1
2
3
4
With FICHIERSOURCE.Worksheets(1)
.....

c'est de rajouter devant

Code :

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

1
2
 
for i = 1 to  x ' X est le nombre d'onglet de ton wbook1

ce qui te donne

Code :

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

1
2
3
4
5
 
for i = 1 to  x
With FICHIERSOURCE.Worksheets(i)
.....
next i ' a la fin de ta boucle

mais ce qui serait bien pour toi ce serait d'étudier un peu le code que tu utilise, il y a déja a l'interieur une boucle qui passe tout les onglets en revue. de plus, ce n'est pas un tri

[bibvba]

C'est vrai j'ai mis une boucle For each à l'interieur.

Je n'arrivais pas à faire la boucle de départ avec for each "a priori je ne pouvais pas puisqu'il faut utiliser for i = 1 to x

la je suis décider à m'acheter un livre pour me former sur VBA excel parceque je commence à voir qu'il y a trop de choses à savoir.

Merci pour votre réponses

@+