Zone de liste à sélection multiple qui a de la mémoire?

[Crazyo]

Salut à tous...

Je m'explique! J'ai ma petite zone de liste à sélection multiple, je "bleute" (oups, ça se dit ça?) ce dont j'ai besoin et le tout apparait dans la sélection voulue... Pour l'instant, tout le monde connait le truc, et maintenant je maitrise. Seul problème, c'est que ma sélection comporte quelques 200 référence, et dès que j'en oublie une seul ou que je m'apperçois qu'il y'en a une mauvaise, faut que refasse tout pour que ça reste dans l'ordre. Alors je me demande si il y a un moyen pour que les références sélectionnées précédement soient déjà "bleutée" lorsque je souhaite refaire une sélection. Comme ça j'enlève les deux trois qui me plaisent plus...

 

[Crazyo]

Correctificatif, désolé pour les fautes ;-))

"... quelques 200 références..."
"... une seule..."
"... déjà bleutées..."

 

[andré]

Salut à vous,

Faudra-t-il qu'un étranger vous apprennent la langue française ?

Bleuter : passer légèrement au bleu
Bleuir : rendre bleu.

Quant à la question :
comment les cellules sont-elles "mises en couleur" (MFC ou VBA) ?
comment la zone de liste est-elle construite (Validation ou VBA)?

Heureux que quelqu'un se préoccupe de l'ortaugraffe.

Ândré.

 

[Crazyo]

Private Sub UserForm_Initialize()
With Sheets("Saisie du descriptif").Range("A1")
Me.ListeClients.RowSource = Range(.Cells, .End(xlDown)(1, 2)).Address(External:=True)
End With
End Sub


Private Sub UserForm_Activate()
Range("D1:E1", Cells(ListeClients.ListCount, 4)).Clear
ListeClients.MultiSelect = fmMultiSelectMulti
End Sub


Private Sub CmdOK_Click()
j = 1
With ListeClients
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
Cells(j, 4) = .List(i, 0): Cells(j, 5) = .List(i, 1)
.Selected(i) = False
j = j + 1
End If
Next
End With
DlgChoixMutliple.Hide
End Sub


Private Sub CmdAnnuler_Click()
DlgChoixMutliple.Hide
End Sub

 

[Crazyo]

Pour André...

Tu as à moitié raison, je suis franco-belge! 🙂)

 

[andré]

Salut demi, (quand tu penses à la bière, c'est un compliment !).

Le VBA n'est pas ma tasse de thé.
Quelqu'un d'autre te donnera certainement un coup de main.

Dommage, mais je ne peux donner que ce que j'ai (c'est ce qui me différencie des politiciens).

Ândré.

 

[Ti]

normalement en mettant la propriété Multiselect de ta liste à MultiselectExtended, ça devrait marcher (mais je dis ça de mémoire)...

 

[Crazyo]

Oulala, je comprend pas! Désolé, tu peux developper ton idée? J'ai mis ListeClients.MultiSelectExtended à la place de ListeClients.MultiSelect, mais ça marche pô!