Bonjour,
Nouveau sur le forum, débutant en développement VBA je me heurte à un problème qui pourtant me parait simple....
J'ai un formulaire de saisie et, sur clic d'un bouton, je veux proposer une extraction de ma base de données dans une feuille excel afin que l'utilisateur fasse son choix. Dès que ce choix est fait, je veux récupérer les informations pour valoriser des textboxs de mon formulaire et continuer la saisie.
Pour le moment, l'enchainement "début de saisie sur le formulaire, Clic sur le bouton, affichage de la feuille excel et retour au formulaire fonctionne, mais, je n'ai pas le temps de faire mon choix dans la feuille....
Si quelqu'un peut me dire comment suspendre l'enchainement des ordres programmés pour permettre de travailler dans la feuille excel, je suis preneur....
Le code mis au niveau de la feuille excel est le suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A4:A50")) Is Nothing Then
typapp = Cells(Target.Row, 2)
noapp = Cells(Target.Row, 3)
MsgBox "votre choix : " & typapp & " " & noapp
End If
End Sub
Le code au niveau du bouton du formulaire est le suivant :
Private Sub CommandButton1_Click()
Usersaisie.Hide
disponibilite
Usersaisie.Show
End Sub
le code de la macro "disponibilité" est le suivant :
Sheets("disponibilité").Select
MsgBox "on revient avec : " & noapp
TextBox18 = noapp
Sheets("Base_de_données").Select
Avec mes remerciements anticipés.
Nouveau sur le forum, débutant en développement VBA je me heurte à un problème qui pourtant me parait simple....
J'ai un formulaire de saisie et, sur clic d'un bouton, je veux proposer une extraction de ma base de données dans une feuille excel afin que l'utilisateur fasse son choix. Dès que ce choix est fait, je veux récupérer les informations pour valoriser des textboxs de mon formulaire et continuer la saisie.
Pour le moment, l'enchainement "début de saisie sur le formulaire, Clic sur le bouton, affichage de la feuille excel et retour au formulaire fonctionne, mais, je n'ai pas le temps de faire mon choix dans la feuille....
Si quelqu'un peut me dire comment suspendre l'enchainement des ordres programmés pour permettre de travailler dans la feuille excel, je suis preneur....
Le code mis au niveau de la feuille excel est le suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A4:A50")) Is Nothing Then
typapp = Cells(Target.Row, 2)
noapp = Cells(Target.Row, 3)
MsgBox "votre choix : " & typapp & " " & noapp
End If
End Sub
Le code au niveau du bouton du formulaire est le suivant :
Private Sub CommandButton1_Click()
Usersaisie.Hide
disponibilite
Usersaisie.Show
End Sub
le code de la macro "disponibilité" est le suivant :
Sheets("disponibilité").Select
MsgBox "on revient avec : " & noapp
TextBox18 = noapp
Sheets("Base_de_données").Select
Avec mes remerciements anticipés.
Pièces jointes
Dernière édition: