Désélection dans une listbox - Déplacement de ligne en Columnheads
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:
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:
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
