XL 2013 Mon fichier bug

Estysh · 7 Avril 2020

Bonjour !
Je ne suis pas une pro du vba.
J'ai un fichier qui me permet de générer des factures, reçus, etc.
J'ai un userform qui est rempli pour générer les reçus. Lorsque je lance l'userform, j'ai une erreur lorsque je clique dans le combobox pour renseigner le nom du client (la rowsource est une zone nommée de mon fichier).
L'erreur est ERREUR D'AUTOMATION L'OBJET INVOQUÉ S'EST DÉCONNECTÉ DE SES CLIENTS.
Seul le bouton "Fin" est activé le bouton "Débogage " est désactivé.

Quand je clique sur fin, après tous mes combobox sont vides; les combobox de tous les userforms de mon fichier.

Staple1600 · 7 Avril 2020

Re

La précédente modif, c'était pour l'Userform: FrmCommande
Donc pour FrmRecu
Voici le code à ajouter

VB:

Private Sub UserForm_Initialize()
CboNomClient.List = [Nom_Client].Value
End Sub

NB: Toujours en prenant soin de supprimer le contenu de la propriété RowSource au préalable.

Estysh · 7 Avril 2020

Staple1600 à dit:
Re

J'ai réussi à ouvrir le fichier sans problème.
Maintenant la question est:
Quel userform pose problème?
(il y en a 7 !!!!)

Frmreçu

Estysh · 7 Avril 2020

Staple1600 à dit:
Re

•>Estych
Donc si c'est l'userform nommé:FrmCommande
1) Efface le contenu dans la propriété RowSource
(fenêtre Propriétés dans VBE)
2) Remplace le code le l'initialise par celui-ci

VB:

Private Sub UserForm_Initialize() TxtNuméro.Value = Format(Sheets("Bon de commande").Range("D10") + 1, 0) BtnEnvoyer.Enabled = False: TxtDate = CDate(Date): LblMatière.Visible = False LblNomClient.Visible = False: LblPrescription.Visible = False LblFournisseur.Visible = False: LblTypeVerres.Visible = False CboNomClient.Visible = False: CboNomClient.List = [Nom_Client].Value TxtOD.Visible = False: TxtOG.Visible = False TxtFournisseur.Visible = False: TxtTypeVerre.Visible = False TxtVerres.Visible = False: TxtMatière.Visible = False Sheets("Bon de commande").Range("A7,D9,A13:B15,D13:D15,C13:C18,C21") = "" End Sub

NB: Pour faire ces modifs, ouvre ton classeur sans activer les macros (cela évitera le plantage à l'ouverture)

Ok. J'essaye.
J'ai l'impression que ça bug car le fichier est lourd, votre solution me permettra l'alleger.

JBARBE · 7 Avril 2020

Estysh à dit:
Ok. J'essaye.
J'ai l'impression que ça bug car le fichier est lourd, votre solution me permettra l'alleger.

Re,
Si tu as un ordi récent et suffisamment puissant ( ce n'est pas le cas pour moi ), il ne devrait pas avoir de problème !
Ce n'est que de la bureautique !

Staple1600 · 7 Avril 2020

Re

La précédente modif, c'était pour l'Userform: FrmCommande
Donc pour FrmRecu
Voici le code à ajouter

VB:

Private Sub UserForm_Initialize()
CboNomClient.List = [Nom_Client].Value
End Sub

NB: Toujours en prenant soin de supprimer le contenu de la propriété RowSource au préalable.

Estysh · 7 Avril 2020

Staple1600 à dit:
Re

La précédente modif, c'était pour l'Userform: FrmCommande
Donc pour FrmRecu
Voici le code à ajouter

VB:

Private Sub UserForm_Initialize() CboNomClient.List = [Nom_Client].Value End Sub

NB: Toujours en prenant soin de supprimer le contenu de la propriété RowSource au préalable.

Oui j'ai fait.
Et j'ai fait la modification pour toutes mes combobox.
Maintenant ça marche.
Merci infiniment.

XL 2013 Mon fichier bug

Estysh

XLDnaute Nouveau

Staple1600

Estysh

XLDnaute Nouveau

Estysh

XLDnaute Nouveau

JBARBE

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Estysh

XLDnaute Nouveau

Discussions similaires