[résolu] Double-clic sur ligne dans list box

[Cougar]

Bonjour le forum,

Est-il possible de faire un simple ou un double-clic dans un et que ce clic, donc cette selection, il y ait un X qui s'inscrit dans une cellule. La reference de cette cellule est en function d'une date d'un combobox.

Je m'explique. Je sélectionne un date pour voir tout le personnel disponible. Si je clic sur le #5, un «X» ira s'inscrire sous la date sélectionnée et à côté du nom de la personne choisie pour que cette personne n'apparaisse plus comme disponible pour cette date.

Voir le fichier joint.

Merci à laetitia90 qui a écrit se code mais comme presque toujours, on veut souvent en rajouter.

 

[CHALET53]

Re : Double-clic sur ligne dans list box

Bonjour,

rajoute ce pgm dans le code du userform. Ensuite, click sur une ligne de la listbox

Private Sub ListBox1_Click()
a = ComboBox1.ListIndex + 4
Set Plage = Range("H2:AUC2")
dt = CDate(ComboBox1)
With Plage
Set c = .Find(CDate(ComboBox1))
If Not c Is Nothing Then
adresse = c.Address
numero = c.Column
End If
End With
If adresse = "" Then MsgBox ("Date non trouvée"): Exit Sub
Cells(a, numero) = "X"
End Sub

a+

 

[Cougar]

Re : Double-clic sur ligne dans list box

Bonsoir Chalet53,

J'ai bien ajouté le tout au userform mais malheureusement cela ne fonctionne pas chez moi. 🙁

Merci

 

[CHALET53]

Re : Double-clic sur ligne dans list box

Bonjour,

Un essai
Nécessité de gérer dans la listbox1 du numéro de ligne

a+

 

[Cougar]

Re : Double-clic sur ligne dans list box

Bonjour Chalet53,

Fonctionnel à 100%.

Une autre question. 😉

Est-il possible qu'après le clique, la ligne disparaisse du listbox (cette personne n'étant plus disponible, elle ne doit plus apparaitre dans la liste).

Merci pour ton aide

 

[CHALET53]

Re : Double-clic sur ligne dans list box

Re,

Normalement, il y a plus simple (je ne retrouve pas)

a+

 

[Cougar]

Re : Double-clic sur ligne dans list box

Bonjour Chalet53,

C'est très bien pour moi.

Merci beaucoup pour ton aide.

 

[CHALET53]

Re : [résolu] Double-clic sur ligne dans list box

Re,

Peut-être mieux ainsi

a+

 

[laetitia90]

Re : [résolu] Double-clic sur ligne dans list box

bonjour tous 🙂🙂
on peut egalement exploiter le tablo rajouter une colonne virtuel w dans l'exemple qui nous donne row apres on utilise seulement listindex de la combo & listox pour trouver la bonne cell

 

[Cougar]

Re : [résolu] Double-clic sur ligne dans list box

Bonjour à tous,

Laeticia90, ton code fonctionne bien mais il met un X sur 2 lignes consecutives. 🙁

Merci

 

[Cougar]

Re : [résolu] Double-clic sur ligne dans list box

Bonjours à tous,

Effectivement c'est mieux ainsi puisque le nom disparait de la liste.

Merci

 

[laetitia90]

Re : [résolu] Double-clic sur ligne dans list box

re,🙂
normal j'ai pas mis au bon endroit.... marche dans le double click ... plus logique on selectionne puis on deselectionne avec double click

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 Cells(ListBox1.List(ListBox1.ListIndex, 7), ComboBox1.ListIndex + 8) = "x"
 ListBox1.RemoveItem (ListBox1.ListIndex)
End Sub

 

[Cougar]

Re : [résolu] Double-clic sur ligne dans list box

Bonjour à tous,
Effectivement, le tout fonctionne très bien maintenant.
Merci