XL 2019 VBA Modifier a partir d'une listbox

  • Initiateur de la discussion Initiateur de la discussion mahaut57
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mahaut57

XLDnaute Nouveau
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
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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
3 K
Réponses
3
Affichages
1 K
Réponses
8
Affichages
2 K
Retour