XL 2021 Erreur demarrage USF avec listview

[Did25]

Bonjour le Forum , j'ai besoin de votre aide ,j'ai modifié mon fichier et j'ai tenté d'intégrer une listview mais impossible de trouver l'erreur qui bloque l'ouverture de l'USF Calcul .Merci de votre aide

 

[vgendron]

Bonjour

déroule ton code en mode pas à pas..

ta variable F n'est pas initialisée
For c = F To 11

 

[ChTi160]

Bonsoir le Fil
Effectivement "F"= colonne 6 Lol
Bonne fin de Soirée
Jean marie

 

[Did25]

Bonsoir le Fil
Effectivement "F"= colonne 6 Lol
Bonne fin de Soirée
Jean marie

Bonjour le ChTi160 ,et bonjour vgendron , j'ai trouvé la solution avec ceci :

```vba
Function show_data_in_listView()
    Dim r As Integer, c As Integer
    Dim lastrow As Long
    Dim li As Object
    ThisWorkbook.Sheets("Données").Activate
    lastrow = Sheets("Données").Cells(Rows.Count, 14).End(xlUp).Row
    With ListView1
        .View = lvwReport
        .CheckBoxes = False
        .FullRowSelect = True
        .Gridlines = True
        For c = 1 To 11
            With .ColumnHeaders
                .Add , , Sheets("Données").Cells(1, c), Sheets("Données").Cells(1, c).Width
            End With
        Next c
        For r = 2 To lastrow
            Set li = .ListItems.Add(, , Cells(r, 1))
            For c = 2 To 11
                li.ListSubItems.Add , , Cells(r, c)
            Next c
        Next r
    End With
End Function
```

Maintenant je ne connais pas la solution pour régler comme une listbox les largeurs de colonnes .

 

[ChTi160]

Bonjour Did25
C'est a ce niveau

For c = 1 To 11
            With .ColumnHeaders
                .Add , , Sheets("Données").Cells(1, c), Sheets("Données").Cells(1, c).Width
            End With
Next c

Bonne journée
Jean marie

 

[jurassic pork]

Maintenant je ne connais pas la solution pour régler comme une listbox les largeurs de colonnes .

Hello,
voici une astuce pour régler la largeur des colonnes d'une listview :
Par exemple on remplit les colonnes de la listView avec une largeur fixe de 70 dans le Initialize du formulaire comme ceci :

   Dim colw, c, ColName
   'colw = Array(35.4, 39, 39.6, 54, 39.6, 34.8, 28.2, 170.4, 77.4, 35.4, 36, 70, 66, 92.4, 48, 51.6, 70, 39.6)
    ColName = WsD.[A1].CurrentRegion.Rows(1).Value
    With ListView1
         .View = lvwReport
         .CheckBoxes = False
         .FullRowSelect = True
         .Gridlines = True
         .ListItems.Clear 'Ici
         .ColumnHeaders.Clear 'Ic
         For c = 1 To UBound(ColName, 2)
             With .ColumnHeaders
                .Add , , ColName(1, c), 70
               ' .Add , , ColName(1, c), colw(c - 1)
             End With
         Next c
    End With

et d'ajouter ce code pour un double clic dans la ListView :

Private Sub ListView1_DblClick()
Dim i, colw
For i = 1 To ListView1.ColumnHeaders.Count
  colw = colw + Replace(CStr(ListView1.ColumnHeaders.Item(i).Width), ",", ".") + ","
Next i
Debug.Print colw
End Sub

On lance le formulaire, on règle les largeurs de colonnes et on double-clique sur la listView.
On récupère ce qui est affiché dans la fenêtre d'exécution du VBA et on le met dans la ligne qui initialise le colw ( colw = Array())
On décommente la ligne avec colw = et on met en commentaire la ligne .Add , , ColName(1, c), 70 , on décommente la ligne qui est en dessous.
Ami calmant, J.P

 

[Did25]

Hello,
voici une astuce pour régler la largeur des colonnes d'une listview :
Par exemple on remplit les colonnes de la listView avec une largeur fixe de 70 dans le Initialize du formulaire comme ceci :

   Dim colw, c, ColName
   'colw = Array(35.4, 39, 39.6, 54, 39.6, 34.8, 28.2, 170.4, 77.4, 35.4, 36, 70, 66, 92.4, 48, 51.6, 70, 39.6)
    ColName = WsD.[A1].CurrentRegion.Rows(1).Value
    With ListView1
         .View = lvwReport
         .CheckBoxes = False
         .FullRowSelect = True
         .Gridlines = True
         .ListItems.Clear 'Ici
         .ColumnHeaders.Clear 'Ic
         For c = 1 To UBound(ColName, 2)
             With .ColumnHeaders
                .Add , , ColName(1, c), 70
               ' .Add , , ColName(1, c), colw(c - 1)
             End With
         Next c
    End With

et d'ajouter ce code pour un double clic dans la ListView :

Private Sub ListView1_DblClick()
Dim i, colw
For i = 1 To ListView1.ColumnHeaders.Count
  colw = colw + Replace(CStr(ListView1.ColumnHeaders.Item(i).Width), ",", ".") + ","
Next i
Debug.Print colw
End Sub

On lance le formulaire, on règle les largeurs de colonnes et on double-clique sur la listView.
On récupère ce qui est affiché dans la fenêtre d'exécution du VBA et on le met dans la ligne qui initialise le colw ( colw = Array())
On décommente la ligne avec colw = et on met en commentaire la ligne .Add , , ColName(1, c), 70 , on décommente la ligne qui est en dessous.
Ami calmant, J.P

Bonjour ,merci pour votre explication ,mais j'ai tenté d'essayer mais un peu trop compliqué pour moi , je galère