[VB] Création boutons

Création boutons [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 21-07-2006 à 10:14:53    

Hello tout le monde !!!  
 
Voilà j'ai une macro qui me crée des graphes et des tableaux. Mais je voudrais qu'en plus, sur chaque feuille ou il y a un tableau, une macro m'ajoute un bouton permettant de retourner à ma première page (en gros, un bouton retour paramétré)
 
Si vous avez des suggestions...
 
Thx

Reply

Marsh Posté le 21-07-2006 à 10:14:53   

Reply

Marsh Posté le 21-07-2006 à 10:39:01    

nexius26 a écrit :

Hello tout le monde !!!  
 
Voilà j'ai une macro qui me crée des graphes et des tableaux. Mais je voudrais qu'en plus, sur chaque feuille ou il y a un tableau, une macro m'ajoute un bouton permettant de retourner à ma première page (en gros, un bouton retour paramétré)
 
Si vous avez des suggestions...
 
Thx


un add controls, avec une automatisation du code, sur un appel de fonction toute faite du type  
sub retour()
Feuilldepart.activate
end sub
 
où dans chaque feuille créée tu ajoutes les lignes de code qui appel retour...

Reply

Marsh Posté le 21-07-2006 à 10:46:35    

Citation :

un add controls, avec une automatisation du code, sur un appel de fonction toute faite du type  
sub retour()
Feuilldepart.activate
end sub


 
Peut tu expliciter un peu plus formellement ton idée parce que là j'y arrive po  :??:  
 

Citation :

où dans chaque feuille créée tu ajoutes les lignes de code qui appel retour...


 
Euh non vu qu'à chaque fois ces feuilles sont supprimées, recrées.....

Reply

Marsh Posté le 21-07-2006 à 10:59:49    

nexius26 a écrit :

Citation :

un add controls, avec une automatisation du code, sur un appel de fonction toute faite du type  
sub retour()
Feuilldepart.activate
end sub


 
Peut tu expliciter un peu plus formellement ton idée parce que là j'y arrive po  :??:  
 

Citation :

où dans chaque feuille créée tu ajoutes les lignes de code qui appel retour...


 
Euh non vu qu'à chaque fois ces feuilles sont supprimées, recrées.....


pour l'ajout automatique de code : http://forum.hardware.fr/forum2.ph [...] w=0&nojs=0

Reply

Marsh Posté le 22-07-2006 à 11:15:05    

J'ai trouvé une super solution qui marche du tonerre:
 

Code :
  1. ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=True _
  2.         , DisplayAsIcon:=False, Left:=881, Top:=284, Width:=174, Height:=62). _
  3.         Select
  4. ActiveWindow.ScrollWorkbookTabs Sheets:=-1
  5. Sheets("Accueil" ).Select


 
en mettant le lien à true ca permet quand on clique dessus de balancer sur la feuille souhaitée, j'ai plus qu'à créer une macro qui sera appelée en création de chaque feuille
 
Merci Jpcheck en tout cas
bon week end
 :hello:

Reply

Sujets relatifs:

Leave a Replay

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