Variable pour utiliser le CodeName d'une feuille

Variable pour utiliser le CodeName d'une feuille - VB/VBA/VBS - Programmation

Marsh Posté le 10-06-2009 à 09:38:04    


Bonjour,
 
C'est idiot mais je n'arrive pas à retrouver comment sélectionner une feuille avec une variable égale à son CodeName.
Mon problème est le suivant :
 

Code :
  1. 'Calcul du nombre de lignes dans Data
  2. Feuil1.Select
  3. NbLigneData = Range("A65536" ).End(xlUp).Row


 
Je voudrais remplacer le "Feuil1" par une variable...
 
Merci merci  :jap:  


---------------
Ctplm !
Reply

Marsh Posté le 10-06-2009 à 09:38:04   

Reply

Marsh Posté le 10-06-2009 à 10:33:22    

nom_feuille = "Feuil1"
ActiveWorkbook.Sheets(nom_feuille).Select

Reply

Marsh Posté le 10-06-2009 à 10:53:24    


Ce code marche pour le nom de l'onglet, pas pour son codename...


---------------
Ctplm !
Reply

Marsh Posté le 10-06-2009 à 11:18:37    

Plus haut, il était question de "Feuil1". Pourquoi en avoir parlé si cela n'a pas de rapport ? Qu'est-ce c'est que ce codename ? Est-ce Sheets(i).Name ?
Peut-être ma_feuille  = Excel.Workbooks(1).ActiveSheet ou Set ma_feuille = ThisWorkbook.Sheets("Feuil1" )


Message édité par olivthill le 10-06-2009 à 11:21:45
Reply

Marsh Posté le 10-06-2009 à 11:27:15    


Exemple : Feuil1 (Data), Feuil1 est le CodeName de la feuille, Data est son nom.
Comme le nom peut-être changé par les utilisateurs, j'ai besoin d'une variable qui reprenne le CodeName (qui ne change pas..).
J'ai déjà essayé les deux méthodes que tu cites et ça ne marche pas malheureusement..


---------------
Ctplm !
Reply

Marsh Posté le 10-06-2009 à 11:31:48    

 
Trouvé...
 

Code :
  1. Set F = Feuil1
  2. F.Select
  3. NbLigneData = Range("A65536" ).End(xlUp).Row


 
[:kosmos]  


---------------
Ctplm !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed