Modification valeur dans Listbox

[yves03]

Bonjour à tous,
J'ai un fichier de stock dans lequel je peux lancer une listbox par un bouton sur la feuille, et qui me permet de lister mes commandes par date.
J'aurais aimé pouvoir cliquer sur une ligne dans la Listbox, modifié la quantité et qu'elle aille s'inscrire dans la bonne ligne du fichier
Est ce possible ?
Je vous joint un petit bout de mon fichier, ce sera plus simple.
Merci d'avance

 

[BERRACHED said]

Re : Modification valeur dans Listbox

Salut yves03

Essayé ce code sur l'évènement dblClick du listbox

Public Function NewItem(List As ListBox)
Dim R As String
R = InputBox("Saisissez la nouvelle valeur :", "Nouvelle valeur")
List.List(List.ListIndex) = R
End Function

Private Sub List1_DblClick()
'Comment l'utiliser:
'Ne surtout pas mettre de parentheses sinon ça marche pas
NewItem List1
End Sub

Cordialement

 

[yves03]

Re : Modification valeur dans Listbox

Merci de ta reponse, mais je n'arrive pas a faire fonctionner ton code, je le met dans :

private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Mais ça ne fonctionne pas
Peux tu essayer avec mon fichier joint ?
Merci

 

[Compte Supprimé 979]

Re : Modification valeur dans Listbox

Bonjour à tous,

Said, il serait sympa de mettre les réponses qui correspondent au besoin de la personne qui pose les questions 😕
Il ne sont pas tous super bon en VBA 🙂

Yves03,
tu trouveras ci-joint ton fichier modifié avec ce que tu souhaites 😉

A+

 

[yves03]

Re : Modification valeur dans Listbox

Merci BrunoM45
Ca fonctionne tres bien, par contre quand je fait un tri sur les dates avec le Combobox de l'userform, ça ne fonctionne plus, ça n'ecrit pas la valeur sur la bonne ligne.
Si tu avais une idee se serait Super
Merci d'avance

 

[Compte Supprimé 979]

Re : Modification valeur dans Listbox

Re,

Désolé Yves, je n'ai pas vu que tu faisais un filtre sur les dates

Comme dans ton code, tu enregistres le numéro de la ligne, il faut utiliser le code suivant :

Private Sub ListBoxHisto_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Dim Qt, LigLB As Long
  ' Récupérer le numéro de la ligne dans la colonne 6 de la ListeBox
  LigLB = Me.ListBoxHisto.List(Me.ListBoxHisto.ListIndex, 6)
  Qt = InputBox("Saisissez la valeur à commander :", "Nouvelle valeur")
  If Qt > 0 Or Qt <> "" Then
    Sheets("Stock").Range("H" & LigLB).Value = Qt
  End If
End Sub

A+

 

[yves03]

Re : Modification valeur dans Listbox

Merci beaucoup de ton aide, ça fonctionne tres bien.
Merci encore
😉

 

[BERRACHED said]

Re : Modification valeur dans Listbox

Salut,Yves,BrunoM45

je m'excuse de l'erreur qui s'est glissé et tu le sais bien Bruno que je le fait pas volontairement depuis tout a l'heur je galère pour lui trouver une solution

une autre ébauche cette fois ci avec le click-droit de la souris en ce positionnant sur l'item code de Bruno

Cordialement

 

[yves03]

Re : Modification valeur dans Listbox

Salut,Yves,BrunoM45

je m'excuse de l'erreur qui s'est glissé et tu le sais bien Bruno que je le fait pas volontairement depuis tout a l'heur je galère pour lui trouver une solution

une autre ébauche cette fois ci avec le click-droit de la souris en ce positionnant sur l'item code de Bruno

Cordialement

Ce n'est pas grave Said, merci de ton aide.

J'ai une autre question, ma listbox se charge avec la totalite de mon stock et vu qu'il y en a beaucoup c'est un peu long, a chaque fois que je rafraichit la listbox.
Est il possible de ne charger dans la listbox que les lignes ou la date est presente en colonne R du fichier.
Merci beaucoup