Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Utiliser une variable dans un call

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion siocnarf
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

siocnarf

XLDnaute Occasionnel
Bonjour,

Je souhaite prendre le bout de code ci-dessous et en faire une sous-routine car il est répétitif. Mon problème est que dans ce bout de code, il y a un call ... qui doit être fait et que la sous-routine appelé change d'une fois à l'autre. Quelle serait la bonne manière de procéder? Est-il possible d'utiliser une variable d'une manière ou une autre et de la passer dans un Call??

Code: 
IntFinalColStat = Sheets(DefP_VFeuilStatData(0)).Cells(2, Application.Columns.Count).End(xlToLeft).Column

Sheets(DefP_VFeuilStatData(0)).Cells(1, IntFinalColStat).Select

'Coordonnée de sortie du premier tableau--> Nombre de message pertinents par système
IntCoordEvenementSystemes = "R1C" & IntFinalColStat + 2

StrTableName = "EvenementSystemes"
Set pt = DefP_PTCache.CreatePivotTable(TableDestination:= _
       "'[" & DefP_StrTableaudebord & "]" & DefP_VFeuilStatData(0) & "'!" & IntCoordEvenementSystemes, TableName:=StrTableName, DefaultVersion:=xlPivotTableVersion10)
Call [B]PivotEvenementsSystemes[/B](StrTableName)

Merci,
 
Trier par date Trier par votes
Re : Utiliser une variable dans un call

Bonjour siocnarf,

Pas sûr d'avoir compris, mais je crois que la réponse est Oui:

Code: 
Sub test()
Dim a as long
a=1
Call test2(a)
msgbox a
end sub
 
Sub test2(Byref a as long)
a=a+1
end sub
 
Vote positif 0 Vote négatif
Re : Utiliser une variable dans un call

Re,

Bon, en relisant je vois bien que je n'avais rien compris...

un autre essai :

Code: 
StrTableName = "EvenementSystemes"
Application.Run "Pivot" & StrTableName, StrTableName
 
Vote positif 0 Vote négatif
Re : Utiliser une variable dans un call

Bonjour,

Je confirme que Application.Run ne fonctionne pas. J'ai besoin de le faire avec un Call car c'est une sous-routine dans la même macro

L'inscription:

Code: 
Call "Pivot" & PaC_SousRoutineNom(StrTableName)

génère une erreur.

J'ai également testé sans succès:

Code: 
test = "Pivot" & PaC_SousRoutineNom & "(" & PaC_StrTableName & ")"
Application.Run test

Comment contourner ce problème?

Merci!
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Utiliser une variable dans un call

Bonsoir le forum,
Bonsoir siocnarf, tototiti2008

C'est peut-être la syntaxe de l'appel qui n'est pas bonne.

Avec un Call, la procédure doit avoir la série d'arguments entre ()

Corrigez moi, si je dis une ânerie.

Klin89
 
Vote positif 0 Vote négatif
Re : Utiliser une variable dans un call

Je met une partie de mon code ici.
On remarque que j'ai une sous-routine qui reçoit des variables diverses et qui tente d'appeler la sous-sous-routine PivotEvenementsSystemes. Sans succès... 🙁

Code: 
Sub Pivotacreer(PaC_StrTableaudebord, PaC_VFeuilStatData, PaC_IntFinalColStat, PaC_StrTableName, PaC_SousRoutineNom, PaC_PTCache)
Sheets(PaC_VFeuilStatData(0)).Cells(1, PaC_IntFinalColStat).Select

'Coordonnée de sortie du premier tableau--> Nombre de message pertinents par système
IntCoordEvenementSystemes = "R1C" & PaC_IntFinalColStat + 2

Set pt = PaC_PTCache.CreatePivotTable(TableDestination:= _
       "'[" & PaC_StrTableaudebord & "]" & PaC_VFeuilStatData(0) & "'!" & IntCoordEvenementSystemes, TableName:=PaC_StrTableName, DefaultVersion:=xlPivotTableVersion10)
       
test = PaC_SousRoutineNom & "(" & PaC_StrTableName & ")"
'Call "Pivot" & PaC_SousRoutineNom(StrTableName)
'Call PivotEvenementsSystemes
Application.Run test
End Sub
'============================================
'============================================
Sub PivotEvenementsSystemes(P_StrTableName)
 
Vote positif 0 Vote négatif
Re : Utiliser une variable dans un call

Bonsoir,

Peut-être une erreur (horreur?!) de syntaxe mais je ne met pas le doigt dessus... si c'est le cas.

test = PaC_SousRoutineNom & "("
test2 = test & PaC_StrTableName & ")"
Application.Run test2

ce qui donne
application.Run "PivotEvenementsSystemes("EvenementsSystemes")"

Et cela ne fonctionne pas.

Merci
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Utiliser une variable dans un call

Bonjour à tous,

à tester :

Code: 
Application.Run "Pivot" & PaC_SousRoutineNom, PaC_StrTableName

Avec Application.Run, les arguments ne sont pas entre parenthèses mais après une première virgule
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
686
Phil69970
O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
1 K
ChTi160
  • Résolu(e)
XL 2016 Un "call" de macro ne fonctionne pas
Réponses
11
Affichages
2 K
R1-
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
1 K
Nico2978
L
  • Résolu(e)
XL 2019 Utiliser RECHERCHEV et copier les couleurs des cellules
Réponses
4
Affichages
1 K
sylvanu
I
  • Résolu(e)
Microsoft 365 VBA EXCEL Utilisation d'une variable avec données dans un tableau
Réponses
4
Affichages
1 K
mapomme
T
  • Question Question
Microsoft 365 Problème affichage multipage dans un tabstrip
Réponses
1
Affichages
722
troki74
T
M
  • Question Question
XL 2019 Sélectionner une feuille avec nom dans une variable VBA
Réponses
4
Affichages
2 K
ManOfCatz
M
  • Question Question
XL 2016 Récupérer une variable combobox dans une fonction
Réponses
8
Affichages
1 K
cp4
U
  • Résolu(e)
Autres VBA Nom d'une variable qui change dans une boucle For
Réponses
3
Affichages
3 K
dysorthographie
A
  • Question Question
XL 2016 Utiliser une variable en lieu et place d'une adresse internet
Réponses
9
Affichages
2 K
achel66
A
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
G
  • Question Question
XL 2016 Ecrire une boucle pour afficher ensemble dans un userform, toutes ses textbox complétées par la boucle! Voir mon code et photos feuilles joints !
Réponses
8
Affichages
1 K
vgendron
L
  • Résolu(e)
Microsoft 365 Coller un code aleatoire dans une cellule sélectionnées au hasard
Réponses
5
Affichages
823
LandryK7
L
R
  • Résolu(e)
XL 2016 Récupération de la valeur d'une variable d'une procédure à une autre
Réponses
8
Affichages
2 K
raoulruiz
R
D
  • Résolu(e)
Microsoft 365 Variable dans une cellule
Réponses
2
Affichages
531
delube
D
M
  • Question Question
Créer un TCD en vba dont le fichier source de données est variable
Réponses
1
Affichages
4 K
chris
  • Résolu(e)
Microsoft 365 Supprimer des caractères non visibles en passant par une variable tableau
Réponses
5
Affichages
2 K
Patrice33740
N
  • Question Question
XL 2016 probleme dans une macro lgn = cell.Row
Réponses
4
Affichages
1 K
neim
N
  • Question Question
XL 2016 Insérer le contenu d'une ListBox dans cellules
Réponses
2
Affichages
2 K
Yoyo01000
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…