Rechercher : dans
Par :

Excel - VBA - Variable et feuille

Dernière réponse le 23 nov 2003 à 21:57:52 dks31, le 23 nov 2003 à 00:11:14 
 Signaler ce message aux modérateurs

Bonjour à tous,

Voici mon problème: Je crée une feuille qui se nomme en fonction d'une variable. Ca c'est fait sans probleme avec:

Sheets.Add.Select
ActiveSheet.Name = MaVariable

Là où j'ai du mal c'est que je n'arrive plus à selectionner cette feuille dans mes autres macro. Je ne sais pas comment ecrire ma ligne de commande en tenant compte de son nom (variable). J'ai essayé:

Sheets Variable.Select (marche pas) puis,
Sheets (Variable).Select (Idem) enfin,
Sheets ("Variable").Select (Grrrr......)

mais ça ne marche pas. Please, Help !

1

filaliabdou, le 23 nov 2003 à 12:08:06
  • +1

Ta variable doit être de type string
Dim Mavariable as string

Comme tu peux utiliser str(variable) pour la convertir en string

time is not money, time is life

Répondre à filaliabdou

2

 DKS31, le 23 nov 2003 à 21:57:52

Merci beaucoup pour ta reponse, mais j'ai besoin de quelques precisions: Declarer ma variable en type String, ok, mais j'ai toujours mon probleme pour y faire reference.
Voici mon code, ce sera peut-etre plus clair:

'Declaration des variables "Public" permettra d'utiliser ces
'varibles dans tous les modules (à la difference de Dim par exemple).

Public MaVariable As String

Private Sub CommandButton1_Click()

'On defini la valeur des differentes variables; ici ce qui a été entré
'dans les TexBox du UserForm2.

MaVariable = UserForm2.TextBox1

Sheets("Model Test Classe").Select

'On test si quelque chose a été saisi dans le 1er TextBox du Userform2.
If Classe_3°1 <> "" Then

'On crée une nouvelle feuille (Add) et on la selectionne
Sheets.Add.Select

'On renomme cette feuille avec la variable de la premiere TextBox.
ActiveSheet.Name = MaVariable

'On va copier le feuille "Model" et on la copie dans la nouvelle feuille.
Sheets("Model").Select
Cells.Select
ActiveSheet.Copy

'ET C'EST LA QUE JE N'ARRIVE PLUS A SELECTIONNER LA NOUVELLE FEUILLE
'AVEC SON NOM VARIABLE !

Sheets MaVariable.Select
Cells.Select
ActiveSheet.Paste


Merci de votre aide. :-)

Répondre à DKS31
Collection CommentÇaMarche.net