Bonsoir tout le monde,

Je me permet de demander votre d'aide car je bloque.

Je souhaite savoir pourquoi il y a un message d'erreur dans mon code vba: "erreur de compilation, Membre de méthode ou de données introuvable"

Je Souhaiterais avoir dans ma deuxième colonne de la listview j'ai les données de la colonne B. A savoir qu'une macro me masque des lignes donc de pas les voirs apparaitre dans la listview.

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
56
57
58
59
'--------- Procédure à placer dans le module objet du UserForm ----------------
 
Option Explicit
 
 
 
 
 
Private Sub ListView1_BeforeLabelEdit(Cancel As Integer)
 
End Sub
 
Private Sub UserForm_Initialize()
 
Dim AA As Range, A As Range, BB As Range, B As Range
 Set AA = Worksheets("Feuil1").Range("A3:A22")
 Set BB = Worksheets("Feuil1").Range("B3:B22")
 
    'Définit les entêtes de colonnes
    With ListView1
        With .ColumnHeaders
            .Clear 'Supprime les anciens entêtes
 
            'Ajout des colonnes
            .Add , , "NOM Prénom", 100
            .Add , , "1", 40, lvwColumnCenter
            .Add , , "2", 50, lvwColumnCenter
            .Add , , "3", 60, lvwColumnCenter
            .Add , , "4", 40, lvwColumnCenter
            .Add , , "5", 50, lvwColumnCenter
            .Add , , "6", 40, lvwColumnCenter
            .Add , , "7", 40, lvwColumnCenter
            .Add , , "8", 40, lvwColumnCenter
            .Add , , "9", 60, lvwColumnCenter
            .Add , , "10", 50, lvwColumnCenter
        End With
 
        'Remplissage de la 1ere colonne (création de lignes)
         For Each A In AA
        With .ListItems
         .Add , , A.Value
        End With
         Next
        'Remplissage de la 2ere colonne (création de lignes)
         For Each B In BB
        With .ListItems(1)
         .Add , , B.Value
        End With
         Next
 
    End With
 
    ListView1.View = lvwReport 'affichage en mode Rapport
    ListView1.Gridlines = True 'affichage d'un quadrillage
    ListView1.FullRowSelect = True 'Sélection des lignes comlètes
 
 
 
End Sub

J'espère avoir été bien claire.

Cordialement,

Vincent.