Discussion :

[jerem2607]

Bonjour,
J'ai une base de donnée excel de 20000 lignes contenant 17 colonnes.
Je souhaiterais créer une macro qui rapatrie les lignes ayant une même valeur ds la colonne A et qui créer automatiquement un onglet par valeur de cette même colonne avec nom de l'onglet =valeur colonne A.
Auriez-vous des modèles SVP?

Merci de votre aide.

[Theze]

Bonjour,

Une piste à adapter :

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
42
43
44
45
46
47
48
49
 
Sub Test()
 
    Dim Fe As Worksheet
    Dim Plage As Range
    Dim Cel As Range
    Dim lng As Long
    Dim Col As Integer
 
    With Worksheets("Feuil1")
 
        'défini la plage sur la feuille "Feuil1" en colonne A à partir de A1, à adapter...
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
        'défini le nombre de colonnes pour la récup des valeurs
        Col = .Cells(1, .Columns.Count).End(xlToLeft).Column 'sur ligne 1
 
    End With
 
    'boucle...
    For Each Cel In Plage
 
        gère l 'erreur de la feuille inexistante...
        On Error Resume Next
        Set Fe = Worksheets(Cel.Value)
 
        'si elle n'exista pas, la crée, la nomme et inscrit les valeurs sur la première ligne
        If Err.Number <> 0 Then
 
            With ThisWorkbook: Set Fe = .Worksheets.Add(, .Sheets(Sheets.Count)): End With
 
            Fe.Name = Cel.Value
 
            On Error GoTo 0
 
            Fe.Range(Fe.Cells(1, 1), Fe.Cells(1, Col)).Value = Worksheets("Feuil1").Range(Cel, Cel.Offset(, Col - 1)).Value
 
        'sinon, rajoute les valeurs à la suite
        Else
 
            lng = Fe.Cells(Rows.Count, 1).End(xlUp).Row + 1
 
            Fe.Range(Fe.Cells(lng, 1), Fe.Cells(lng, Col)).Value = Worksheets("Feuil1").Range(Cel, Cel.Offset(, Col - 1)).Value
 
        End If
 
    Next Cel
 
End Sub