Discussion :

[apnw7931]

Bonjour,

Veuille trouvez en pièce jointe ma requête.
J'ai sur ma premiere feuille (DATA) des données.
J'aimerai crée en VBA les feuilles suivantes (Voiture, Vélo, Bus).

Le but est de pouvoir copier/coller sur chacune des feuilles les lignes qui ont la meme valeur dans la colonne A.

J'ai pensé faire un tri automatique, puis sélectionner les valeurs triées, les copier, pour ensuite les coller sur la feuille prévue a cet effet.
Mais je ne pense pas que ce soit la méthode la plus efficace.

Auriez vous une solution ?

Ps: j'ai simplifié mon fichier excel, mais en réalité, j'ai plusieurs autres colonnes.



Merci d'avance.

[setepenre]

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
31
32
33
34
35
36
37
38
39
40
Public Sub Tri()
 
    'Variables
    Dim V_Transport As String
    Dim V_Nbr As Integer
 
 
    'initialisation
    Sheets("Voiture").Select
    Rows("1:65536").Delete
    Range("A1").Select
    Sheets("Vélo").Select
    Rows("1:65536").Delete
    Range("A1").Select
    Sheets("Bus").Select
    Rows("1:65536").Delete
    Range("A1").Select
    Sheets("DATA").Select
    Range("A2").Select
 
    'tri
    Do Until IsEmpty(ActiveCell)
        V_Transport = ActiveCell.Value
        V_Nbr = ActiveCell.Offset(0, 1).Value
        Select Case V_Transport
            Case "Voiture"
                Sheets("Voiture").Select
            Case "Vélo"
                Sheets("Vélo").Select
           Case "Bus"
                Sheets("Bus").Select
        End Select
        ActiveCell.Value = V_Transport
        ActiveCell.Offset(0, 1).Value = V_Nbr
        ActiveCell.Offset(1, 0).Select
        Sheets("DATA").Select
        ActiveCell.Offset(1, 0).Select
    Loop
 
End Sub

[apnw7931]

@setepenre:
Merci pour ton code, il fonctionne comme je l'ai demandé.

Mais, à la place de

Code :

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

ActiveCell.Offset(0, 1).Value = V_Nbr

j'aimerai une instruction qui me recopie la ligne entière.
Car j'ai d'autres colonnes à copier.

MErci d'avance.

[setepenre]

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
31
32
33
34
35
36
37
38
39
40
41
Public Sub Tri()
 
    'Variables
    Dim V_Transport As String
    Dim N_Lig As Integer, N_Col As Integer
 
 
    'initialisation
    Sheets("Voiture").Select
    Rows("1:65536").Delete
    Range("A1").Select
    Sheets("Vélo").Select
    Rows("1:65536").Delete
    Range("A1").Select
    Sheets("Bus").Select
    Rows("1:65536").Delete
    Range("A1").Select
    Sheets("DATA").Select
    Range("A2").Select
 
    'tri
    Do Until IsEmpty(ActiveCell)
        V_Transport = ActiveCell.Value
        N_Lig = ActiveCell.Row
        N_Col = ActiveCell.End(xlToRight).Column
        Range(Cells(N_Lig, 1), Cells(N_Lig, N_Col)).Copy
        Select Case V_Transport
            Case "Voiture"
                Sheets("Voiture").Select
            Case "Vélo"
                Sheets("Vélo").Select
           Case "Bus"
                Sheets("Bus").Select
        End Select
        ActiveSheet.Paste
        ActiveCell.Offset(1, 0).Select
        Sheets("DATA").Select
        ActiveCell.Offset(1, 0).Select
    Loop
 
End Sub

[Philippe Tulliez]

Bonjour,
J'enlèverais les SELECT

Code :

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

Sheets("Voiture").Rows("1:65536").Delete

Fonctionne tout aussi bien et plus rapidement.
Les ActiveSheet, je les remplacerais aussi par un nom plus explicite pour éviter des risques d'écritures ou de lectures erronées.
Par ThisWorkbook.WorkSheets("nom de feuille").Cells(r,c) ou Workbooks("nomclasseur").WorkSheets("nom de feuille").Cells(r,c)

[setepenre]

On peut en effet simplifier le code.
Pour faciliter la compréhension, j'ai détaillé chaque action.