listbox et textbox

jammy17

XLDnaute Occasionnel
bonjour le forum

Voila mon probleme,

j'ai un fichier excel que je filtre a l'aide d'une combobox; les donnees ainsi filtrees apparaissent dans une listbox.
quand je clique dans la listbox sur une donnee de mon choix, celle ci increment differents textbox.....jusque la aucun probléme.

Maintenant, j'aimerais pouvoir effectuer des modifications dans la listbox via mes textbox, et voir apparaitre ces modifications dans mon fichier excel.....La je cale et n'arrive plus a avancer, alors si quelqu'un pouvait m'eclairer sur le code a utiliser, cela serait genial

amicalement........jammy
[file name=essaisexemple1_20051214105958.zip size=49722]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaisexemple1_20051214105958.zip[/file]

Message édité par: jammy17, à: 14/12/2005 11:00
 

Pièces jointes

  • essaisexemple1_20051214105958.zip
    48.6 KB · Affichages: 53

jammy17

XLDnaute Occasionnel
ENCORE UN PTIT SOUCI MAIS CELA me semble pas mal


la ligne modifier correspond maintenant bien a l'element selectionne dans la listbox, mais quand je clique sur modifier cela increment systematiquement le premiere ligne, voici le code que j'ai mis/

Private Sub CommandButton2_Click() 'modifier
i = ComboBox1.ListIndex
Sheets('SAISIE').Range('E' & i + 2) = valeur1.Value
For Y = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(Y) = True Then
ListBox1.Column(0, Y) = valeur1.Value
ListBox1.Column(2, Y) = valeur2.Value

End If
Next

End Sub

MMMUMH........

End Sub
 

jammy17

XLDnaute Occasionnel
AU SECOURS!!!!!


J'ESSAYE TOUS LES MOYENS QUE JE CONNAISSENT....
MAIS RIEN A FAIRE.
les donnees modifiee dans la textbox apparaissent bien dans la listbox mais pas a l'endroit voulu du fichier excel.
voila le code actuel:
Private Sub CommandButton2_Click() 'modifier
i = ComboBox1.ListIndex
For Y = 1 To ListBox1.ListCount - 1
If ListBox1.Selected(Y) = True Then
ListBox1.Column(0, Y) = valeur1.Value
ListBox1.Column(2, Y) = valeur2.Value
Sheets('SAISIE').Range('E' & i + 2) = valeur1.Value
End If
Next

End Sub
il me semble que tout le probleme reside dans las lignes suivantes de mon code/
i = ComboBox1.ListIndex
Sheets('SAISIE').Range('E' & i + 2)
mais bon.......

en fait je voudrais lui dire de coller la donnee modifiee (valeur1) a l'endroit sur la feuille excel correspondant la ligne
ListBox1.Column(0, Y) = valeur1.Value

MAIS.....je ne sais comment faire!!!
 

Discussions similaires

Statistiques des forums

Discussions
311 730
Messages
2 081 991
Membres
101 856
dernier inscrit
Marina40