Bonjour forum,
j'ai une listbox à 3 colonne,
j'aimerais que seulement la 3e colonne est un alignement de texte "RIGHT". ( alignement à droit)
à priori, rien n'est prévu pour ca, par contre un internaute a réalisé un coup de génie et a réussi à l'aide d'un module de classe à réussir la prouesse.
Je n'arrive par contre pas à intégrer son code au miens
voici comment j'alimente ma listbox1
Private Sub UserForm_Activate()
Dim Etat As Variant, MPaie As Variant
Dim Nb%, i%, x%, Données$, DonnéesC$, DonnéesD$
Dim A As String
Me.ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "30;120"
Sheets("Clients").Activate
UserForm10.Caption = "Gestion Clients"
Nb = Sheets("Clients").Range("A2").Value
UserForm10.Label1.Caption = "Liste Clients " & "(Q= " & Nb & ")"
x = 3 'Seuil de départ de la liste
For i = 1 To Nb
Données = Sheets("Clients").Range("D" & i + x).Value
DonnéesC = Sheets("Clients").Range("C" & i + x).Value
DonnéesD = Sheets("Clients").Range("J" & i + x).Text
UserForm10.ListBox1.AddItem 'DonnéesC
ListBox1.List(i - 1, 0) = DonnéesC
ListBox1.List(i - 1, 1) = Données
ListBox1.List(i - 1, 2) = DonnéesD
Next i
For i = Me.ListBox1.ListCount - 1 To 0 Step -1
If Right(Me.ListBox1.List(i, 1), 2) = "_2" Then
Me.ListBox1.RemoveItem (i)
End If
Next i
End Sub
Ca donne:
QQN saurait comment intégrer son code au miens??