Discussion :

[BERRACHED SAID]

Bonjour le Forum et bonne journée

par la présente sollicitation je voudrais savoir s'il est possible de comparer deux colonnes qui comportent les montant l'une existante dans listbox2 et l'autre dans le listbox3 et de coloré les similitudes ainsi pour pouvoir faire un rapprochement.

Merci d'avance et bonne journée mesdames et messieurs.

[Jean-Philippe André]

Bonjour,

il est possible de mettre en couleur certaines cellules, mais mettre en couleur certaines lignes dans une listbox, ce n'est possible que via des API ou modules de classes spécifiques.

[BERRACHED SAID]

bonjour le forum et jpcheck

merci pour la réponse j'avais des doutes concernant l’utilisation de se codage puisque la couleur dans la propriété de l'objet pour une listbox ça concerne toutes les lignes
alors il quasiment impossible de l'attribué a une ligne ou deux.

merci beaucoup pour la réponse

[boisgontierjacques]

Bonsoir,


On peut simuler une ListBox en couleur

http://boisgontierjacques.free.fr/fi...tBoxSimule.xls

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Dim début, n
Dim Lbl(1 To 5) As New ClasseLabel
Private Sub UserForm_Initialize()
  For b = 1 To 5: Set Lbl(b).GrLabel = Me("Label" & b): Next b
  début = 1
  n = 5
  Me.ScrollBar1.Min = 1
  Me.ScrollBar1.Max = [liste].Count - n + 1
  affiche
End Sub
 
Sub affiche()
  For i = 1 To n
    Me("label" & i).Caption = Range("liste").Cells(i + début - 1, 1)
    Me("label" & i).ControlTipText = Range("liste").Cells(i + début - 1, 1).Offset(, 1)
    Me("label" & i).BackColor = Range("liste").Cells(i + début - 1, 1).Interior.Color
    Me("label" & i).ForeColor = Range("liste").Cells(i + début - 1, 1).Font.Color
  Next i
End Sub
 
Private Sub ScrollBar1_Change()
  début = ScrollBar1
  affiche
End Sub
 
Module de classe
Public WithEvents GrLabel As Msforms.Label
Private Sub GrLabel_click()
  p = Val(Mid(GrLabel.Name, 6))
  For i = 1 To 5: UserForm1.Controls("label" & i).BorderStyle = 0: Next i
  UserForm1.Controls("label" & p).BorderStyle = 1
  For Each c In Selection
    c.Value = GrLabel.Caption
    c.Font.Color = GrLabel.ForeColor
    c.Interior.Color = GrLabel.BackColor
  Next
End Sub

JB