procédure long

[dhiouf]

Bonjour à tous
j'ai créer un userform avec 24 optionbutton,1textbox et 2 commandbutton(1et2)
la procédure du commandbutton1 est trés long,est-il possible la rendre court
voir fichier joint
merci d'avance

 

[jp14]

Re : procédure long

Bonjour


Au lieu d'utiliser les variables C1,c2,......

écrire : Range("salaire") = Range("salaire") + TextBox1.Value

En posant un point d'arrêt sur "If OptionButton1 = True Then" on constate que le système réalise tous les tests, il faut donc sortir de la procédure en écrivant
Unload Me
exit sub

En utilisant un module de classe

https://www.excel-downloads.com/threads/aide-pour-raccourcir-code-chexbox-merci.86172/


JP

 

[smotty]

Re : procédure long

Bonjour à tous,

sinon dans ce cas là je renseigne la propriété tag de chaque optionbutton par le nom de la cellule correspondant. Dans ce cas, le code ci-dessous suffit:

Private Sub CommandButton1_Click()

Dim ctr As Control
Dim NomR As String

For Each ctr In Me.Controls
If TypeName(ctr) = "OptionButton" Then
If ctr.Value = True Then
Range(ctr.Tag).Value = Val(Range(ctr.Tag)) + Val(TextBox1.Value)
End If
End If
Next ctr


End Sub

A+

smotty

 

[Guest]

Re : procédure long

Bonjour JP,

Voici une proposition de travail.
Avec explication dans le code.

A bientôt

[Edition] hello JP, Smothy

 

[dhiouf]

Re : procédure long

oui ça marche bien ta procédure, merci beaucoup jp14
smotty, j'ai pas bien compris (renseigne la propriété tag de chaque optionbutton par le nom de la cellule correspondant)

 

[Jam]

Re : procédure long

Bonjour,

Il faut à mon sens plutôt transférer chaque If...End If dans les évènements de OptionButtonxxxx_Click().

Hello Hasco, smotty

 

[dhiouf]

Re : procédure long

Hasco, dans ta procédure erreur de compilation (sub ou function non definie) a la ligne commandbutton1_click

 

[smotty]

Re : procédure long

En fait, tu vas dans les propriétés de chaque optionbutton de ton userform.

(click droit/propriétés)

il y a une propriété "TAG" qui ne sert que de repère.

exemple: dans le tag de l'optionbutton1, tu tappes le nom de la cellule liée, "salaire", (sans les guillemets).

dans ton code tu récupères le tag avec : optionbutton1.tag

Voire l'exemple ci-joint, j'ai renseigné uniquement l'optionbutton1.

Perso, j'ai beaucoup utilisé cette méthode quand il y a beaucoup de controles

A+

 

[dhiouf]

Re : procédure long

Ok ça marche merci bien smotty, merci à toute et à tous

 

[Guest]

Re : procédure long

Diouf, JP, Smothy,


Oui un c avait disparu et provoquait l'erreur:

Private Sub CommandButton1_Click()
    Dim byPoste As Byte     'contiendra l'index de bouton option choisit
    Dim strPoste As String  'contiendra le nom associé dans le tableau des postes
 
    'Trouver le bon optionButton
    byPoste = CheckOptions
 
    'S'il est 0 ou que textbox1 n'est pas numérique, sortir
    If byPoste < 0 Or Not IsNumeri[SIZE=3][COLOR=red]c[/COLOR][/SIZE](TextBox1)  Then GoTo FIN:
 
    'Sinon trouver le nom du poste (les index du tableau commencent à 0 donc le poste 1 'salaire' = Postes(1-1)=>0 )
    strPoste = Postes(byPoste - 1)
    Range(strPoste) = Range(strPoste) + Val(TextBox1)
 
FIN:
    Unload Me
End Sub

A bientôt