Discussion :

[smartbis]

Bon jour,

je voudrais savoir si il est possible d'optimiser les quelques lignes de programme ci dessous.


En effet, j'ai une dizaine de bouton de commande qui realise la meme chose sauf une valeur. le fait de recopier ces bouts de programme ceci allonge et je pense l'alourdisse( dans l'exemple uniquement 3 boutons)

Merci d'avance de votre reflexion a ce sujet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
       bloquer = False
       numcoup = 1
       call essai()
End Sub
 
Private Sub CommandButton2_Click()
       bloquer = False
       numcoup = 2
       call essai()
End Sub
 
Private Sub CommandButton3_Click()
       bloquer = False
       numcoup = 3
       call essai()
End Sub

[ouskel'n'or]

Je suppose que tes boutons sont dans un userform.
Si c'est bien le cas, regarde ici une solution permettant la gestion d'une collection de textbox dans une seule procédure.
La ligne

MsgBox Objtxt.Name

n'est là que pour montrer que selon le TextBox actif, tu récupères bien son nom et non le nom d'un autre
Je n'ai pas testé avec les CommandButtons, mais peux-tu le faire pour moi ?
Tiens-nous au courant
A+

[smartbis]

Merci de m'avoir repondu
mais neamoins je n'ai que de pietre connaissance en vba ( je ne sais pas a quoi serve les modules de classe ,...)
j'ai essayé de comprendre ta programmation et quel en etait le resultat mais en fait je suis dans le flou le plus complet

s'il n'existe pas de solution plus simple a mon probleme je vais pour le moment en rester aux dizaines de copier coller de la procedure click de mes boutons
Ceci en attendant d'en apprendre un peu plus sur VBA


je reste quand meme a l'ecoute d'autre possibilité


Merci

[ouskel'n'or]

Tu devrais regarder les tutos ou la FAQ, il me semble que SilkyRoad propose une autre solution sans les modules de classe.
Là, je suis sur autre chose et ne peux pas le faire tout de suite mais tu devrais faire une recherche avec "Collection" ou "Collection & bouton" sur ce forum, puis dans la FAQ puis dans les tutos
Bonne chance

[smartbis]

ok je vais essayer de faire des recherches dans ce sens la

merci pour les infos