Bonsoir,
Je cherche à faire des classements dans un listview sur chaque colonnes par ordre Alphanumériques

+ comment créer des filtres pour filtrer (par le biais de combox ou autre SUR l'USF) sur des critères dépendant d'autre données n'apparaissant pas dans la istview
- critère 1
- critère 2
- critère 3
.......

+ Pouvoir rendre modifiable les données de la listview pour que cela modifie la base de données...


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
50
51
52
53
54
55
Private Sub UserForm_initialize()
With Me.ANALYSEPARLISTE
    With .ColumnHeaders
        .Clear
        .Add , , "SOCIETE", 80
        .Add , , "ZONE", 60
        .Add , , "TYPE", 70
        .Add , , "NOM", 120
        .Add , , "PRENOM", 80
        .Add , , "FONCTION", 150
        .Add , , "MAIL", 120
        .Add , , "POSTE", 80
        .Add , , "REMARQUE", 80
    End With
    .View = 3                   ' type Report
    .Gridlines = True           ' affichage de lignes
    .FullRowSelect = True       ' sélection complète de la ligne
    .HideColumnHeaders = False  ' afficher les en-têtes de colonnes
    .LabelEdit = 1              ' ne pas autoriser la saisie
 
End With
Call LISTING
 
End Sub
 
Sub LISTING()
ANALYSEPARLISTE.ListItems.Clear
With Sheets("BASE EMPLOI")
   Set Plage = Range("b2:b" & .Range("b65000").End(xlUp).Row)
    For Each Cel In Plage
        With ANALYSEPARLISTE
            .ListItems.Add , , Cel
            'Appelle la SOCIETE
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 1)
            'Appelle la ZONE
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 2)
            'Appelle le TYPESOCIETE
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 4)
            'Appelle le NOMCONTACT
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 5)
            'Appelle  le PRENOMCONTACT
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 6)
            'Appelle  la FONCTIONCONTACT
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 7)
            'Appelle  le MAILCONTACT
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 10)
            'Appelle  le POSTE
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 45)
            'Appelle  l'ANNONCE
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 46)
        End With
    Next
End With
 
End Sub

Merci

Seb