XL 2013 Mon fichier bug

Estysh à dit:

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.

Cliquez pour agrandir...

Estysh à dit:

Mon fichier est volumineux, je ne sais pas comment faire.

Cliquez pour agrandir...

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).

Cliquez pour agrandir...

Private Sub UserForm_Initialize()
ComboBox1.List = [maBase].Value
End Sub

JBARBE à dit:

Re,
ici :

Accueil de Cjoint.com

Le service des pièces jointes, CJoint.com est un service de partage de fichier gratuit pour partager vos documents dans vos courriels, sur les forums ou dans vos petites annonces.

www.cjoint.com

Si nécessaire le compressé !

Cliquez pour agrandir...

Staple1600 à dit:

Bonsoir le fil, Estych, JBARBE


Essaie ne pas utiliser RowSource mais ce qui suit ci-dessous
(en l'adaptant à ton fichier)

VB:

Private Sub UserForm_Initialize()
ComboBox1.List = [maBase].Value
End Sub

NB: [maBase] correspond à ma plage nommée.

PS: On ne joint jamais le fichier ORIGINAL (même par le biais de cjoint)

Cliquez pour agrandir...

Staple1600 à dit:

Bonsoir le fil, Estych, JBARBE


Essaie ne pas utiliser RowSource mais ce qui suit ci-dessous
(en l'adaptant à ton fichier)

VB:

Private Sub UserForm_Initialize()
ComboBox1.List = [maBase].Value
End Sub

NB: [maBase] correspond à ma plage nommée.

PS: On ne joint jamais le fichier ORIGINAL (même par le biais de cjoint)

Cliquez pour agrandir...

Staple1600 à dit:

Re

Tu as joint ton fichier original ou une copie?
(voir le message#5)
Comment s'appelle la zone nommée de ton fichier?

Cliquez pour agrandir...

Staple1600 à dit:

Re

Tu as joint ton fichier original ou une copie?
(voir le message#5)
Comment s'appelle la zone nommée de ton fichier?

Cliquez pour agrandir...

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

Staple1600 à dit:

Bonsoir le fil, Estych, JBARBE

Essaie ne pas utiliser RowSource mais ce qui suit ci-dessous
(en l'adaptant à ton fichier)

Cliquez pour agrandir...

Staple1600 à dit:

Re

Et donc tu as testé ceci alors ?
(sous réserve que ton ComboBox se nomme bien ComboBox1)

Enrichi (BBcode):

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

car j'avais précisé


•>JBARBE
Je n'ai pas été voir.
Pour moi, un fichier exemple ne devrait jamais être volumineux 😉

Cliquez pour agrandir...

JBARBE à dit:

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 !

Cliquez pour agrandir...

JBARBE à dit:

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 !

Cliquez pour agrandir...