Discussion :

[ludojojo]

Bonjour,
j'ai un problème avec une macro, je l'ai créée sur un Pc qui me sert à la programmation en générale.
Lorsque je l'exporte pour l'installer sur un autre Pc, celle si ne fonctionne plus!
Je ne comprend pas lors de l'exécution j'ai un message d'erreur qui s'affiche avec :
-erreur d'exécution '6'
-Dépacement de capacité
et lorsque je click sur débeugage, il m'indique que l'erreur provient de mon module et plus précisément de la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm1.Show

Je suis complètement perdu et je n'arrive pas à savoir d'où vien cette erreur.

Je précise que la macro fonctionne très bien sur un autre PC et sur le PC ou elle à été créée à l'origine...

Merci par avance pour votre aide...

[ouskel'n'or]

As-tu une ligne Load Userform1 qui précède la ligne userform1.show ?
En faisant du pas à pas, tu peux peut-être trouver la source de l'erreur dans l'userform lui-même. Si elle provient du code se trouvant dans l'userform, je ne connais pas d'autre moyen ou encore en déplaçant un point d'arrêt dans le code jusqu'à celui qui provoque l'erreur.
Tu dis
A+

[ludojojo]

Non je n'ai pas de ligne contenant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Load Userform1

voici mon module complet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Sub Ajout_Entree()
    Sheets("Par chanson").Activate
    UserForm1.Show
End Sub

En executant du pas à pas l'erreur proviendrai de cette fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Recup_Nb_Lignes()
 
    Dim DerniereLigne As Integer
    DerniereLigne = Range("A1").End(xlDown).Row
 
 
    Label_Nb_Lignes.Caption = DerniereLigne
 
End Sub

le pas à pas s'arrete et affiche le dépacement de capacité sur cette ligne précisément:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DerniereLigne = Range("A1").End(xlDown).Row

La je vous avous que je suis un peut perdu!

[ludojojo]

ok j'ai trouver mon problème cela bloque par ce que je n'ai pas assez de ligne dans ma feuille!
juste 1
pourquoi est ce que j'obtient cette erreur?????
comment je peut éviter ça???

[fring]

Tu peux l'éviter (et aussi léviter) comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DerniereLigne = Range("A65535").End(xlUp).Row

[ludojojo]

J'ai inséré ce code mais le problème est persistant!