RUN TIME ERROR 13

[WISKY]

Bonsoir à tous et à toutes,

Est-ce que quelqu'un pourrait m'aider à trouver l'erreur 'Run time error 13......Mismatch' dans mon fichier.
Voilà, j'ai crée un fichier.xls avec un userform3
qui lui doit me renvoyer un tableau de board de 3 feuilles de calcul dès que je click sur un icone que j'ai placé dans ma barre à outils. En fait, il doit me renvoyer le resultat de plusieurs cellules.

J'ai placé le code suivant dans usf3:

Private sub userform_initialize
textbox1 = Format(Sheets('Feuille vente').Range('AA61') '#,0.00 ')
etc
etc

End sub

Dans un module VBA j'ai placé le code suivant:

Sub commandbutton100_Click()
userform3.show
End sub

Malgré ça j'ai toujours mon message d'erreur......

Je n'ai pas joint de fichier car il est déjà trop lourd +- 4Mega.

Merci pour votre aide.

Bonne soirée à tous, et à toutes.

 

[Charly2]

Bonsoir Wisky, bonsoir à toutes et à tous

Essaie ceci :

Dans la barre d'outils Boîte à outils contrôles, tu cliques sur le mode création (icone avec règle, équerre et crayon), puis tu 'cliques droit' sur ton CommandButton et dans Propriétés, tu mets : TakefocusOnClick à False.

Tiens-nous au courant...

A+

 

[Carlos Pereira]

Bonjour à tous,

j'ai oublié de préciser que mon button d'appel de l'userform est un button que j'ai placé dans la barre toolbox d'excel.( Donc il n'a pas de propriétés ).