Modification valeur dans Listbox

BERRACHED said

XLDnaute Accro

• 11 Octobre 2008

• #2

Re : Modification valeur dans Listbox

Salut yves03

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

Code:

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

 

Vote positif 0 Vote négatif

Y

yves03

XLDnaute Occasionnel

• 11 Octobre 2008

• #3

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 11 Octobre 2008

• #4

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+

 

Pièces jointes

• Yves03_Exemple.xls

  59.5 KB · Affichages: 98

Dernière modification par un modérateur: 11 Octobre 2008

Vote positif 0 Vote négatif

Y

yves03

XLDnaute Occasionnel

• 11 Octobre 2008

• #5

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 11 Octobre 2008

• #6

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 :

Code:

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+

 

Vote positif 0 Vote négatif

Y

yves03

XLDnaute Occasionnel

• 11 Octobre 2008

• #7

Re : Modification valeur dans Listbox

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

 

Vote positif 0 Vote négatif

BERRACHED said

XLDnaute Accro

• 11 Octobre 2008

• #8

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

 

Pièces jointes

• Exemple_ListboxHisto(V2).zip

  25.3 KB · Affichages: 51

Vote positif 0 Vote négatif

Y

yves03

XLDnaute Occasionnel

• 11 Octobre 2008

• #9

Re : Modification valeur dans Listbox

BERRACHED said à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif