archer a écrit :
bonjour
travail sur mon dernier modèle
jais changer le système des Inscriptions
a toi de bien voir
A+
Maurice
Bonjour archer, bonjour le forum,
désolé d'voir été absent ces 2 jours, le concours de la "Marseillaise" m'a beaucoup occupé...!
Archer merci pour cette nouvelle mouture, j'ai remarqué le bouton "RAZ" qui manquait effectivement...!
J'ai également remarquer la disparition de la barre de défilement horizontale qui ne servait à rien dans ce UserForm...!
Je garde celle là et vais essayer de la finaliser.
Merci encore pour ta persévérance à m'aider
="archer"]bonjour
travail sur mon dernier modèle
jais changer le système des Inscriptions
a toi de bien voir
A+
Maurice
Bonjour archer, bonjour le forum,
Merci archer, j'ai remarqué la disparition de la "ScrollBar" horizontale et l'apparition du bouton "RAZ" 2 modifications nécessaires...!
Par contre, sais-tu pourquoi le programme bug sur :
Private Sub InitListe1()
Dim L As Long
With ListView2
' .BackColor = &HE0E0E0
.BackColor = F00.Range("L2").Interior.Color
.FullRowSelect = False
.Font.Bold = True
.ListItems.Clear
For L = 2 To Sh1.Range("B" & Rows.Count).End(xlUp).Row
.ListItems.Add , , L
.ListItems(.ListItems.Count).ListSubItems.Add , , Sh1.Cells(L, 2)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sh1.Cells(L, 3)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sh1.Cells(L, 4)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sh1.Cells(L, 5)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sh1.Cells(L, 6)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sh1.Cells(L, 7)
Next
End With
'On Error Resume Next
' ListView2.ListItems(1).Selected = False
' Set ListView2.SelectedItem = Nothing
'End Sub
Si je le désactive en commentaire, cela fonctionne parfaitement, puis-je la supprimer complètement, ou a-t-elle une utilité particulière...?
Merci encore