Discussion :

[lulu123456]

Bonjour,

Je suis au plus débutant des niveaux qui peut exister concernant les macros sur excel. Mais malheureusement, j'ai besoin d'explication sur une demande très précise. Je fournis ci joint un fichier test pour une meilleure compréhension.

Je souhaiterai donc générer une macro. A partir de la feuille 2, j'aimerai ventilé sur d'autres feuilles les lignes. Dès qu'il y a un "1" en colonne D, copier/coller la ligne entière sur une feuille 3, dès qu'il y a un "2" en colonne D copier/coller la ligne entière dans une feuille 4 etc. Et s'il y a plusieurs lignes avec des "1" ou des "2" ou des "3", les ventiler toutes entre les différentes feuilles.

Est ce possible? Si oui, quelqu'un peut-il m'aider en sachant que je suis en découverte sur le sujet.

[a_diard]

Bien sur que c'est possible .............

Je pense qu'il serait bien que tu étudie un peu plus la question avant de poster ta demande.



Pour information, beaucoup de participants à ce forum n'ouvrent pas les fichiers joints, entre autre pour les raisons expliquées ici : https://www.developpez.net/forums/d8...s-discussions/
Des copies d'écran seraient plus judicieuses.

[mercatog]

Regarde du côté des filtres simples ou bien des filtres avancés pour un début de réponse

[lulu123456]

Merci a_diard pour ta réponse, mais c'est effectivement parce que je suis novice et qu'on lie de tout et rien sur internet que je demandais de l'aide ici. Si je l'ai envoyé par format excel, c'est parce qu'il y a des formules à condition intégrer, et que je voulais faire partager.

Je fais cette demande car j'ai besoin d'un outil à caractère exceptionnel. Et que le fichier que je dois traiter de base peut contenir plus de 1000 lignes. (une première pour moi) Je cherche donc de l'aide pour remédier à mon problème!

Merci mercatog je vais me renseigner. En espérant, trouver une solution..

[Klin89]

Bonsoir à tous

Essaie ceci :

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
Option Explicit
Sub test()
Dim a, e, dico As Object, wsName As String
    Application.ScreenUpdating = False
    Set dico = CreateObject("Scripting.Dictionary")
    With Sheets("Feuil2")
        .Range("b2").Value = "x"
        With .Range("b2").CurrentRegion
            a = .Columns(3).Offset(1).Resize(.Rows.Count - 1).Value
            For Each e In a
                If Not dico.exists(e) Then
                    dico(e) = Empty
                    wsName = e
                    If Not Evaluate("isref('" & wsName & "'!a1)") Then
                        Sheets.Add(after:=Sheets(Sheets.Count)).Name = wsName
                    End If
                    Sheets(wsName).Cells.Delete
                    .AutoFilter 3, e
                    .Offset(1).Resize(.Rows.Count - 1).Copy
                    Sheets(wsName).Cells(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
                    .AutoFilter
                End If
            Next
        End With
        .Range("b2").Value = ""
    End With
    Set dico = Nothing
    Application.ScreenUpdating = True
End Sub

klin89