Autres Erreur d'exécution 1004

[chaelie2015]

Bonjour FORUM
J'ai un blocage quand je clic sur le bouton du formulaire.
"Erreur définie par l'application ou par objet"
Merci par avance

 

[TooFatBoy]

Bonjour,

Je crois que c'est le resize(0) qui pose problème.

Si tu mets une valeur en B2, ça devrait passer cette instruction, mais ça plantera sûrement un peu plus loin. 😉


[edit]
Ah non. Au temps pour moi : ça plante toujours sur la même instruction, mais avec un autre code.

Mais, ça ne plante plus si tu définis comme ça : Private TNoms, TDatRet
et que tu assignes comme ça : TNoms = Feuil1.[B2].Resize(Feuil1.[B1000000].End(xlUp).Row - 1).Value
Par contre, je ne sais pas si c'est la bonne méthode...
[/edit]

 

[chaelie2015]

Bonjour,

Je crois que c'est le resize(0) qui pose problème.

Si tu mets une valeur en B2, ça devrait passer cette instruction, mais ça plantera sûrement un peu plus loin. 😉


[edit]
Ah non. Au temps pour moi : ça plante toujours sur la même instruction, mais avec un autre code.

Mais, ça ne plante plus si tu définis comme ça : Private TNoms, TDatRet
et que tu assignes comme ça : TNoms = Feuil1.[B2].Resize(Feuil1.[B1000000].End(xlUp).Row - 1).Value
Par contre, je ne sais pas si c'est la bonne méthode...
[/edit]

Bonsoir Marcel32
Merci d'avoir répondu, mais ça na pas fonctionné.
a+

 

[TooFatBoy]

Bizarre, chez moi ça semble marcher.

Ca plante où maintenant ?

 

[chaelie2015]

Bizarre, chez moi ça semble marcher.

Ca plante où maintenant ?

Re
a ce niveau

Sub Afficher_formulaire()
usfFormulaire.Show
End Sub

ci joint le fichier

 

[TooFatBoy]

Cette fois c'est le Ubound qui n'est pas bon : il faut une valeur numérique et nom du texte. 😉

Si tu mets un deuxième contrôleur ça doit passer.

 

[chaelie2015]

Bonsoir marcel
Merci pour la réponse c'est parfait.
a+