problème avec double listbox

[jtitin]

bonjour à tous

j'ai une listbox1 qui quant je clic sur un item m'affiche ou pas une checkbox si il y a un "X" sur la ligne de la sélection
j'ai une listbox2 qui me filtre enquelque sorte ma listbox1
je voudrais que quant je clic dans la listbox2 le résultat soit le même que la listbox1, c'est à dire afficher la checkbox si il y à un "X" sur la ligne

je vous met un fichier joint peut être plus explissite


merci

 

[alexga78]

Re : problème avec double listbox

bonjour jtitin,
un essai

Private Sub ListBox2_Click()
If Application.VLookup(ListBox2.List(ListBox2.ListIndex, 0), Sheets("Base").Range("B1:E65000"), 4, False) = "X" Then
With CheckBox2
.Visible = True
.Caption = "Réservé"
.Value = False
.BackColor = &HFF&
End With
End If
End Sub

pour le reste du code ListBox2_Click, je te laisse faire car il me faudrait plus d'explications.

Bonne journée

 

[Robert]

Re : problème avec double listbox

Bonjour Jtitin, Alexga, bonjour le forum,

je me suis permis une autre approche...

 

[jtitin]

Re : problème avec double listbox

merci alexga78 pour ta réponse
mais cela ne fonctionne pas comme il faut
si je clic dans la listbox2 et qu'il y a un "X" la checkbox apparait mais rste pour les autres item de la listbox2

merci également à Robert c'est fonctionnel, mais je préfairerais rester sur la ma présentation avec utilisation ou pas de la listbox2

s'il y a moyen de modifier le code de alexga78 pour qu'il fonctionne bien ( afficher uniquement la checkbox1 que si la ligne comporte un "X")

merci encore

 

[Dull]

Re : problème avec double listbox

Salut Jtitin, Alexga, Robert 🙂 le forum,

Peut-être comme cela

Voir Pièce Jointe

Bonne Journée

 

[jtitin]

Re : problème avec double listbox

merci Dull

merci à tous d'avoir réglé mon problème

merci