Erreur d'execution type 13 sous Excel 2010 "Résolue"

[Myst]

Bonjour j'ai un fichier ci dessous qui fonctionne sans problème sous excel 2007 mais lorsque je l'ouvre sous excel 2010 il bug sur l'ouverture de l'UserForm2
si quelqu'un a la patience de regarder ,par avance merci

 

[camarchepas]

Re : Erreur d'execution type 13 sous Excel 2010

Bonsoir ,

Ok , en fait dans le module du userform ,

tu utilises un

userform1_initialize .

et non

il faut utiliser userform_initialize

voilà, voilà

 

[Myst]

Re : Erreur d'execution type 13 sous Excel 2010

Merci a toi
je vais tester

 

[Myst]

Re : Erreur d'execution type 13 sous Excel 2010

Après test ça fonctionne pour l'UserForm 2 mais plus pour le 1
Je doit avoir une erreur dans le module
Private Sub UserForm_Initialize()
mais je ne sais pas lequel ?

 

[camarchepas]

Re : Erreur d'execution type 13 sous Excel 2010

Re ,

Oui , là , il y a un problème supplémentaire , il y a 2 initialize

Private Sub UserForm1_Initialize()
Dim i As Integer
  i = 1
   Do While Worksheets("LISTES").Cells(i, 1) <> ""
     MACHINES.AddItem Worksheets("LISTES").Cells(i, 1)
     i = i + 1
   Loop
End Sub


Private Sub UserForm_Initialize()
  TextBox1.Value = Date 'Inserer la date du jour dans textbox1
End Sub

il faut donc faire comme ceci

Private Sub UserForm_Initialize()
Dim i As Integer
  i = 1
   Do While Worksheets("LISTES").Cells(i, 1) <> ""
     MACHINES.AddItem Worksheets("LISTES").Cells(i, 1)
     i = i + 1
   Loop
  TextBox1.Value = Date 'Inserer la date du jour dans textbox1
End Sub

 

[Myst]

Re : Erreur d'execution type 13 sous Excel 2010

J'obtiens un message d'erreur
Erreur d'exécution '424'
Objet requis
Pour l'userform1 et 2
A la base je suis partie d'un fichier contenant un seul userform qui fonctionnait parfaitement puis j'ai ajouté une page et l'userfom2 associé provenant d'un autre fichier en apportent quelques modifications

 

[Staple1600]

Re : Erreur d'execution type 13 sous Excel 2010

Bonjour à, tous

Myst
Dans ton fichier, le comboBox ne s'appelle pas MACHINES mais ComboBox2
Donc change son nom dans la fenêtre Propriétés en MACHINES
Supprimes également dans le Module1 la procédure (qui n'a rien à faire là 😉) UserForm_Initialize

J'ai fait ces modifications (en plus de celles indiques par camarchepas que je salue au passage 😉) et je n'ai plus ce message d'erreur.

PS: Myst, c'était un super jeu à l'époque 😉

 

[Myst]

Re : Erreur d'execution type 13 sous Excel 2010

bonjour
Je viens de faire les modifications et toujours des bugs
Pour que les useform s'ouvrent je dois mettre
userForm1 Initialize()
Et si je met
UserForm Initialize()
Alors je retrouve l'erreur '424'
Je devient dingue avec ce fichier

 

[Staple1600]

Re : Erreur d'execution type 13 sous Excel 2010

Re


Tu n'as pas fait les correction adéquates

• Il doit n'y avoir que deux procédures Private Sub UserForm_Initialize()
Une dans chaque Userform
(et pas ailleurs)

• Ensuite il suffit de renommer le Combobox2 en MACHINES.

C'est ce que j'ai fait sur ta PJ et je n'ai pas de message d'erreur.

Donc si cela ne marche pas chez toi c'est que tu n'as pas suivi mes indications et celles de camarchepas.

EDITION: Mea culpa, j'ai oublié de te préciser qu'il fallait également supprimer ce qui se trouve dans la propriété Rowsource de la ComboBox
(puisque le Combo est alimenté en VBA par

Do While Worksheets("LISTES").Cells(i, 1) <> ""
     MACHINES.AddItem Worksheets("LISTES").Cells(i, 1)
     i = i + 1
   Loop

PS: Je viens de refaire le test et avec toutes ces modifs faites, normalement tu ne dois plus avoir d'erreur

 

[Staple1600]

Re : Erreur d'execution type 13 sous Excel 2010

Suite...

Juste pour que tu vois que cela fonctionne 😉

 

[camarchepas]

Re : Erreur d'execution type 13 sous Excel 2010

Bonjour ,

@Staple : Et oui , bon je sais pas pourquoi mais la combobox2 était récalcitrante , je l'ai donc supprimée puis recréé .


@ Myst :

Allez , voici le fichier en Xlsm

 

[Staple1600]

Re : Erreur d'execution type 13 sous Excel 2010

Bonjour camarchepas


camarchepas
Tu confirmes que si on fait tes modifications puis les miennes, cela fonctionne, non ?
On a plus de message d'erreur 😉

 

[Myst]

Re : Erreur d'execution type 13 sous Excel 2010

Un grand merçi a vous pour l'aide apportée
Le fichier fonctionnent parfaitement
Le site est cool et vous aussi
Encore merçi

 

[camarchepas]

Re : Erreur d'execution type 13 sous Excel 2010

Bonjour Staple ,

Alors , je confirme ; et Myst aussi d'ailleurs,

tout marche parfaitement, grâce à nos analyses et solutions combinées .

@ Myst , si tu pouvais sur le 1er post de cette discussion Ecrire Résolue en fin de titre.

Merci

 

[Staple1600]

Re : Erreur d'execution type 13 sous Excel 2010

Re

.
@ Myst , si tu pouvais sur le 1er post de cette discussion Ecrire Résolue en fin de titre.

Pourquoi faire?
Ce n'est pas une obligation, et de mémoire il me semble que DavidXLD est plutôt contre 😉
Bien que résolue, une question peut toujours se voir proposer des solutions alternatives et le fil peut continuer à vivre après sa résolution.
Mettre RESOLU dans le titre limite cette possibilité (c'est juste mon avis personnel)

EDITION : En 2005 déjà, on évoquait ce sujet
Et David nous répondait

Salut tous!!
Pour en revenir à la proposition de possibilité de mettre [résolu] dans le sujet.
Ceci n'est pas aujourd'hui dans le standard du composant du forum et demandrait certainement des développement spécifiques très particuliers.
Donc ça ne va pas pouvoir être d'actualité pour l'instant.

PAr contre il y a de grandes chances que cette évolution fasse parti intégrante d'un version future du forum (sur lequel je n'ai pas la main).

Message édité par: XldAdmin1, à: 26/08/2005 17:59

Mais finalement plus tard, j'ai lu une autre opinion de David sur le sujet
(encore faut-il que je la retrouve 😉 )