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

Microsoft 365 Variable pour plusieurs macros

I

iliess

XLDnaute Occasionnel
Bonjour
J'ai trois macros qui partagent les mêmes variables. Est-ce qu'il y a un moyen de ne pas répéter ce bloc de variables ?
exemple
VB: 
sub macro1
Dim WsTvaDue As Workbook
Dim ShTVA9 As Worksheet, TCD As Worksheet
Dim Arr As Variant
Dim rg As Range
Dim lastRowTCD As Long, lastRowTva As Long, NbrColTCD As Long, NbrColDestin As Long
Dim Pv_Table As PivotTable
Dim Pv_Field As PivotField
Dim Fltr_KW As String
Set WsTvaDue = ActiveWorkbook
Set TCD = WsTvaDue.Worksheets("ANALYSETCD")
Set ShTVA9 = WsTvaDue.Worksheets("TVA9")
Set Pv_Table = TCD.PivotTables("TvaDue")
Set Pv_Field = Pv_Table.PivotFields("TVA-TYPE")
Pv_Table.RefreshTable
Pv_Field.ClearAllFilters
Pv_Field.CurrentPage = "TVA9%"
ShTVA9.Range("A4:Z2000").ClearContents
lastRowTCD = TCD.Cells(TCD.Rows.Count, 1).End(xlUp).Row
NbrColTCD = TCD.Cells(4, TCD.Columns.Count).End(xlToLeft).Column - 1
NbrColDestin = TCD.Cells(4, TCD.Columns.Count).End(xlToLeft).Column
Set rg = TCD.Range(TCD.Cells(4, 1), TCD.Cells(lastRowTCD - 1, NbrColTCD))
Arr = rg.Value

'macro'
end sub

Code: 
sub macro2
Dim WsTvaDue As Workbook
Dim ShTVA9 As Worksheet, TCD As Worksheet
Dim Arr As Variant
Dim rg As Range
Dim lastRowTCD As Long, lastRowTva As Long, NbrColTCD As Long, NbrColDestin As Long
Dim Pv_Table As PivotTable
Dim Pv_Field As PivotField
Dim Fltr_KW As String
Set WsTvaDue = ActiveWorkbook
Set TCD = WsTvaDue.Worksheets("ANALYSETCD")
Set ShTVA9 = WsTvaDue.Worksheets("TVA9")
Set Pv_Table = TCD.PivotTables("TvaDue")
Set Pv_Field = Pv_Table.PivotFields("TVA-TYPE")
Pv_Table.RefreshTable
Pv_Field.ClearAllFilters
Pv_Field.CurrentPage = "TVA9%"
ShTVA9.Range("A4:Z2000").ClearContents
lastRowTCD = TCD.Cells(TCD.Rows.Count, 1).End(xlUp).Row
NbrColTCD = TCD.Cells(4, TCD.Columns.Count).End(xlToLeft).Column - 1
NbrColDestin = TCD.Cells(4, TCD.Columns.Count).End(xlToLeft).Column
Set rg = TCD.Range(TCD.Cells(4, 1), TCD.Cells(lastRowTCD - 1, NbrColTCD))
Arr = rg.Value

'macro
end sub

Salutation
 
Solution
Bonsoir Iliess,
Il vous faut déclarer ces variables en public, elles seront ainsi visible par tous en lecture et en écriture;
Par ex :
VB: 
Public WsTvaDue As Workbook
Public ShTVA9 As Worksheet, TCD As Worksheet
Public Arr As Variant
Public rg As Range
Public lastRowTCD As Long, lastRowTva As Long, NbrColTCD As Long, NbrColDestin As Long
Public Pv_Table As PivotTable
Public Pv_Field As PivotField
Public Fltr_KW As String
Sub macro1()
Set WsTvaDue = ActiveWorkbook
Set TCD = WsTvaDue.Worksheets("ANALYSETCD")
Set ShTVA9 = WsTvaDue.Worksheets("TVA9")
Set Pv_Table = TCD.PivotTables("TvaDue")
Set Pv_Field = Pv_Table.PivotFields("TVA-TYPE")
Pv_Table.RefreshTable
Pv_Field.ClearAllFilters
Pv_Field.CurrentPage = "TVA9%"...
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Iliess,
Il vous faut déclarer ces variables en public, elles seront ainsi visible par tous en lecture et en écriture;
Par ex :
VB: 
Public WsTvaDue As Workbook
Public ShTVA9 As Worksheet, TCD As Worksheet
Public Arr As Variant
Public rg As Range
Public lastRowTCD As Long, lastRowTva As Long, NbrColTCD As Long, NbrColDestin As Long
Public Pv_Table As PivotTable
Public Pv_Field As PivotField
Public Fltr_KW As String
Sub macro1()
Set WsTvaDue = ActiveWorkbook
Set TCD = WsTvaDue.Worksheets("ANALYSETCD")
Set ShTVA9 = WsTvaDue.Worksheets("TVA9")
Set Pv_Table = TCD.PivotTables("TvaDue")
Set Pv_Field = Pv_Table.PivotFields("TVA-TYPE")
Pv_Table.RefreshTable
Pv_Field.ClearAllFilters
Pv_Field.CurrentPage = "TVA9%"
ShTVA9.Range("A4:Z2000").ClearContents
lastRowTCD = TCD.Cells(TCD.Rows.Count, 1).End(xlUp).Row
NbrColTCD = TCD.Cells(4, TCD.Columns.Count).End(xlToLeft).Column - 1
NbrColDestin = TCD.Cells(4, TCD.Columns.Count).End(xlToLeft).Column
Set rg = TCD.Range(TCD.Cells(4, 1), TCD.Cells(lastRowTCD - 1, NbrColTCD))
Arr = rg.Value
'macro'
End Sub
Ces variables ne doivent être déclarées qu'une seule fois, et en dehors des sub.
La syntaxe de déclaration est la même qu'avec un "dim".

Déclaration de variables (VBA)

Référence de langage VBA pour Office
learn.microsoft.com
 
Vote positif 1 Vote négatif
Solution

Dranreb

XLDnaute Barbatruc
Bonsoir.
Si les trois macros sont dans le même module et qu'elles seules elle les utilisent, elles peuvent aussi être déclarées Private. L'essentiel c'est qu'elles soient globale, c'est à dire déclarées en tête du module, avant toute procédure.
 
Vote positif 1 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

I
  • Question
Microsoft 365 SOMMEPROD en vba excel
Réponses
12
Affichages
453
iliess
I
S
  • Question
XL 2016 Pilotage TCD via Textbox dynamique
2
Réponses
22
Affichages
729
goube
  • Résolu(e)
XL 2021 Combiner plusieurs macros en 1 seule fonction
2 3 4
Réponses
58
Affichages
2 K
Nicolas JACQUIN
I
  • Résolu(e)
Microsoft 365 Placer un tableau VBA dans un tableau structuré Excel
Réponses
14
Affichages
481
mapomme
E
  • Question
Microsoft 365 Total général TCD à gauche : Solution VBA ?
Réponses
2
Affichages
391
merinos-BernardEtang
I
  • Résolu(e)
Microsoft 365 insérer ou supprimer le nombre de colonne qui convient
Réponses
2
Affichages
385
iliess
I
A
  • Résolu(e)
Microsoft 365 VBA pour ouvrir chemin répertoire spécifique
Réponses
3
Affichages
419
Anto35200
A
N
  • Question
Microsoft 365 Code VBA
Réponses
7
Affichages
591
TooFatBoy
N
  • Résolu(e)
Microsoft 365 Mettre la 4ème colonne d'une ListBox au format [h]:mm
3 4 5
Réponses
68
Affichages
1 K
NONO14
N
  • Question
XL 2021 Optimisation code pour affichage ligne et colonne
Réponses
14
Affichages
678
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…