appel procedure

Question

bonjour.
je voudrais en fait cr&#233;er une proc&#233;dure qui prend comme parametre une feuille excel.
j'ai en fait 2 feuilles de calcul excel et je traite les donn&#233;es de la m^me mani&#232;re pour les 2 feuilles:il y'a juste le nom de la feuille qui change dans mon code.
pour eviter de le r&#233;ecrire, je voudrais utiliser une procedure que j'appellerai 2 fois,une fois pour pour chacune des feuilles.
 j'ai essay&#233;:

sub traitement(feuille as worksheet)
   

end sub

mais quand j'appelle

sub travail() 
traitement feuil1
end sub

j'ai un message d'erreur.

sui quelqu'unpeut m'aider...
merci

jrivet · Answer

Salut,

- C est quoi exactement le message d erreur?
- Est tu sur que la Feuille pass&#233;e en parametre &#224; un nom correct
- essaie: Call Traitement(ActiveWorkbook.Sheets("Feuil1"))

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

AdilELHASSOUNI · Answer

Salut
essaye de declarer 
sub traitement( ByVal feuille as worksheet)
peut etre c'est a cause de cela
bonne chance

panorama12 · Answer

salut.
j'ai essay&#233; ce que tu m'as dit et ca fait toujours pareil.
en fait il me met :erreur d&#233;finie par l'application ou par l'objet
je continue &#224; chercher

kalobit · Answer

En fait, ta proc&#233;dure demande un objet worksheet comme argument.
Il faut donc lui passer un objet et pas un nom.

la syntaxe de jrivet est bonne : 

call traitement (activeworkbook.sheets("Feuil1"))

Maintenant, si &#231;a bloque toujours, c'est que &#231;a ne vient pas de l'appel de proc&#233;dure mais d'une erreur dans le code de la proc&#233;dure

Essaye l'ex&#233;cution pas &#224; pas pour d&#233;celer la ligne qui bug

Essaye aussi de faire un bouclage sur tes feuiles pour &#234;tre sur de l'argument que tu utilises :

Sub Tester()
Dim sht as worksheet
For each sht in thisworkbook.sheets
   call traitement (sht)   ' "traitement sht" marche aussi
next
end sub

@+++
[mailto:K@lobit K@lobit]

rvblog · Answer

Salut Panorama, salut à tous, comme je vais dire du mal, j'attaque par du bien : splendide réflexe que de préférer améliorer une fonction en la rendant plus générique, et éviter de dupliquer du code! Un exemple à suivre !Chapeau bas ! bon, ça c'est fait,... ensuite : je pense que Kalobit a raison, s'il y a une erreur dans la procédure, et qu'elle n'y est pas traitée, elle remonte à l'appelant (après, en ce qui concerne la syntaxe, ta syntaxe originelle devrait, il me semble, fonctionner [déclaration et instanciation implicite, comme Form1 dans VB], mais ce n'est pas fiable, il vaut mieux faire comme le dit jrivet). Indice, si tu as développé le contenu de ta fonction dans le code de la feuille, et que tu l'as ensuite déporté dans une fonction autonome (voire même dans un module standard), et vu que tu utilises les facilités du langage (passer feuil1 est une facilité), tu devrais vérifier toutes tes références, une fois qu'elles sont délocalisées (ex: ActiveSheet, Me,...) et tu devrais vérifier la portée des variables que tu y utilise (sont elles visibles, utilise-je bien la locale ou la globale ou l'argument, sont-elles initialisées???) Notes-bien que si toutes ces vérifs sont fastidieuses, elles sont dues au fait que tu utilises peut-être trop les facilités du langage, donc la syntaxe de jrivet est décidément la bonne! à+ rvblogn^{Je veux ton bien... et je l'aurais}

Appel procedure

5 réponses

Discussions similaires