Comment modifier des données dans un tableau structuré via une listbox?
Bonjour à vous.
Je laisse ce code que j'ai élaboré grâce à mon autodidacte. Au début j'avais du mal à modifier une base de données sur une feuille, mais grâce au forum; donc un grand merci à tous en particulier à Patrick Toulon, Boigontier, pierre fauconnier, j'ai pu élaborer plusieurs applications qui servent à mes collègues. Aujourd'hui, je m'en sors largement.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Sub modifier ()
Dim j%,i%,y%,f as worksheet
Set f=sheets("BD")
J= f.cells(Rows.Count,1).End(Xlup).Row ' on part de la dernière ligne
For i = 0 to listbox1.ListCount -1'boucle sur les items de la listbox
For y= i to j ' boucle en correspondance avec le tableau et la listbox
If Listbox1.Selected(y) Then 'si listbox sélectionné alors on modifie les éléments de la base de données
f. Range("a" & y)=Textbox1
f.Range("b" & y)= Textbox2
End if
Next
Next
End sub |
