Discussion :

[Passepartout007]

Bonjour,
J'ai un problème dans une listbox.
La première ligne de ma Listbox1 correspond au titre de mes colonne. J'incrémente la listbox avec ce code :

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
Dim I As Byte
For I = 1 To Derlig 'pour I de 1 à la dernière ligne
  'ajoute les données dans la listBox1
        If .Range("A" & I).EntireRow.Hidden = False Then 'si la cellule est visible alors faire les étapes suivante sinon end if
            ListBox1.AddItem .Range("A" & I).Value
            ListBox1.List(ListBox1.ListCount - 1, 1) = .Range("A" & I).Offset(0, 2) 'ajoute le type en colonne 1
            ListBox1.List(ListBox1.ListCount - 1, 2) = .Range("A" & I).Offset(0, 3) 'ajoute le Materiel en colonne 2
            ListBox1.List(ListBox1.ListCount - 1, 3) = .Range("A" & I).Offset(0, 4) 'ajoute le N° Organe en colonne 3
            ListBox1.List(ListBox1.ListCount - 1, 4) = .Range("A" & I).Offset(0, 5) 'ajoute la tache en colonne 4
            ListBox1.List(ListBox1.ListCount - 1, 5) = .Range("A" & I).Offset(0, 6) 'ajoute la Version en colonne 5
            ListBox1.List(ListBox1.ListCount - 1, 6) = .Range("A" & I).Offset(0, 7) 'ajoute le Observation en colonne 6
            ListBox1.List(ListBox1.ListCount - 1, 7) = .Range("A" & I).Offset(0, 8) 'ajoute le 1 ére Arrivé en colonne 7
            ListBox1.List(ListBox1.ListCount - 1, 8) = .Range("A" & I).Offset(0, 30) 'ajoute le Validée le en colonne 8
            ListBox1.List(ListBox1.ListCount - 1, 9) = .Range("A" & I).Offset(0, 31) 'ajoute le Départ en colonne 9
       End If
 
Next I 'passer au next I

Cependant je voudrais que le titre des colonne ne soit pas sélectionnable : il y a deux solutions envisager
- Passer la première ligne de la listbox en columnheads et supprimer cette ligne (je n'ais pas réussi)
- Rendre la première ligne de la Listbox non sélectionnable.

Pour le rendre non sélectionnable j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ListBox1_Click()
 With ListBox1
  If ListBox1.Selected(0) = True Then .Selected(0) = False:
  Next
 End With
End Sub

Cependant cela ne fonctionne pas, je ne comprend pas pourquoi.
Pouvez vous, m'aidez en m'apportant des piste pour l'une ou l'autre des solutions.
Cordialement,
Passepartout007

[Invité]

Bonjour,

Autre solution possible en créant une ListBox pour la ligne de titre identique à la principale comme ci-dessous. C'est très rapide une fois la principale paramétrée.

Pièce jointe 394143

[Passepartout007]

Bonjour,
Cela est une merveilleuse idée ! je ne comprend pas pourquoi je n'y ai pas penser avant.
Grand merci à toi.
Cordialement,
Passepartout007

[Invité]

Je reconnais quand même que cela fait un peu bricolo....