Discussion :

[stéphanie123]

j'ai une base de donnée sur une feuille qui s'ouvre dans une listbox, celle ci est tres fournis, j'aimerai que par rapport à une colonne spécifié par exemple la colonne 4 que si l'intitulé de la colonne change alors cela me l'affiche d'une couleur différente afin de dissocié les lignes dans la listbox

exemple: couleur des lignes dans la listbox ;

1234 en blanc
1234 en blanc
1234 en blanc
1234 en blanc
2346 en gris
2346 en gris

[peofofo]

Bonsoir Stéphanie

Je pense que tu dois pouvoir trouver avec ListBox1.ListCount pour identifier la colonne.
Les tableaux pour récupérer le nom d'avant.

Exemple :

Code :

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

1
2
3
4
5
6
7
8
Boucle{
NomTableau(i) = Ligne
if ListBox1.ListCount = 4 then
if NomTableau(i-1) <> Ligne
NomTableau = Ligne.Font.ColorIndex = 0+i
end if
end if
}Fin boucle

[stéphanie123]

bonsoir j'ai suivi ton conseil, le petit pB c'est que ma boucle for est mal effectuée, lors du débogage quand je vais dans l'aide il me dise d'utilisée une for each, je sais pas comment (enfin ci ces cela mon erreur)

j'ai adaptée ton code à mon programme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  Dim ligne As Variant
    Dim h As Integer
    For h = 0 To FichAdresse.ListCount - 1
 TablContacts(i) = ligne
If FichAdresse.ListBoxContacts.ListCount = 4 Then
If TablContacts(i - 1) <> ligne Then
TablContacts = ligne.Font.ColorIndex = 0 + i
End If
End If
Next h
End Sub