Bonjour

Voilà, j'essai de me servir d'une Listview, en surfant a droite à gauche j'airéussit à déguoter 2, 3 chose mais là je bloque, de plus je ne métrise pas les boucles alors.....
je Bloque au niveau du texte en rouge, voilà le message d'erreur : référence incorrecte ou non qualifiée.

Et le for i to 3 cela veux dire quoi ??

Cordialement

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
Private Sub UserForm_Initialize()
'''''''''''''''''''''''Code pour couleur listview
Dim i&: i = (ListView1.Width * 1 / 3) - 6
hwnd = GetWindow(FindWindow(vbNullString, Me.Caption), 5)
With ListView1
.View = lvwReport
.FullRowSelect = True
End With
hFont = CreateFont(13, 0, 0, 0, 700, 0, 0, 0, 0, 0, 0, 0, 0, "Cambria")
OldProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WinProc)
'==========Définit les entêtes de colonnes==========
    With ListView2
        With .ColumnHeaders
            .Clear 'Supprime les anciens entêtes
            
            'Ajout des colonnes
            .Add , , "Equipe 1", 100, lvwColumnLeft 'obligatoire alignement a droite premiere colonne
            .Add , , "Equipe 1", 100, lvwColumnLeft
            .Add , , "Points", 25, lvwColumnCenter
            .Add , , "Points", 25, lvwColumnCenter
            .Add , , "Equipe 2", 100, lvwColumnCenter
            .Add , , "Equipe 2", 100, lvwColumnCenter
            .Add , , "Terrain", 25, lvwColumnCenter
       End With
    
    .View = lvwReport 'affichage en mode Rapport
    .Gridlines = True 'affichage d'un quadrillage
    .FullRowSelect = True 'Sélection des lignes comlètes
    End With

 For i = 3 To Sheets("Manche2").Range("A65536").End(xlUp).Row
.ListItems.Add , , Sheets("Manche2").Cells(i, 1)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Manche2").Cells(i, 2) 'Joueur 1
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Manche2").Cells(i, 3) 'Joueur 1
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Manche2").Cells(i, 6) 'Points
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Manche2").Cells(i, 7) 'Points
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Manche2").Cells(i, 4) 'équipe 2
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Manche2").Cells(i, 5) 'Equipe 2
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Manche2").Cells(i, 8) 'Terrain

Next: End With
End Sub