Macro pour excel

Macro pour excel - VB/VBA/VBS - Programmation

Marsh Posté le 02-11-2005 à 18:28:45    

:hello:  
 
J'ai besoins d'aide pour realiser une macro activee par un bouton.
J'ai une feuille excel "loop_test" composer d'environ 20 onglets qui se nomment avec differents numeros et un onglet general.
Je souhaite donc en activant le bouton(dans l'onglet general) qu'un message s'affiche et demande quel onglet je veux ouvrir en ecrivant le numero de cet onglet.
J'ai deja creer un bouton qui me renvoi a l'onglet general.
De plus je suis avec une version anglaise et je suis debutant avec VBA.
J'espere que ma demande n'est pas trop confuse
merci de votre aide

Reply

Marsh Posté le 02-11-2005 à 18:28:45   

Reply

Marsh Posté le 02-11-2005 à 20:03:33    

Pour changer d'onglet, il faut utiliser

Worksheets("Nom_de_longlet" ).Activate


 
Quelqu'un d'autre voulait faire quelque chose d'un peu similaire récemment, voir http://forum.hardware.fr/forum2.ph [...] w=0&nojs=0

Reply

Marsh Posté le 03-11-2005 à 07:18:55    

olivthill a écrit :

Pour changer d'onglet, il faut utiliser

Worksheets("Nom_de_longlet" ).Activate


 
Quelqu'un d'autre voulait faire quelque chose d'un peu similaire récemment, voir http://forum.hardware.fr/forum2.ph [...] w=0&nojs=0


 
Pour changer d'onglet je n'es pas de probleme, mais le souci est que j'ai 40 onglets pour le momment alors je ne vois pas bien l'interet de creer 40 bouton dans mon onglet de garde.
Non ce que j'aimerais faire c'est de mettre un bouton dans l'onglet de garde et qu'en clickant dessus un message s'affiche et demande le numero ou le nom de l'onglet recherche.  
j'ai deja creer un bouton pour revenir a la page de garde

Reply

Marsh Posté le 03-11-2005 à 07:49:21    

pifiorlo a écrit :

Pour changer d'onglet je n'es pas de probleme, mais le souci est que j'ai 40 onglets pour le momment alors je ne vois pas bien l'interet de creer 40 bouton dans mon onglet de garde.
Non ce que j'aimerais faire c'est de mettre un bouton dans l'onglet de garde et qu'en clickant dessus un message s'affiche et demande le numero ou le nom de l'onglet recherche.  
j'ai deja creer un bouton pour revenir a la page de garde


 
 
 :bounce:  
Super merci je peux ouvrir n'importe quel onglet, je ne regrette pas d'etre venu sur le forum.
Continuer

Reply

Marsh Posté le 03-11-2005 à 10:42:23    

Salut pifiorlo,
As tu trouvé ?
sinon voici une petite macro qui va t'aider :

Code :
  1. Private Sub CommandButton1_Click()
  2. Dim i As String, o, a
  3. i = InputBox("Veuillez saisir le nom de la feuille" )
  4. a = 1
  5. For o = 1 To Worksheets.Count
  6.      If Sheets(o).Name = i Then
  7.           Sheets(o).Activate
  8.           a = ""
  9.      Else
  10.      End If
  11. Next o
  12. If a = 1 Then MsgBox ("nom de feuille invalide" ): Resume
  13. End Sub

Elle est à placer dans le code du commande button ert a l'avantage de verifier si la feuille existe pour eviter les bugs à l'utilisation. Elle fonctione sur les noms de feuilles et pas sur les index (ce qui est souvent plus représentatif).
Bon courage


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
Reply

Sujets relatifs:

Leave a Replay

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