Discussion :

[cchampion2fr]

bonjour,

J'ai le message procedure trop grande qui s'affiche...

comment faire? dois je creer 2 moules differents et a la fin du premier appeler le deuxieme...?
j'ai besoin d'un sel module pour creer mon fichier..??

Vidage du presse papier..?

Comment forcer le vidage du presse papier egalement..?

Merci

[Pierre Fauconnier]

Bonjour

Pourrait-on voir le bout de code qui pose problème ainsi que le numéro d'erreur?

[ucfoutu]

Bonjour,

décompose donc ta procédure en plusieurs procédures .... (en créant d'autres procédures, que tu appelles depuis la tienne, pour exécuter telle ou telle autre partie de tes instructions....!

Ainsi, par exemple :

Code :

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

1
2
3
4
5
Private Sub Command1_Click()
  toto = 4
  toto = toto * 5
  MsgBox toto
End Sub

peut parfaitement (par exemple) se décomposer ainsi (avec une routine):

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
  Dim toto As Integer
  toto = 4
  calcul toto
  MsgBox toto
End Sub
 
Private Sub calcul(toto As Integer)
 toto = toto * 5
End Sub

ou encore ainsi (avec une fonction) :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
  Dim toto As Integer
  toto = 4
  toto = calcul(toto)
  MsgBox toto
End Sub
 
Private Function calcul(toto As Integer) As Integer
 calcul = toto * 5
End Function

[cchampion2fr]

Ok pour les appels de fonctions ..je vais s doute utiliser la fonction call pour appeler une autre procedure...

Par contre pour le presse papier je n'ai pas de message d'erreur...

Juste un message excel qui me dit : "le contenu du presse papier est tres important, voulez vou non garder les donnees"

Je ne souhetrais pas que ce message s'affiche et donc forcer le vidage du presse papier.

[Pierre Fauconnier]

Call n'est pas indispensable...

Avoir une procédure trop grande, il faut déjà le faire... Combien as-tu de lignes?

Vider le presse-papiers: Lorsque l'on demande le code, ce n'est pas pour rien... ... Tu as probablement un paste qui n'est pas résolu par un

Code :

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

application.cutcopymode = false

, mais sans code...

Tu peux toujours utiliser

Code :

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

application.displayalerts=false

mais il ne faut pas oublier de le remettre à True après... et donc, sans ton code, je ne sais pas t'aider davantage

[cchampion2fr]

ok la fonction marche et la boite de dialogue presse papier n'apaprait plus. Il faut la repasser a true a la fin ou non?

Je ne sais pas combien j'ai de ligne mais bcp oui...
J'ai scindé ma procedure en 2 fonctions et ca marche nickel...!

[Pierre Fauconnier]

Comme tu postes plusieurs questions à la fois, que tu ne donnes pas le code que tu as testé... on ne sait pas t'aider. Par exemple, je ne sais pas ce que tu veux repasser à True à la fin... ni à la fin de quoi tu veux modifier cette valeur...

[Pierre Fauconnier]

ok la fonction marche et la boite de dialogue presse papier n'apaprait plus. Il faut la repasser a true a la fin ou non?

Je ne sais pas combien j'ai de ligne mais bcp oui...
J'ai scindé ma procedure en 2 fonctions et ca marche nickel...!

Je serais curieux de voir le code