XL 2016 Exécuter une procédure dans une autre procédure

donpopo

XLDnaute Occasionnel
Bonjour le forum,

Je cherche depuis quelques moments comment exécuter une procédure au milieu d'une procédure en cours. j'ai trouvé des exemples, mais je n'arrive pas à les appliquer à mon programme.
J'ai un userform qui me permet de sélectionner et afficher un locataire au moyen d'une liste déroulante avec les textbox inaccessibles. (textbox.enabled=false)

J'ai une procédure pour modifier la personne. Si je clique sur le bouton "modifier" de mon userform, un bouton OK apparaît sur le userform. J'ai alors une procédure Bout_OK_click() qui doit me permettre d'encoder les changements.

Cela ne fonctionne pas. Voici mes deux procédures.

Private Sub Bout_modif_loc_Click()
Bout_OK.Visible = True
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
TextBox4.Enabled = True
TextBox5.Enabled = True
TextBox6.Enabled = True
Call Bout_Ok_click Là, cela bloque!
If Choix = 1 Then
If MsgBox("Etes-vous certain de vouloir modifier ce locataire?" & Chr(10) & "Pour changer de locataire, bouton SUPPRIMER et créer nouveau !", vbYesNo) = vbYes Then
Bout_OK.Visible = False
Sheets("Locataires").Cells(Nr_Lign, 2).Value = TextBox1.Value
Sheets("Locataires").Cells(Nr_Lign, 3).Value = TextBox2.Value
Sheets("Locataires").Cells(Nr_Lign, 4).Value = TextBox3.Value
Sheets("Locataires").Cells(Nr_Lign, 5).Value = TextBox4.Value
Sheets("Locataires").Cells(Nr_Lign, 6).Value = TextBox5.Value
Sheets("Locataires").Cells(Nr_Lign, 7).Value = TextBox6.Value
Exit Sub
Else
TextBox1.Value = Sheets("Locataires").Cells(Nr_Lign, 2)
TextBox2.Value = Sheets("Locataires").Cells(Nr_Lign, 3)
TextBox3.Value = Sheets("Locataires").Cells(Nr_Lign, 4)
TextBox4.Value = Sheets("Locataires").Cells(Nr_Lign, 5)
TextBox5.Value = Sheets("Locataires").Cells(Nr_Lign, 6)
TextBox6.Value = Sheets("Locataires").Cells(Nr_Lign, 7)
Exit Sub
End If
End If
End Sub

Private Sub Bout_Ok_click()
Choix = 1 Choix est déclaré en Public
End Sub

Quelqu'un aurait-il une solution à ce problème?
Merci d'avance,
Donpopo
 

Discussions similaires