Discussion :

[sylvain133]

Bonjour,
Je souhaite définir une variable worksheet en public pour l'utiliser ensuite un peu de partout dans mon projet VBA, mais j'ai un beug que je n'explique pas. Je suis débutant, je pense que vous n'aurez pas de difficulter à m'aider, du moins je l'espère
Voici mes quelques lignes de codes :

Code :

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

1
2
3
4
5
6
Public Ws as Worksheet
 
Sub hi
Dim name as string
Set Ws = Sheets("Ws_" & name)
end sub

Puis ailleurs dans un userform :

Code :

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

1
2
3
With Ws
.activate
end with

Mais ... ERREUR ! sur le ".activate" manifestement ma variable n'est pas définie ...

D'avance merci pour votre aide !!

[mercatog]

Normal
Que contient ta variable name?

[sylvain133]

Une chaine de caractere que je définie préalablement et que j'utilise ensuite pour nommer mon onglet.

Je vais quand meme essayer en enlever la variable

[mercatog]

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
Public Ws as Worksheet
 
Sub hi()
Dim name as string
 
name="XXX"
Set Ws = Sheets("Ws_" & name)
end sub
 
Private Sub Userform_Initialize()
 
Call hi
 
msgbox ws.Name
End Sub

Tu auras Ws_XXX

[sylvain133]

Ca ne marche toujours pas...

Petite précision, dans le userform ou je définie mes objets, je peux ensuite utiliser les variables.

Par contre dans l'autre userform, la variable est inconnu alors qu'elle est définie en public ..

Du coup une idée ?

D'avance merci ..

[mercatog]

Déclare ta variable Ws dans un module standard pour être reconnue partout dans ton projet

[sylvain133]

Merci pour ta réponse Mercatog.

Le probleme n'est pas de renommer l'onglet, mais qu'une fois l'avoir définie comme variable, "Ws" dans cette exemble, je puisse ensuite l'utiliser n'importe ou.

Comme ceci :

Code :

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

1
2
3
4
With Ws
    .select
    . ...ext
end with

Et je ne comprends pas pourquoi, malgré que je l'ai définie en public, ça marche dans la fonction ou je l'ai définie mais pas ailleurs..

[mercatog]

L'as-tu déclaré dans un Module Standard (ou dans le module de ton userform)?