Pointeur ListView Traitement

Version imprimable

Bonjour à tous,

je me permets de solliciter votre aide, car j'ai épuisé les tests, je ne vois pas du tout le soucis.

Je dispose dans une feuille excel une base de données de contact personnel, dont les données démarrent à la ligne 12.
J'ai une colonne (la 17ème) qui donne le numéro de contact pour chaque ligne, c'est un numéro unique qui va de 1 jusqu'au nombre de contact.

Je travaille une listview, qui me prend toutes les colonnes et toutes les lignes. A chaque contact, j'ai donc dans ma liste view à la fin le numéro de "clé".

Je désire créer une fonction colorer() pour colorer le nom de famille des contacts en fonction du type (famille, pro, etc...).

A l'initialisation, ma listview contient toutes les données, donc la pas de problème. Sauf que j'ai des fonctions de filtre, et j'aimerai qu'à la fin de chaque fonction de filtre, je recolore l'affichage. Mettons que le filtre me renvoi 10 données sur un total de 500, cette fois l'index de listview ne correspond pas au numéro unique.

Dans ma fonction colorer, je cherche donc à récupérer la valeur de la clé de la ligne sélectionnée, afin de lui appliquer la bonne couleur.
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 Sub colorer() Dim nb_ligne As Integer nb_ligne = ListView1.ListItems.Count Dim k, numcolonne As Integer For k = 1 To nb_ligne numcolonne = Int((CInt(ListView1.ListItems(k).ListSubItems(10)) + 11)) 'MsgBox (numcolonne) If Sheets("Liste").Cells(numcolonne, 16).Value = "PRO" Then ListView1.ListItems(k).ListSubItems(1).ForeColor = RGB(255, 142, 0) ListView1.ListItems(k).ListSubItems(1).Bold = True End If If Sheets("Liste").Cells(numcolonne, 16).Value = "Amis" Then ListView1.ListItems(k).ListSubItems(1).ForeColor = RGB(0, 142, 0) ListView1.ListItems(k).ListSubItems(1).Bold = True End If If Sheets("Liste").Cells(numcolonne, 16).Value = "Famille" Then ListView1.ListItems(k).ListSubItems(1).ForeColor = RGB(0, 0, 255) ListView1.ListItems(k).ListSubItems(1).Bold = True End If If Sheets("Liste").Cells(numcolonne, 16).Value = "Autres" Then ListView1.ListItems(k).ListSubItems(1).ForeColor = RGB(0, 120, 255) ListView1.ListItems(k).ListSubItems(1).Bold = True End If Next End Sub
Sauf que le "numcolonne" me renvoie une erreur 13 incompatibilité de type quand je l'applique dans le cells. J'ai fait une msgbox, j'ai bien la bonne valeur de ligne, j'ai vérifié le type, c'est bien numérique...

je n'y comprends rien.

Merci infiniment !

Cordialement,

kenobiwan

20/10/2017, 14h28
mjpmjp

bonjour,

Citation:

numcolonne = Int((CInt(ListView1.ListItems(k).ListSubItems(10)) + 11))

la colonne 1+10 contient un chiffre auquel tu ajoutes 11...

Citation:

dont les données démarrent à la ligne 12.

c'est un hasard ou on est bien à la recherche d'une ligne ?

Citation:

If Sheets("Liste").Cells(numcolonne, 16).Value = "PRO" Then

la structure de cells est bien Cells(ligne,colonne) ?
numcolonne est un numéro de colonne ou de numligne ?
-------------------

Citation:

J'ai une colonne (la 17ème) qui donne le numéro de contact pour chaque ligne, c'est un numéro unique qui va de 1 jusqu'au nombre de contact.

la 17ème ...colonne 17 (sheet) ou colonne 1+16 (list)

Citation:

Je travaille une listview, qui me prend toutes les colonnes et toutes les lignes. A chaque contact, j'ai donc dans ma liste view à la fin le numéro de "clé".

le numéro de "clé" = le numéro de contact ?
-------------------

Citation:

Dans ma fonction colorer, je cherche donc à récupérer la valeur de la clé de la ligne sélectionnée, afin de lui appliquer la bonne couleur.

Citation:

Je désire créer une fonction colorer() pour colorer le nom de famille des contacts en fonction du type (famille, pro, etc...).

le code que tu as posté utilise "famille des contacts" et non le numéro de "clé" ou le numéro de contact

@+JP

Merci beaucoup de ton retour.

J'ai tout redessiné, je ne comprends pas. J'ai essayé de bien faire attention effectivement entre le tableau excel et le tableau de la listview

La colonne 17 de mon tableau excel contient des valeurs de 1 à 508 (mon nombre de contact). et le "1" se situe à la ligne 12.
Dans mon listview, je récupere la bonne ligne dans la colonne du listview, qui se trouve être la 10+1ème colonne du listview (jai les champs prenom,nom,f1,f2,m1,m2,mpro,mperso,ent,categ,ligne), donc c'est bien le 11ème champ du listview, donc le ListView1.ListItems(k).ListSubItems(10) de la ligne k.

Code:

ligne_dans_colonne = ListView1.ListItems(k).ListSubItems(10)

Cette clé "ligne_dans_colonne" commencant à 1, je lui ajoute 11 pour me recaler avec mon tableau excel, et je vais chercher la catégorie du contact qui se trouve dans la colonne 16 de excel

Code:

categorie_k = Sheets("Liste").Cells(ligne_dans_colonne + 11, 16).Value

puis je compare categorie_k pour colorer....
Je suis navré, je n'arrive pas à cerner l'erreur de raisonnement...
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 Sub colorer() Dim nb_ligne, ligne_dans_colonne As Integer nb_ligne = ListView1.ListItems.Count Dim k, numcolonne As Integer Dim categorie_k As String For k = 1 To nb_ligne ligne_dans_colonne = ListView1.ListItems(k).ListSubItems(10) categorie_k = Sheets("Liste").Cells(ligne_dans_colonne + 11, 16).Value If categorie_k = "PRO" Then ListView1.ListItems(k).ListSubItems(1).ForeColor = RGB(255, 142, 0) ListView1.ListItems(k).ListSubItems(1).Bold = True End If Next End Sub

20/10/2017, 15h15
mjpmjp

bonjour,
tu confirmes que

Code:

categorie_k = Sheets("Liste").Cells(ligne_dans_colonne + 11, 16).Value

categorie_k correspond à une famille ?

modifier : type et non famille :aie:
categorie_k correspond à un Type ?

@+JP

1 pièce(s) jointe(s)

re,
je confirme c'est ok pour moi :D

Pièce jointe 321074

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
 
Private Sub CommandButton1_Click()
    '----- remplissage ListView------------------------
    With ListView1
        'Définit le nombre de colonnes et Entêtes
        With .ColumnHeaders
            'Supprime les anciens entêtes
            .Clear
            'Ajoute 17 colonnes en spécifiant le nom de l'entête
            'et la largeur des colonnes
            For n = 1 To 17
            .Add , , n, 40
            Next n
        End With
 
        'Remplissage de la 1ere colonne (création de 3 lignes)
        With .ListItems
            .Clear
            For n = 1 To 3
           .Add , , Cells(n, 1)
            Next n
         End With
 
        'Remplissage des colonnes 2 a 17 dans la ligne n2
 
        For n2 = 1 To 3
            With .ListItems(n2).ListSubItems
                For n = 2 To 17
                    .Add , , Cells(n2, n)
                Next n
            End With
        Next n2
 
    End With
 
    'Spécifie l'affichage en mode "Détails"
    ListView1.View = lvwReport
    '-----
    Call colorer
End Sub
Sub colorer()
    Dim nb_ligne As Integer
    nb_ligne = ListView1.ListItems.Count
    Dim k, numcolonne As Integer
 
    For k = 1 To nb_ligne
 
        ligne_dans_colonne = ListView1.ListItems(k).ListSubItems(10)
        'categorie_k = Sheets("Liste").Cells(ligne_dans_colonne + 11, 16).Value
        categorie_k = Sheets("Liste").Cells(ligne_dans_colonne + 1, 16).Value
 
         'If categorie_k = "PRO" Then
        If categorie_k = "p" Then
            ListView1.ListItems(k).ListSubItems(1).ForeColor = RGB(255, 142, 0)
            ListView1.ListItems(k).ListSubItems(1).Bold = True
        End If
    Next
End Sub

le "code" Type est dans la colonne 16 de l'onglet "Liste"

erreur possible
nom de l' onglet : Liste
nom de Type : PRO
colonne 16 : P

et aussi la
situation de ListView :
nom de ListView : ListView1

@+JP

20/10/2017, 16h12
kenobiwan88

Citation:

Envoyé par mjpmjp

bonjour,
tu confirmes que

Code:

categorie_k = Sheets("Liste").Cells(ligne_dans_colonne + 11, 16).Value

categorie_k correspond à une famille ?

@+JP

Ah, mauvaise utilisation. categorie_k c'est le "type" de contact --> amis/famille/autres/PRO, et non pas le nom de famille
Je confirme les noms onglet et de la listview
20/10/2017, 16h21
mjpmjp

bonjour,
on parle de la même chose, mais tu as raison de préciser on parle de "type" :aie:
@+JP
20/10/2017, 16h26
kenobiwan88

Citation:

Envoyé par mjpmjp

bonjour,
on parle de la même chose, mais tu as raison de préciser on parle de "type" :aie:
@+JP

Cool, j'avais peur encore de m'embrouiller.
Par contre ca ne fonctionne toujours pas...j'ai mis des msgbox partout pour tout tester. Il comprend tout bien sauf quand je lui demande de l'appliquer a cells() :?

C'est à n'y rien comprendre...
20/10/2017, 16h31
mjpmjp

re,
regarde mon code , j'ai juste remplacé 11 par 1 , et pro par p , pour adapter à mon exemple

listview est dans un onglet ou un form ?

@+JP
20/10/2017, 16h58
kenobiwan88

Citation:

Envoyé par mjpmjp

re,
regarde mon code , j'ai juste remplacé 11 par 1 , et pro par p , pour adapter à mon exemple

listview est dans un onglet ou un form ?

@+JP

J'ai copié ton code tel quel, en commentant tes lignes (1 et "p") et en décommentant les miennes.

ma listview est dans un userform.
Il faut que j'étudie + en détail ton tableau excel et le mien histoire de voir si la construction est la même, mais ca me semble être la même chose...

[EDIT : par contre dans ton tableau, le premier "2" ne devrait pas être en orange....]
24/10/2017, 20h43
mjpmjp

bonjour,

Citation:

ma listview est dans un userform.

essais avec NomUserform.NomListview

@+JP