Discussion :

[José Speret]

Bonjour
J'aimerais que à l'ouverture du classeur, ma macro me créé pour chaque feuille présente un variable qui la représente et que je puisse utiliser dans d'autres procédures pour gérer des transferts d'information complexes.
J'ai un début de code qui fonctionne bien jusqu'à la MsgBox, mais je n'arrive pas à conserver les variables.
Voici le code :

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
Private Sub WorkBook_Open()
 
Dim NbFeuilles As Integer
Dim I As Integer
Dim Feuille() As String
 
        NbFeuilles = ActiveWorkbook.Worksheets.Count
        ReDim Feuille(1 To NbFeuilles)
 
        For I = 1 To NbFeuilles
        Feuille(I) = ActiveWorkbook.Worksheets(I).Name
        MsgBox Feuille(I)
        Next I
 
End Sub

Voilà, j'aimerais avoir les variables Feuille1, Feuille2 etc..
Si quelqu'un pouvait m'aider à résoudre mon problème, ça serait super

[PPz78]

Bonjour,

Il me semble qu'il suffit de déclarer Public tes variables

Code :

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

Public Feuille() As String

(code à mettre au tout début)

PPz

[mercatog]

Dans un module public, déclares ta variable feuille()

Code :

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

Public Feuille() as string

et enlève la déclaration de Feuille du workbook.open

[patricktoulon]

bonjour a tous



met ca dans un module standard

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
16
17
18
 
Public NbFeuilles As Long
Public I As Long
Public Feuille() As Variant
 
   Sub listage_des_feuilles()
        NbFeuilles = ActiveWorkbook.Worksheets.Count
 
        For I = 1 To NbFeuilles
 
        ReDim Preserve Feuille(I)
        Feuille(I) = ActiveWorkbook.Worksheets(I).Name
       'pour la verification
        listedesfeuille = listedesfeuille & Feuille(I) & Chr(13)
 
        Next I
 MsgBox listedesfeuille
End Sub

j ai ajouter un message box a la fin qui te liste les feuilles presentes dans le classeur que tu peux supprimer


et dans le thisworkbook
tu met

Code :

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

1
2
3
   Private Sub Workbook_Open()
listage_des_feuilles
End Sub

a partir de la les variables representant les feuilles seront disponibles dans tout le fichier et dans n 'importe quel module a moins que tu les modifies entre temps


au plaisir

[José Speret]

merci à vous
je pense que je vais m'en sortir
je vais passer à l'étape suivante