problem additem et index

[akramenergie]

Bonjour mes amis
dans ma macro j'ai un bouton de modification parmi une list des données dans une listbox je choisi un élement et je le modifie mais je veut aprés la modif quil repréne le mm endroit dans ma list j'ai utiliser cette ligne de code mais ca marche pas qlq'un peut m'aider S.V.P sur ce bug


UserForm1.ListBox3.AddItem(UserForm9.TextBox1.Value,.ListIndex)


Merci

 

[BERRACHED said]

Re : problem additem et index

Bonjour

pourquoi ne met-tu pas un module qui remettera de l'ordre dans ton usf aprés modification

du genre:

Private Sub Ini()
Dim L As Integer

'trouve dernière ligne remplie
L = Sheets(F).Range("B65536").End(xlUp).Row

'mise à jour des données dans les combo...
With Me
.ComboBox1.RowSource = F & "!B3:B" & L
.ComboBox2.RowSource = F & "!C3:C" & L
.ComboBox3.RowSource = F & "!D3:D" & L
.ComboBox4.RowSource = F & "!E3:E" & L
.ComboBox5.RowSource = F & "!F3:F" & L

End With

End Sub

a titre d'exemple

Cordialement

 

[RENAUDER]

Re : problem additem et index

Bonjour,

Je n'ai jamais utilisé mais il y a une notion d'index avec Additem

expression.AddItem(Text, Index)

Si tu mémorises la position de l'item modifié, je pense que tu peux le remettre à la bonne place avec Index