Je connais rien en vba mais je me débrouille un peut J'ai un programme que je me suis fait et qui fonctionne super pour mon activité donc un programme de vente, facture etc..
Je suis entrain de travailler sur un userforme qui m'afficherais une liste de mes produits (il en à pas beaucoup) afin de cliquez sur l'un d'entre eux pour qu'il me le copie quelque part.. Bref j'en suis qu'au début.
J'en suis arriver à :
J'ai donc crée un bouton sur ma feuille "Facture" pour ouvrir mon userforme voici le code :
Sub Ellipse1_Cliquer() UserForm1.Show End Sub
Et le code de la listbox dans l'userforme pour m'afficher les infos de mes produits qui est sur la page "Tarification"
Private Sub ListBox1_Click() Sub userform_initialize() Sheets("Tarification" ).Select ListBox1.RowSource = "B5:B300" UserForm1.Show Unload Me End Sub
Cela fonctionne +/- C'est à dire que quand je clic sur mon bouton, ok il ouvre l'userforme et m'affiche les données tels inscrit dans le code. mais quand je clic sur la "croix" pour fermer l'userforme il m'affiche une erreur : erreur d’exécution 91 variable Objet ou Variable de bloc Whit non définie
Et la j'ai bon chercher je comprend pas
Quand je clic sur débogage il me souligne en jaune la phrase : UserForm1.Show du code de mon bouton
et second problème : quand je clic sur le bouton de l'userforme il change de feuille (vue en arrière plan) et va sur la feuille Tarification, serais t'il possible qu'il reste bien sur la feuille "Facture" ?
Marsh Posté le 20-06-2018 à 10:01:13
Bonjour,
Je connais rien en vba mais je me débrouille un peut
J'ai un programme que je me suis fait et qui fonctionne super pour mon activité donc un programme de vente, facture etc..
Je suis entrain de travailler sur un userforme qui m'afficherais une liste de mes produits (il en à pas beaucoup)
afin de cliquez sur l'un d'entre eux pour qu'il me le copie quelque part..
Bref j'en suis qu'au début.
J'en suis arriver à :
J'ai donc crée un bouton sur ma feuille "Facture" pour ouvrir mon userforme
voici le code :
Sub Ellipse1_Cliquer()
UserForm1.Show
End Sub
Et le code de la listbox dans l'userforme pour m'afficher les infos de mes produits qui est sur la page "Tarification"
Private Sub ListBox1_Click()
Sub userform_initialize()
Sheets("Tarification" ).Select
ListBox1.RowSource = "B5:B300"
UserForm1.Show
Unload Me
End Sub
Cela fonctionne +/-
C'est à dire que quand je clic sur mon bouton, ok il ouvre l'userforme et m'affiche les données tels inscrit dans le code.
mais quand je clic sur la "croix" pour fermer l'userforme il m'affiche une erreur :
erreur d’exécution 91
variable Objet ou Variable de bloc Whit non définie
Et la j'ai bon chercher je comprend pas
Quand je clic sur débogage il me souligne en jaune la phrase : UserForm1.Show du code de mon bouton
et second problème : quand je clic sur le bouton de l'userforme il change de feuille (vue en arrière plan) et va sur la feuille Tarification, serais t'il possible qu'il reste bien sur la feuille "Facture" ?
MERCI