Discussion :

[macat]

Bonsoir à tous,

J’ai une feuille1 style base de données et la 1ère macro (que j’ai trouvé sur le web et essayé d’adapter à mon cas) doit créer une feuille nominative pour chaque personne en intégrant la ligne entière. Une sorte de tri nominatif.
Je ne sais pas ce qui cloche.

Merci de votre aide.

Pièce jointe 52977

[mercatog]

Ta colonne O est pratiquement vide!!!
J'ai un peu modifié ton code, ça devient à mon avis plus propre

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
Sub Bouton1_QuandClic()
Dim NewSht As Worksheet, Sht As Worksheet, ws As Worksheet
Dim LastLig As Long, NewLig As Long
Dim NewShtName As String
Dim Trouve As Boolean
Dim Cel As Range
 
Application.DisplayAlerts = False
Application.ScreenUpdating = False
 
Set Sht = Sheets("feuil1")
With Sht
    LastLig = .Range("A65536").End(xlUp).Row
 
    For Each Cel In .Range("A15:A" & LastLig)
        Trouve = False
        NewShtName = Cel.Value
        For Each ws In Worksheets
            If ws.Name = NewShtName Then
                Trouve = True
                Exit For
            End If
        Next ws
 
        If Trouve Then
            Set NewSht = ws
        Else
            Set NewSht = Sheets.Add(after:=Sheets(Sheets.Count))
            NewSht.Name = NewShtName
        End If
 
        NewLig = NewSht.Range("A65536").End(xlUp).Row + 1
        Cel.EntireRow.Copy NewSht.Cells(NewLig, 1)
    Next Cel
End With
Set Sht = Nothing
Set NewSht = Nothing
 
Application.DisplayAlerts = True
Application.ScreenUpdating = True
 
End Sub