listview modifiable dans la base de données

Version imprimable

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:

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

26/04/2014, 04h22
Docmarti

Bonsoir GADENSEB

Il y a l'excellent tutoriel de SilkyRoad qui traite de ces questions:
Utiliser le contrôle ListView en VBA Excel

http://silkyroad.developpez.com/VBA/ListView/

Merci La page est super mais mon code bloque je ne sais pas où

Je n'arrive pas à inserer dans la listview les données de la feuille excel dépassant la colonne n°10 ......

Est-ce normal au point de vue de ce code ?

Code:

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
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 , , "TELEPHONE", 70
        .Add , , "MAIL", 70              
        .Add , , "BLABLA", 70
 
    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 TELEPHONECONTACT
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 8)
            'Appelle  le MAILCONTACT
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 10)
 
            'Appelle  le BLABLA
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 2)
 
 
        End With
    Next
End With
 
End Sub
 
Private Sub ANALYSEPARLISTE_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    ANALYSEPARLISTE.Sorted = False
    ANALYSEPARLISTE.SortKey = ColumnHeader.Index - 1
 
    If ANALYSEPARLISTE.SortOrder = lvwAscending Then
        ANALYSEPARLISTE.SortOrder = lvwDescending
        Else
        ANALYSEPARLISTE.SortOrder = lvwAscending
    End If
 
   ANALYSEPARLISTE.Sorted = True
End Sub
 
Private Sub MODIFICATIONS_Click()
   Dim i As Integer, j As Integer
 
    'Boucle sur toutes les lignes
    For i = 1 To ANALYSEPARLISTE.ListItems.Count
        Cells(i, 1) = ANALYSEPARLISTE.ListItems(i).Text
 
        'Boucle sur les colonnes
        For j = 1 To ANALYSEPARLISTE.ColumnHeaders.Count - 1
            Cells(i, j + 1) = ANALYSEPARLISTE.ListItems(i).ListSubItems(j).Text
        Next j
    Next i
 
 
End Sub

Bonjour GADENSEB

Pour ajouter des colonnes, il suffit d'ajouter de nouvelles entêtes de colonnes.
Code:

1 2 3 4 .Add , , "BLABLA", 70 .Add , , "BLABLA2", 70 .Add , , "BLABLA3", 70 .Add , , "BLABLA4", 70

29/04/2014, 08h11
GADENSEB

Yes ça ça matche nikel
Le soucis est dans me renvoi d'informations
Il ne se fait pas au delà de la colonne 10 ou alorsc'est les valeurs de la colonne 10 qui sont renvoyées.
29/04/2014, 15h45
Docmarti

Là je ne comprends pas. Il faudrait que tu joignes un petit fichier au format XLS qui illustre le problème.
29/04/2014, 15h54
GADENSEB

1 pièce(s) jointe(s)

et voila la merveille lol

Userform "ANALYSE"
29/04/2014, 16h14
Docmarti

Ce fichier ne contient pas le Userform ni le code qui fait problème.

Envoie un fichier au format XLS (Classeur Excel 97-2003) contenant le code.

Edit: et quelques données bidon également.
29/04/2014, 18h17
GADENSEB

1 pièce(s) jointe(s)

Avec cela ca devrait aller mieux !

Pièce jointe 144454

Oui. Ca va beaucoup mieux avec le code. Très joli code d'ailleurs.

Tu as une petite erreur dans Cel.Offset(0, 10) au lieu de Cel.Offset(0, 9)

Je te suggère le code suivant pour réduire le risque d'erreurs de cette nature:

Code:

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
Private Sub UserForm_Initialize()
 
Set f = Sheets("BASE EMPLOI")
With Me.ANALYSEPARLISTE
 
Entetes = Array("B", "C", "D", "F", "G", "H", "I", "J", "K")
largeur = Array(80, 60, 70, 210, 80, 150, 70, 70, 70)
    With .ColumnHeaders
        .Clear
        nbr = -1
        For nbr = 0 To 8
           .Add , , f.Cells(1, Entetes(nbr)), largeur(nbr) '80
        Next
 
    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
 
Set f = Sheets("BASE EMPLOI")
 
Entetes = Array("B", "C", "D", "F", "G", "H", "I", "J", "K")
 
   Set Plage = f.Range("b2:b" & f.Range("b65000").End(xlUp).Row)
    For Each cel In Plage
        With ANALYSEPARLISTE
 
            .ListItems.Add , , cel
 
            For nbr = 1 To 8
 
            .ListItems(.ListItems.Count).ListSubItems.Add , , f.Cells(cel.Row, Entetes(nbr))  'Cel.Offset(0, 1)
 
            Next
 
        End With
    Next
 
End Sub

30/04/2014, 09h01
GADENSEB

au poil !

Merci ton code est nikel.
Merci aussi pour la remarque pour la qualité de mon code ;-)

Maintenant petit challenge supplémentaire :
Comment rendre modifiable les cellules dans le usf pour que les modifications soit automatiquement reportées dans l'excel
Le code que j'ai, je le trouve bizarre.....
02/05/2014, 06h21
grisan29

Bonjour docmarti, gadenseb et le forum

gadenseb: ton fichier fonctionnerai mieux si tu enlevais tout les sélect et réduit un peu tes codes mais très beau codage
j'ai supprimer quelques select et réduit quelques codes pas testé mais devrai fonctionner
je joints le fichier en .xlsm ou j'ai intégré le code de docmarti
http://cjoint.com/?DEchkvCM77H
Pascal

Citation:

Envoyé par GADENSEB

Comment rendre modifiable les cellules dans le usf pour que les modifications soit automatiquement reportées dans l'excel
Le code que j'ai, je le trouve bizarre.....

Il n'y a pas de façon pour que les modifications dans un Userform soient automatiquement reportées. Il faut qu'elles soient reportées par code.
Comme toutes les valeurs dans les contrôles du Userform sont de type TEXT, il faut absolument typer les dates pour éviter qu'elles soient interprétées comme étant des dates au format américain.

J'ai ajouté la colonne "S" dans le code ci-dessous pour illustrer la façon de typer les dates.

Code:

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
 
Private Sub MODIFICATIONS_Click()
   Dim i As Integer, j As Integer
    Set F = ThisWorkbook.Worksheets("Base Emploi")
 
    Entetes = Array("B", "C", "D", "F", "G", "H", "I", "J", "K", "S")
 
    Application.EnableEvents = False
 
    'Boucle sur toutes les lignes
    For i = 1 To ANALYSEPARLISTE.ListItems.Count
        'F.Cells(i + 1, 1) = ANALYSEPARLISTE.ListItems(i).Text
 
        F.Cells(i + 1, Entetes(0)) = ANALYSEPARLISTE.ListItems(i).Text
 
 
        'Boucle sur les colonnes
        For j = 1 To ANALYSEPARLISTE.ColumnHeaders.Count - 1
            'F.Cells(i + 1, j + 1) = ANALYSEPARLISTE.ListItems(i).ListSubItems(j).Text
 
            If IsDate(ANALYSEPARLISTE.ListItems(i).ListSubItems(j).Text) Then
 
             F.Cells(i + 1, Entetes(j)) = CDate(ANALYSEPARLISTE.ListItems(i).ListSubItems(j).Text)
            Else
             F.Cells(i + 1, Entetes(j)) = ANALYSEPARLISTE.ListItems(i).ListSubItems(j).Text
            End If
        Next j
    Next i
Application.EnableEvents = True
 
End Sub

Code:

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
Private Sub UserForm_Initialize()
 
Set F = Sheets("BASE EMPLOI")
With Me.ANALYSEPARLISTE
 
Entetes = Array("B", "C", "D", "F", "G", "H", "I", "J", "K", "S")
largeur = Array(80, 60, 70, 210, 80, 150, 70, 70, 70, 70)
    With .ColumnHeaders
        .Clear
        nbr = -1
        For nbr = 0 To 9
           .Add , , F.Cells(1, Entetes(nbr)), largeur(nbr) '80
        Next
 
    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
 
Set F = Sheets("BASE EMPLOI")
 
Entetes = Array("B", "C", "D", "F", "G", "H", "I", "J", "K", "S")
 
 
   Set Plage = F.Range("b2:b" & F.Range("b65000").End(xlUp).Row)
    For Each cel In Plage
        With ANALYSEPARLISTE
 
            .ListItems.Add , , cel
 
            For nbr = 1 To 9
 
            .ListItems(.ListItems.Count).ListSubItems.Add , , F.Cells(cel.Row, Entetes(nbr))  'Cel.Offset(0, 1)
 
            Next
 
        End With
    Next
 
End Sub

03/05/2014, 10h10
GADENSEB

SAlut
Encore une fois ton code est génial !
Par contre,je n'arrive à modifier que la colonne 1 dans la listview !, en double clic

Est-ce normal ?

Comment contourner la chose pour pouvoir tout modifier ?

Bonne journée

Seb
03/05/2014, 14h00
Docmarti
Citation:

Envoyé par GADENSEB

SAlut
je n'arrive à modifier que la colonne 1 dans la listview !, en double clic

Est-ce normal ?

Tout à fait normal. Le Listview est une imitation de l'explorateur dans Windows où seule la colonne NOM est modifiable manuellement.

Il faut donc faire les modifications dans des contrôles textBox ( ou autres ) séparés puis les reporter dans le Listview.
Code:

1 2 ANALYSEPARLISTE.ListItems(j) = TextBox1 ANALYSEPARLISTE.ListItems(j).ListSubItems(1) = TextBox2

heuuuuu j'ai pas tout compris ...
peux-tu me donner un exxemple ,stp ......

Si je comprends bien, je dois faire (en vert) :

Code:

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
Private Sub UserForm_Initialize()
 
Set F = Sheets("BASE EMPLOI")
With Me.ANALYSEPARLISTE
 
Entetes = Array("B", "C", "D", "F", "G", "H", "I", "J", "K", "S")
largeur = Array(80, 60, 70, 210, 80, 150, 70, 70, 70, 70)
    With .ColumnHeaders
        .Clear
        nbr = -1
        For nbr = 0 To 9
           .Add , , F.Cells(1, Entetes(nbr)), largeur(nbr) '80
        Next
 
    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 = 0              ' ne pas autoriser la saisie
 
End With
Call LISTING
 
End Sub
Sub LISTING()
 
ANALYSEPARLISTE.ListItems.Clear
 
Set F = Sheets("BASE EMPLOI")
 
Entetes = Array("B", "C", "D", "F", "G", "H", "I", "J", "K", "S")
 
 
   Set Plage = F.Range("b2:b" & F.Range("b65000").End(xlUp).Row)
    For Each cel In Plage
        With ANALYSEPARLISTE
 
            .ListItems.Add , , cel
 
            For nbr = 1 To 9
 
            .ListItems(.ListItems.Count).ListSubItems.Add , , F.Cells(cel.Row, Entetes(nbr))  'Cel.Offset(0, 1)
 
            Next
 
        End With
    Next

ANALYSEPARLISTE.ListItems(j) = TextBox1
ANALYSEPARLISTE.ListItems(j).ListSubItems(1) = TextBox2
A quoi correspond textbox1 --> la colonne 1 --> Colonne  B?
A quoi correspond textbox1 --> la colonne 2 --> Colonne  C?


 
End Sub

Private Sub ANALYSEPARLISTE_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    ANALYSEPARLISTE.Sorted = False
    ANALYSEPARLISTE.SortKey = ColumnHeader.Index - 1
    
    If ANALYSEPARLISTE.SortOrder = lvwAscending Then
        ANALYSEPARLISTE.SortOrder = lvwDescending
        Else
        ANALYSEPARLISTE.SortOrder = lvwAscending
    End If
    
   ANALYSEPARLISTE.Sorted = True
End Sub

Private Sub MODIFICATIONS_Click()
   Dim i As Integer, j As Integer
    Set F = ThisWorkbook.Worksheets("Base Emploi")
 
    Entetes = Array("B", "C", "D", "F", "G", "H", "I", "J", "K", "S")
 
    Application.EnableEvents = False
 
    'Boucle sur toutes les lignes
    For i = 1 To ANALYSEPARLISTE.ListItems.Count
        'F.Cells(i + 1, 1) = ANALYSEPARLISTE.ListItems(i).Text
 
        F.Cells(i + 1, Entetes(0)) = ANALYSEPARLISTE.ListItems(i).Text
 
 
        'Boucle sur les colonnes
        For j = 1 To ANALYSEPARLISTE.ColumnHeaders.Count - 1
           'F.Cells(i + 1, j + 1) = ANALYSEPARLISTE.ListItems(i).ListSubItems(j).Text
 
            If IsDate(ANALYSEPARLISTE.ListItems(i).ListSubItems(j).Text) Then
 
             F.Cells(i + 1, Entetes(j)) = CDate(ANALYSEPARLISTE.ListItems(i).ListSubItems(j).Text)
            Else
             F.Cells(i + 1, Entetes(j)) = ANALYSEPARLISTE.ListItems(i).ListSubItems(j).Text
            End If
        Next j
    Next i
Application.EnableEvents = True
 
End Sub

07/05/2014, 19h38
grisan29

bonjour GADENSEB

je pense que tu as eu -1 au post 14 car tu ne dit pas bonjour où que tu n'a pas daigné dire si le fichier que j'ai modifier en supprimant quelque "select" te correspond ou pas,
par ailleurs, quand tu publie un code prends soin de l'encadrer par l'appui sur le bouton # ce qui le rendra plus lisible

Pascal
08/05/2014, 13h10
GADENSEB

Bonjour,
Je te prie de bien vouloir m'excuser.

dans la folie, je n'ais pas pris le temps de te répondre, en effet les modifications que tu as apportées marche nikel.

Concernant les régles de publications : je fais attention mais j'ai parfois des oublis !!! mea culpa

Un grand merci à toi !!

Bonne journée à tous