comment gerer un bouton creer en dynamique

[boudoula]

Bonjour,

j'ai mis en piece jointe ce que je souhaite faire.
En résumé quand je crée une nouvelle feuille intitulé toto ou tata... je voudrai pouvoir ajouter un commandbutton dans le userform2(ça c facile), mais le plus compliqué est de faire fonctionner le click de se nouveau bouton (le click selectionne la feuille portant le caption du bouton).
Et en question bonus, peut-on sauvegarder le tout sans perdre les boutons.


D'avance merci pour votre aide qui me serra tres precieuse [file name=Ajout de bouton_20050325182554.zip size=14253]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Ajout de bouton_20050325182554.zip[/file]

 

[Pierre]

Bonsoir Boudoula et le forum,


As-tu absolument besoin d'un bouton ou une liste cliquable pourrait-elle faire l'affaire?


Pierre

 

[Pierre]

Bonsoir Boudoula et le forum,


As-tu absolument besoin d'un bouton ou une liste cliquable pourrait-elle faire l'affaire?


Pierre

 

[Pierre]

Ben V'la qu'je bégaye en n'ayant cliqué qu'une fois. Ben y va pas bien le forum??? :huh:

Message édité par: Pierre, à: 25/03/2005 22:16

 

[boudoula]

Bonjour,

je sais qu'il y'a d'autre solution, mais je trouve celle assez fun même si visiblement on s'y casse les dents.
Je ne comprend pas la difficulté alors que la fonction ajout de bouton est prévu ??? Celà reste une enigme pour moi.
On a acces facilement a toute les option d'un bouton standard sauf celle du click...


c'est vraiment tres bizarre

 

[_Thierry]

Bonjour Boudoula, Pierre, le Forum

Hier j'ai fait une longue réponse dans ce Fil qui devrait t'interresser :

=>Lien supprimé

Qui est une réponse à ce Fil '('CommandButton' & X). Le 'X' en variable ?'

Sinon voici deux versions de la même démo, laquelle utilise une méthode pour 'AutoGénérer' un UserForm (avec Boutons et codes) :

=> Démo téléchargeable USF_ListBox_A_La_Volee.zip

=> Démo téléchargeable Lien supprimé

On notera surtout une grosse différence entre les deux démo à un an d'interval pour la construction du tableau séquentiel, car entre temps avec Zon, j'ai compris comment construire ces 'Dynamic Array' à l'envers...

Et aussi pour la petite Histoire dans le Fil du 20/07/2003 de la première démo, on verra aussi mon copain MichelXLD faire ses débuts sur ces Tableaux Séquentiels...

Comme quoi nous apprenons et progressons tous sur XLD !!!

Bonnes Fêtes de Pâques à tous et Toutes
@+Thierry

Message édité par: _Thierry, à: 26/03/2005 09:58

 

[Alain CROS]

Bonjour.

Pour rajouter un bouton avec ses évènements dans un UserForm existant :

Ce site n'existe plus

Alain CROS

 

[boudoula]

Merci pour le tuyau,

mais j'ai un souci la ligne de code :
Set Usf = ThisWorkbook.VBProject.VBComponents('Userform1')

ne fonctionne pas. Excel me dit Erreur d'execution 1004
l'acces par programme au projet visual basic n'est pas fiable

sais tu ce que celà veut dire

 

[MichelXld]

bonsoir

Boudoula , pour regler le probleme du message d'erreur , tu peux suivre la procedure ci dessous

Menu Outils
Macros
Sécurité
onglet 'sources fiables'
coches la case 'faire confiance au projet visual basic'


bonne soirée
MichelXld

 

[_Thierry]

Bonsoir Alain, Michel, Boudoula, le Forum

Je m'adressse à Alain, je pense que tu te souviens de moi sur le MPFE, et si tel est le cas, ici on est plus en camaraderie, les réponses bots impersonnelles nous tuent.... Nous on met un gros point sur les i............... gros comme notre coeur...

Je pense que tu me comprends et je te(vous) souhaite de...

Joyeuses Pâques
@+Thierry

 

[boudoula]

Bonsoir,

n'étant vraiment pas doué de mes dix doigts je n'arrive pas à adapter ma macro suivante qui consiste à ajouter une feuille portant le nom que je rentre dans mon textbox.

UserForm2.Hide ----------> ceci ferme l'usr contenant le textbox
a = UserForm2.TextBox1.Value
c = Left(a, 1)
f = Len(a)
g = f - 1
e = Right(a, g)
d = UCase(c)
a = d & e
b = Sheets.Count
Sheets('Menu').Select
Sheets('Menu').Copy After:=Sheets(b)
ActiveSheet.Name = a

avec la macro suivant qui elle insert un bouton

Sub AddBouton()
Dim Usf As Object, btn As Object
Set Usf = ThisWorkbook.VBProject.VBComponents('Userform1')
Set btn = Usf.Designer.Controls.Add('forms.commandbutton.1')
With btn
.Caption = 'Cliquer ici !...'
.Left = 60: .Top = 50
End With
With Usf.CodeModule
X = .CountOfLines
.insertlines X + 1, 'Sub CommandButton1_Click()'
.insertlines X + 2, ' MsgBox ''coucou'''
.insertlines X + 3, ' unload Me'
.insertlines X + 4, 'End Sub'
End With
VBA.UserForms.Add (Usf.Name)
UserForms(UserForms.Count - 1).Show
End Sub 'fs

Mon but étant de créer autant de boutons(avec le nom de la feuille) que de feuilles en disposant les boutons 3 par 3 sur une ligne. Le fait de cliquer sur le bouton doit me selectionner la feuille portant le même nom

Merci d'avance pour l'aide précieuse que vous m'apporterez

 

[Hervé]

Bonsoir ou bonjour

Une proposition en pièce jointe.

Tiens nous au courant

Bye [file name=Ajout de bouton2_20050328011700.zip size=18776]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Ajout de bouton2_20050328011700.zip[/file]

 

[boudoula]

Merci Hervé

c'est vraiment trop fort