Erreur d'execution 13

[kero_67]

Bonjour à tous,

J'ai une erreur d'exécution 13 : incompatibilité de type.
Pour un bout de code simple qui me permet d'ouvir mon userform :

Sub Aut😵pen()
Load UserForm1 ---> partie souligné en jaune par VB
UserForm1.Show
End Sub

Dans une ancienne version de mon fichier, j'ai le même morceau de code et il ne pose pas de problème.
J'espère que l'un de vous pourra m'aider, je n'arrive pas à mettre le fichier en pièce jointe il fait 100ko même compressé.
Merci d'avance et bonne journée

 

[Banzai64]

Re : Erreur d'execution 13

Bonjour

Faut que je réfléchisse avant ..... Grrrr

 

[pierrejean]

Re : Erreur d'execution 13

Bonjour kero 67

Il nous en faudrait plus
L'erreur peut très bien se situer dans le Userform1_Initialyze
Essaie de poster une copie de ton fichier ne conservant que l'essentiel du problème

Bing Salut Banzai

 

[Banzai64]

Re : Erreur d'execution 13

bonjour pierrejean

Souvent ce que j'avais marqué c'était quand l'erreur était sur Userform1.Show mais pas sur Load Userform1

Pour cette raison que j'ai enlevé mon message

 

[kero_67]

Re : Erreur d'execution 13

Bonjour,

J'ai supprimé beaucoup de choses du fichier (des modules, un USF) j'espère que ce qui reste permettra quand même la compréhension 😱.

 

[pierrejean]

Re : Erreur d'execution 13

Re

En l'etat , je te suggere cette modification dans Userform1_initialize

.....
If .Cells(65536, 2).End(xlUp).Row > 1 Then
Ligne = .Cells(65536, 2).End(xlUp).Row
.....

Avec une reflexion sur la definition de Ligne

 

[kero_67]

Re : Erreur d'execution 13

Merci beaucoup PierreJean !
Ce problème est résolu 😉 maintenant je vais travailler sur le reste 😛

Bonne après-midi