problème d'exportation de macro

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:

---

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...

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+

Non je n'ai pas de ligne contenant

Code:

---

Load Userform1

---

voici mon module complet :

Code:

---

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:

---

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:

---

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

---

La je vous avous que je suis un peut perdu!

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???

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

Code:

---

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

---

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

J'ai trouvé la solution à mon problème
Voici le code qu'il faut insérer :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Recup_Nb_Lignes()   Dim DerniereLigne As Integer   DerniereLigne = Sheets("MaFeuille").UsedRange.Rows.Count - 1   Label_Nb_Lignes1.Caption = "Nombre total de lignes :" & DerniereLigne   End Sub

---

Alors test avec

Code:

---

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

---

Si tu as toujours une erreur, c'est que tu n'as pas de feuil1 (!¤!#?£$)
Je blague.
Ajoute, avant la ligne

Code:

---

Worksheets(NomDeLaFeuille).activate

---

Ce n'est pas la raison de l'erreur mais cela pourrait donner une indication.
Tu dis
A+