Appeler une procédure dans une procédure

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Appeler une procédure dans une procédure

testostezor

金牛座

Bonjour,

j'ai fais un petit code VBA sous forme de SUB qui permet d'enrichir les données d'un onglet excel en fonction des données d'un autre onglet excel. Jusqu'ici rien de sorcier.

J'aimerais rendre ce sub "réutilisable" avec comme arguments le nom de l'onglet source et celui de l'onglet cible.

Comment procéder s'il vous plait ?

- pour transformer mon SUB en "SUB GENERIQUE"
- appeler ce SUB GENERIQUE en lui plaçant en argument des noms d'onglet (de manière fixe dans le code directement, pas de saisie utilisateur ou autre)

Merci d'avance

Publicité

fouinardomeo

Qu'est ce que tu appelles "onglet excel" ? Les feuilles de calculs ? les cellules ?

Ensuite je ne vois pas ou est le problème pour que ta fonction fonctionne avec des arguments ? Ou est-ce que tu bloques ?

Développe un peu ta question parce que pour l'instant c'est pas très clair, au besoin post ton sub pour qu'on y voit plus clair !

testostezor

金牛座

les onglets excel c'est les sheets, mais j'ai le code qu'il faut pour ça

Sinon bah je ne connais pas le fonctionnement des Sub avec des arguments en fait, comment initialiser le truc, et comment appeler la sub ?

olivthill

En Basic, il y a deux sortes deux fonctions (alors qu'il n'y en a qu'un en C) : les Sub... et les Function...

Les Sub s'appelllent avec l'instruction Call ...
Les Function s'appellent avec ma_variable = ...

Les données en paramètre des Sub et des Fonctions se mettent comme en C, mais sans que l'on ait besoin d'indiquer le type.

Sub ma_routine(ma_var1, ma_var2)
MsgBox("var1 = " & ma_var1 & ", var2 = " & ma_var2 & "." )
End Sub

otobox

Maison fondée en 2005

Ta sub, il faut que tu la mettes dans un module à part, mais je pense que tu l'as déjà fait.

Ensuite, si tu veux passer en paramètre le nom des onglets le début de ta sub sera :

sub MaRoutine(NomOnglet1 as String, NomOnglet2 as String)
...
End Sub

ensuite, tu lances ta routine ainsi :

Call MaRoutine("Nom de l'onglet 1", "Nom de l'onglet 2" )

La routine attendant une chaine de caractères. Mais tu peux aussi lui passer en paramètre des variables de type String :

Dim strOnglet1 as String
Dim strOnglet2 as String

strOnglet1="Feuil1"
strOnglet2="Feuil2"

Call MaRoutine(strOnglet1, strOnglet2)

Message édité par otobox le 28-12-2010 à 12:28:43

---------------
OtObOxBlOg - - - Etre seul à avoir tort c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons

testostezor

金牛座

Merci à vous, je teste ça demain au boulot

testostezor

金牛座

Bon alors quand j'executé la Sub en écrivant clairement en dur le nom des onglets ça marche, mais en mode Sub appelée avec 2 arguments ça ne fonctionne plus. Si vous pouvez m'aider :

Code :

Sub Boucle_V01(arg1 As String, arg2 As String)
Dim i As Integer
'Compteur de lignes
i = 5
Dim j As Integer
'Compteur de colonnes
j = 1
' Boucle pour compter les lignes :
Do
i = i + 1
Loop While Cells(i, 1) <> ""
' Boucle pour compter les colonnes :
Do
j = j + 1
Loop While Cells(5, j) <> ""
Dim a As String
' Variable pour stocker le nom de la colonne . Ex : Index etc..
Dim d As Integer
' Coordonnée de ligne
d = 5
Dim e As Integer
' Coordonnée de colonne
e = 1
' Récupération du nom de la cellule dans l'onglet cible
Do
Sheets("arg2" ).Select
Cells(d, e).Select
a = Selection
' MsgBox "Nom de la cellule " & a
Dim b As Integer
' Variable de coordonnée de la colonne qui contient le même nom dans l'onglet source
b = 0
Do
b = b + 1
Sheets("arg1" ).Select
Cells(5, b).Select
Loop While Selection <> a
' Récupération du contenu complet (toutes les lignes) de la colonne qui porte le même nom dans l'onglet source
Sheets("arg1" ).Select
Range(Cells(6, b), Cells(i, b)).Select
Selection.Copy
Sheets("arg2" ).Select
Range(Cells(d + 1, e), Cells(i, e)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
e = e + 1
Loop While e <> j
MsgBox "Traitement termine"
End Sub

Mon sub d'appel dans un module différent :

Code :

Sub Boucle_V03()
Call Boucle_V01("EQUITY", "Feuil2" )
End Sub

Et enfin le message d'erreur est :

Code :

Erreur d'execution '9'
L'indice n'appartient pas à la selection

Et il me surligne en jaune la ligne #31.

Merci de votre aide je ne vois pas

Sachant que la Sub qui fonctionne (sans être "dynamique" ) est celle la :

Code :

Sub Boucle_V04()
Dim i As Integer
'Compteur de lignes
i = 5
Dim j As Integer
'Compteur de colonnes
j = 1
' Boucle pour compter les lignes :
Do
i = i + 1
Loop While Cells(i, 1) <> ""
' Boucle pour compter les colonnes :
Do
j = j + 1
Loop While Cells(5, j) <> ""
Dim a As String
' Variable pour stocker le nom de la colonne . Ex : Index etc..
Dim d As Integer
' Coordonnée de ligne
d = 5
Dim e As Integer
' Coordonnée de colonne
e = 1
' Récupération du nom de la cellule dans l'onglet cible
Do
Sheets("Feuil2" ).Select
Cells(d, e).Select
a = Selection
' MsgBox "Nom de la cellule " & a
Dim b As Integer
' Variable de coordonnée de la colonne qui contient le même nom dans l'onglet source
b = 0
Do
b = b + 1
Sheets("EQUITY" ).Select
Cells(5, b).Select
Loop While Selection <> a
' Récupération du contenu complet (toutes les lignes) de la colonne qui porte le même nom dans l'onglet source
Sheets("EQUITY" ).Select
Range(Cells(6, b), Cells(i, b)).Select
Selection.Copy
Sheets("Feuil2" ).Select
Range(Cells(d + 1, e), Cells(i, e)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
e = e + 1
Loop While e <> j
MsgBox "Traitement termine"
End Sub

Message édité par testostezor le 30-12-2010 à 11:20:57

olivthill

Enlever les guillemets dans

Citation :

Sheets("arg2" ).Select

Si on laisse les guillemets, le programme croit que l'onglet s'appelle "arg2", alors qu'en fait, il s'appelle par le nom qui est contenu dans arg2.

Il faut soit mettre le vrai nom entre guuillemets, Sheets("Feuil2" ).Select, soit mettre le nom de la variable sans les guillemets, Sheets(arg2).Select

testostezor

金牛座

Merci j'essaye ça tout de suite

testostezor

金牛座

Parfait

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Appeler une procédure dans une procédure

Sujets relatifs
Enregistrement d'un fichier texte dans une procédure récursive	Macro Excel: Pivottables: Argument ou Appel de procédure incorrect
Paramètre d'une procedure/function stockée	Appeler un service web .NET sécurisé en Java
[javascript]Appeler une fonction dans un iframe	Appeler un cmd à partir d'un vbs
Accès dynamique à une classe pour appeler .... une méthode statique	Appeler une procédure depuis une fonction !
appeler périodiquement procédure PLSQL	[Java-SQLServer] Appeler une procédure stockée contenant des espaces
Plus de sujets relatifs à : Appeler une procédure dans une procédure

Page générée en 0.106 secondes