XL 2013 Mon fichier bug

[Estysh]

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]

Re

•>Estysh
Merci de répondre à la question du message#12

 

[Estysh]

Re,
Le fichier s'est ouvert après un long moment !
Mais le VBA a un mot de passe !
Je propose qu'il nous fasse un copier-coller des macros posant problèmes !

Je ne sais vraiment pas quelles macros posé problème.
Tout fonctionnait très bien jusqu'à un moment.

 

[Estysh]

Re

•>Estysh
Merci de répondre à la question du message#12

Oui, j'ai testé mais ça me donne une erreur OBJET REQUIS.

 

[Estysh]

Cbonomclient.list = Nom_Client. Value

 

[Staple1600]

Re

Et qu'avais-je écris donc mon exemple ?

ComboBox1.List = [maBase].Value

Donc ton code aurait du être !

Cbonomclient.list = [Nom_Client].Value

 

[JBARBE]

Re,
Voici ce que j'obtiens pour ouvrir le fichier :
et le fichier ne s'est pas ouvert cette fois ci !

 

[Estysh]

Re

Et qu'avais-je écris donc mon exemple ?

Donc ton code aurait du être !

Cbonomclient.list = [Nom_Client].Value

Oui c'est ça, désolée. Ça me donne une erreur.
Je suis déboussolée.
Excusez moi, je ne comprends vraiment pas ce qui ce passe.
Après cette erreur d'automation, tous les combobox sont inaccessibles.

 

[JBARBE]

Re,
Bizarrement comme tout à l'heure il a besoin que j'ouvre un autre fichier excel pour qu'il s'ouvre !
Il a vraiment un problème ce fichier !

 

[Estysh]

Je modifie le fichier

Re,
Voici ce que j'obtiens pour ouvrir le fichier :
et le fichier ne s'est pas ouvert cette fois ci !
Regarde la pièce jointe 1061678

Je modifie le fichier tout à l'heure et je le renvoie.

 

[Estysh]

Re,
Bizarrement comme tout à l'heure il a besoin que j'ouvre un autre fichier excel pour qu'il s'ouvre !
Il a vraiment un problème ce fichier !

Re,
Bizarrement comme tout à l'heure il a besoin que j'ouvre un autre fichier excel pour qu'il s'ouvre !
Il a vraiment un problème ce fichier !

Une idée de ce que ça peut vouloir dire?

 

[JBARBE]

Une idée de ce que ça peut vouloir dire?

Re,
Pas vraiment, c'est la 1ere fois que je vois ça !

 

[JBARBE]

Re,
A ce que je vois, c'est une véritable usine à gaz ( des modules et des boites de dialogues énormément ) !
Certes, ça représente beaucoup de travail, mais dans un cas semblable un dysfonctionnement est peut-être à craindre !
Bonne soirée

 

[Staple1600]

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

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)

 

[JBARBE]

Re,
Ceci pose également problème

que je ne comprends pas (vbOkOnly+vbinformation )
Moi je mettrais par exemple pour vbOkOnly :
vReponse=MsgBox("Voulez-vous continuer?",vbOkCancel+ vbInformation)
if vReponse=vbYes then
XXXXXXXXXXXXXXXX
end if

A moins que je me trompe ! Dans ce cas au lieu de Msg il faut MsgBox

 

[Staple1600]

Re

JBARBE
C'est une façon de paramétrer un MsgBox
Les syntaxtes ci-dessous produisent le même résultat

End Sub
Sub Test()
Style = vbOKOnly + vbInformation
Title = "Objectif de la journée"
Msg = "Le chiffre d'affaires à réaliser aujourd'hui est: " & Format(1600, "# ### ### FCFA")
Answer = MsgBox(Msg, Style, Title)
End Sub
Sub Test_light()
Msg = "Le chiffre d'affaires à réaliser aujourd'hui est: " & Format(1600, "# ### ### FCFA")
Answer = MsgBox(Msg, 64, "Objectif de la journée")
End Sub