Discussion :

[Danad38]

Bonjour à tous,
Devellopez.com : club des professionnels de l'informatique ... moi qui suis grand débutant, j'espère ne pas m'immiscer dans un lieu d'un trop haut niveau pour moi ... Nous verrons.
Voici mon problème. Dans un UserForm j'ai créé un Frame dans celui-ci j'ai placé 3 CheckBox. L'intitulé de chaque CheckBox est : + 10 pour la première, + 20 et + 30 pour les deux autres. Dans un Label j'ai inscrit : Total = 100.
Je souhaite que, simplement en cliquant sur une CheckBox, l'intitulé du Label s'incrémente de la valeur indiquée (en plus ou en moins suivant que la CheckBox est ou non cochée). Un CommandButton permet de quitter la procédure.
J'ai réussi (Oh ! exploit ...) à écrire un programme en écrivant une procédure dans chaque CheckBox (procédure que je réecris à l'identique autant de fois qu'il y a de CheckBox). Or j'ai lu ... qu'il existait une procédure beaucoup plus élégante et courte qui permettait d'indexer les CheckBox avec une variable (je ne sais pas si je m'exprime correctement ...) et qui permettait d'effectuer le même travail en une seule procédure.
J'ai beau retourner le problème depuis plusieurs jours, je n'avance à rien. Mise à part l'affichage de mon UserForm rien ne fonctionne. Je ne sais même pas comment commencer.
Avez-vous une solution à me proposer.
Par avance, merci.

Danad38

[pgz]

Bonsoir

Si je comprends, tu as fait un code qui marche et que tu voudrais raccourcir.
Si c'est cela, affiche ton code cela aidera les contributeurs.

Cordialement,

PGZ

[mercatog]

Une proposition (3 Checkbox: Checkbox1, Checkbox2 et Checkbox3)

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
Sub Coch(cb As MSForms.CheckBox)
Dim Sgne As Integer
 
Sgne = IIf(cb.Value, 1, -1)
Me.Label1.Caption = Val(Me.Label1.Caption) + Sgne * Val(Mid(cb.Name, 9)) * 10
End Sub
 
Private Sub CheckBox1_Click()
Coch Me.CheckBox1
End Sub
Private Sub CheckBox2_Click()
Coch Me.CheckBox2
End Sub
Private Sub CheckBox3_Click()
Coch Me.CheckBox3
End Sub

[Danad38]

pgz, mercatog,

Merci à vous deux pour vos réponses rapides.
J'ai utilisé ton programme, mercatog, et j'ai effectuer les quelques modifications que je souhaitais. J'ai, grâce à toi découvert la fonction IIf (j'ai cru au premier abord que c'était une faute de frappe !), et en travaillant un peu plus la question j'ai appris beaucoup de choses sur les déclarations de variables ou de procédures (Public ou non).
Une petite question (certainement simpliste) pour laquelle je n'ai pas encore de réponse.

Pourquoi faut-il écrire (j'ai modifié le nom de certaines variables afin qu'elles soient pour moi, plus explicites) :

Code :

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

Public Sub ChecBox_Cochée(CheckBox As MSForms.CheckBox)

Alors que :

Code :

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

1
2
Public Sub CheckBox_Cochée()
Dim CheckBox As MSFroms.CheckBox

Ne fonctionne pas ?

Merci encore à vous deux.

Danad38

[pgz]

Pourquoi faut-il écrire (j'ai modifié le nom de certaines variables afin qu'elles soient pour moi, plus explicites) :

Public Sub ChecBox_Cochée(CheckBox As MSForms.CheckBox)

Alors que :

Public Sub CheckBox_Cochée()
Dim CheckBox As MSFroms.CheckBox

Ne fonctionne pas ?

La première syntaxe déclare CheckBox comme variable à transmettre lors de l'appel de la procédure. C'est bien ce dont tu as besoin.
Dans la seconde syntaxe, Checkbox est une variable locale, ce qui ne permet pas de désigner la checkbox à traiter quand on appelle la procédure.

COrdialement,

PGZ

[Danad38]

Merci PGZ.
Ton explication m'apporte "l'explication" pour des "difficultés" rencontrées dernièrement.
Bonne journée
Cordialement.

Danad38