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 : Sélectionner tout - Visualiser dans une fenêtre à part
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