Salut, je viens vers vous car j'ai un petit soucis
Quand j'effectue une recherche dans une feuille qui me tourne dans la listbox je souhaite pouvoir cliquer sur la ligne et modifier grâce a mes textbox en dessous, sauf quand je clique sur modifier sa modifie la première ligne de ma feuille et je souhaite que sa modifie la personne sélectionner.
Merci beaucoup pour votre aide !
Ps: le code ce trouve dans le formulaire rechercheig
Quand j'effectue une recherche dans une feuille qui me tourne dans la listbox je souhaite pouvoir cliquer sur la ligne et modifier grâce a mes textbox en dessous, sauf quand je clique sur modifier sa modifie la première ligne de ma feuille et je souhaite que sa modifie la personne sélectionner.
Merci beaucoup pour votre aide !
Ps: le code ce trouve dans le formulaire rechercheig
VB:
'Boutton pour modifier
Private Sub CommandButton4_Click()
Sheets("IG").Activate
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell = TxtB_1.Value 'Insère la donnée dans la liste
ActiveCell.Offset(0, 1).Value = TxtB_2
ActiveCell.Offset(0, 2).Value = TxtB_3
ActiveCell.Offset(0, 3).Value = TxtB_4
ActiveCell.Offset(0, 4).Value = TxtB_5
ActiveCell.Offset(0, 5).Value = TxtB_6
ActiveCell.Offset(0, 6).Value = TxtB_7
ActiveCell.Offset(0, 7).Value = TxtB_8
ActiveCell.Offset(0, 8).Value = TxtB_9.Value
ActiveCell.Offset(0, 9).Value = TxtB_10
ActiveCell.Offset(0, 10).Value = TxtB_11
MsgBox "Modification effectuée"
'Vider les champs après validation
TxtB_1 = ""
TxtB_2 = ""
TxtB_3 = ""
TxtB_4 = ""
TxtB_5 = ""
TxtB_6 = ""
TxtB_7 = ""
TxtB_8 = ""
TxtB_9 = ""
TxtB_10 = ""
TxtB_11 = ""
End Sub
Dernière édition: