Re boucle sur boutons

[IFFIC]

Bonsoir à tous et mes Re-Vœux de plein de bonnes choses pour 2005 et plus…

J'avais un fil de voici qq jours avec cette question, et José m'a gentiment suggéré de lui joindre le fichier. Plouff!!! Impossible de le transmettre. J'ai changé de disque et de fournisseur d'accès. Pourvu que cette fois cela passe…

Voici mon souci : (Copie de mon appel au secours initial)

Je donne aux 20 boutons d’un USF les noms qu’il aura été choisi par l’utilisateur
dans une liste établie verticalement dans la feuille « CATEGORIES »
à partir de la cellule (10,1)

Private Sub UserForm_Activate()
For i = 10 To 29
Controls("CommandButton" & i - 9).Caption = Worksheets("CATEGORIES").Cells(i, 1)

‘ Au passage, je cache les boutons inutiles

If Controls("CommandButton" & i - 9).Caption = "" Then
Controls("CommandButton" & i - 9).Visible = False
End If
Next i

End Sub

Par la suite j’aimerais récupérer son « Clic » sur l’un des dits boutons dans l’USF
par un truc du genre :

CHOIX = Controls(CommandButton).Caption …. Et provoquer l’action voulue…
Ou Label1.Caption = "CHOIX"

Sinon, je vais devoir me farcir 19 fois « Bouton 1 quand clic, bouton 2 et c.

Je suis certain qu’il y a plus rapide.

Merci d’avance pour un petit coup de main.

IFFIC

 

[ChTi'160]

Salut "IFFIC"
ne serait il pas utile de mettre tes boutons dans un FRAME ????
A Voir
A+++
Jean Marie

 

[IFFIC]

Bonsoir Jean Marie et à tous

(Bien que je n'inspire pas beaucoup de réponses)

Je vais fouiller coté "Frame" dans l'aide.

Merci pour ton attention et ton intention.

Je sèche vraiment, et je pense que je vais devoir
regarder au-delà d'XLD pour grandir.

Pas de bol.

Je me souviens de ton aide sur la recherche dans un tableau.
alors que je découvrais Excel. Je n'ai pas oublié.

Bonne soirée à toi, et belles choses

IFFIC? Un peu dépité quand même.....!!!!!!!!!!!!!!!

Ce n'est pas le premier fil où je n'ai pas l'ombre d'une réponse des pros.
Le vide est affligeant par le silence!
Je n'ai pas su entrer dans la secte!

 

[jmps]

Bonsoir IFFIC, Bonsoir Jean Marie,

Non non IFFIC, je ne t'oublie pas. Papa jmps est toujours là. J'ai vu ton post ce matin au boulot mais j'ai pas eu le temps de me pencher sur ton problème. Je me suis dit : Je verrai ce soir. Pas de bol, ou plutôt si... Coup de fil de @+Thierry en rentrant. Il est en vacances pas loin de chez moi et donc ce fut l'occasion de se rencontrer. Tu penses bien que j'allais pas rater ça.
Donc, là il est un peu tard pour bien réfléchir à ta boucle de boutons mais promis... Demain matin je cogite là-dessus.
Voilà, ne soit pas triste (bouh !), tu n'es pas seul au monde.

Bonne nuit les amis.

José

 

[ChTi'160]

bonsoir"IFFIC"
1° tu ne t'adresses pas à une secte
2° il faut savoir être patient
3° peut être que personne n'a de solution sérieuse à te faire
mais tu vois moi je suis allé sur le net et j'ai eu des propositions concernant ton problème, sont telles bonnes ???
voir post
<http://vlohr.free.fr/Forum_VeriTi/forum_1.php?=2477&return=1#top2477>
donc ne te morfonds pas et suis ton fil
on est là
A+++
Jean Marie

 

[Hervé]

Salut IFFIC, jean-Marie et josé

En attendant la solution par boucle de josé, la mienne avec 19 fois la même macro, je sais IFFIC tu veux une boucle mais bon.....

remarque en déclarant le caption du commandbutton en public ce n'est que 19 copié collé (moins de 5 minutes de travail).

Salut
Hervé

 

[Hervé]

re

salut chti160, désolé je t'avais pas vu .

Hervé

 

[IFFIC]

Crotte de bique!!!! Que celà fait plaisir!

Bonjour José.

J'osé plus espérer... (Facile)

Je vais ce soir (Sinon un peu plus tard) poursuive ma petite bidouille avec des "Clic sur boutons" , histoire d'avancer d'avancer un peu sur le sujet intéressant que m'a soumis un pote s'occupant d'un club de foot de sa commune.


En plus, si tu es en contact avec le "Dieu Thierry" , diantre!
Ce n'est pas ce genre de petite boucle qui va nous emm..
longtemps. Pas vrai?

Merci josé. C'est sympa.

IFFIC

 

[IFFIC]

Heu! Surpris et un peu vexé d'avoir été impatient.
T'as raison Jean Marie. Merci de me le rappeler.
Il y a des heures à chercher qui pèsent sur les méninges!

Merci Hervé, je n'ai as encore ouvert ton fichier,
je tenais à être poli en premier lieu. Je le fais ensuite.

A plus les amis,

J'ai grand hâte d'être doué pour pouvoir aussi un jour aider.


QUI A DIT QU'A MON AGE, JE N'AVAIS PAS INTERET DE TRAINER ???

NON, MAIS!!!!

 

[Hervé]

re

la même chose sans les 19 macros avec une boucle.

Salut
Hervé

 

[IFFIC]

Là Hervé tu commences à m'n Hervé!!! (Facile)

Super grand!!!........ PS: les 19 copies, pas terribles!

En plus que j'entrevois pas mal de trucs à faire avec ton exemple,
celà va fonctionner balaise dans ce que je cherche à faire.

Merci beaucoup.

Je te présente mes "Macro" Bons voeux pour 2005

Comme à ceux du Forum qui n'auront pas lu mes précédent Posts où je le faisais, à ceux à qui j'ai oublié de le faire aussi. à ceux qui auront la chance
en passant par ici de télécharger ton fichier bien utile.

Encore merci, je me régale, je ne suis pas prêt de dormir.

IFFIC

 

[jmps]

Bonjour IFFIC, Jean Marie, Hervé,

Alors là je dis... MONSIEUR Hervé ! La classe (sans jeu de mot) !!!! Je suis bluffé. Ca valait le coup d'être un peu dépité IFFIC... Je pense que j'aurais galéré un max pour arriver à faire ça. Je vais vite essayer de comprendre comment marchent les classes car je subodore un max d'utilités. Et merci au "professeur" Didier que j'appellerai désormais Didier myDearProfessor.

Bon week-end à tous.

José

 

[Hervé]

Bonjour

José, merci mais le MONSIEUR est de trop.

IFFIC, petite précision un module de classe gère les mêmes controles d'un userform, dans ton cas les commandbutton.

Si tu veux rajouter un commandbutton et que tu veux qu'il est les même méthodes que les petits copains, modifie Dim cmb(20) As New Classe1
en tête de code de l'userform par Dim cmb(21) As New Classe1, en effet cette déclaration précise le nombre de commandbutton.

De plus complète la macro d'initialisation de l'userform par on error resume next.

Salut
Hervé

 

[ChTi'160]

Salut "IFFIC"
bonjour Hervé et josé
eh oui la patience paie
notre Prof à lui aussi besoin de réfléchir(Lol)
mais le résultat et là
il est une chose importante qu'il faut rappeler "suivre ces Fils"peut être bénéfique
Donc Merci à Hervé et aussi au prof
bonne journée à toutes et à tous
A+++
Jean Marie

 

[excalibur]

salut en parcourant le forum je suis tombe sur ton probleme j ai une approche de reponse j ai cree une calculette en m inspirant d un fichier je j avais telecharge sur exelabo je te met en piece jointe salutations