Discussion :

[lcoulon]

Bonjour,

J'ai un classeur avec plusieurs feuilles.

Actuellement, Feuil2(Clients) est appelée par le biais de Worksheets("Clients") par beaucoup de fonctions VBA, dans plusieurs modules et dans plusieurs feuilles.

Je voudrai maintenant que l'ensemble de mes fonctions pointant vers Worksheets(Clients) utilisent comme nom de Worksheets le contenu de la cellule E1 dans Worksheets(MENU)
Ainsi, si E1 contient le mot "test" toutes mes fonctions sauront qu'il faudra chercher dans Worksheeets("test")


J'ai essayé d'intégrer ceci dans Thisworkbook, mais sans succés :
database_client_a_utiliser ne prend pas le contenu de la cellule E1 de la page intitulée : "MENU"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Workbook_Open()
 
Dim database_client_a_utiliser As Range
 
' Le nom de la Feuille 2 est définie par le contenu de la cellule E1 dans la Worksheets "MENU" :
Set database_client_a_utiliser.Name = Sheets(1).Range("E1").Value
 
MsgBox database_client_a_utiliser
 
End Sub

Merci à vous pour votre aide,

[Invité]

Bonjour,

Une solution consiste à rendre paramétriques vos procédures et fonctions.

Dans cet exemple, j'ai une procédure de tri qui peut s'appliquer aux trois onglets indiqués dans le tableau structuré.

Pièce jointe 598571

Cette procédure contient les paramètres permettant d'identifier l'onglet, la ligne de titre du tableau et la colonne à trier.

Code :

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

1
2
 
Sub TrierUnTableau(ByVal FeuilleATrier As Worksheet, ByVal LigneDeTitre As Long, ByVal ColonneATrier As Long)

Dans le module de l'onglet MENU, la procédure lancée par le bouton Trier est la suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Option Explicit
 
Private Sub BoutonTrier_Click()
 
        Range("E1") = "Clients"
        TrierUnTableau Sheets(Range("E1").Value), 10, 3
 
        Range("E1") = "Test"
        TrierUnTableau Sheets(Range("E1").Value), 10, 1
 
        Range("E1") = "Test 2"
        TrierUnTableau Sheets(Range("E1").Value), 10, 2
 
End Sub

Ceci n'était qu'un exemple d'utilisation. Il vous suffit donc d'ajouter le nom de votre onglet ou l'objet Worksheet dans vos paramètres de procédure.

[lcoulon]

J'ai réussi à obtenir ce que je souhaite en procédant ainsi :

Dans un module :

Code :

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

1
2
' Variable de la base client à utiliser
Public database_client_a_utiliser As String

Création d'un bouton pour acquérir le contenu de la cellule indiquant la feuille souhaitée :

Code :

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

1
2
3
Private Sub Bouton_ValideBaseClients_Click()
database_client_a_utiliser = Sheets("MENU").Range("D1").Value
End Sub

ensuite je peux utiliser cette variable dans le reste de mon code :

Code :

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

1
2
3
...
If Worksheets(database_client_a_utiliser).Range("A5") = "" Then index_max_compteur_ligne_source = 5
...

Donc si dans la feuille intitulée "MENU" en cellule D1 il est indiqué 'Clients2021'

Le code ci-dessus sera alors interprété ainsi :

Code :

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

If Worksheets("Clients2021").Range("A5") = "" Then index_max_compteur_ligne_source = 5