bonjour,

je vous explique mon probleme : j'ai placé sur mon fichier quinze "checkbox"
on ne peut cocher qu'une seule checkbox sur les quinze.
on a une variable Value as integer
la valeur de cette variable dépend de la checkbox cochée:

voici mon code pour mieux comprendre :

If Checkbox1.Value = True Then Value =1
If Checkbox2.Value = True Then Value =2
...
If Checkbox15.Value = True Then Value =15

ce code est assez long a tapé surtout si je dois encore rajouté des checkbox...

donc je voulais savoir si il est possible de réaliser une boucle pour rendre ce code plus simple?

merci

Bonjour

La collection controls peut être utilisée :
Controls("checkbox1") se réfère la la checkbox checkbox1

ActiveControl se réfère quant à lui au control actif... et ainsi :

if ActiveControl.value = True then Value = mid(ActiveControl.name, 9) retournera 10 pour le controle CheckBox10

Pour une boucle sur n checkboxes nommées checkbox1, checkbox2, .... checkboxn

For I = 1 to n
   If controls("checkbox" & I) = true then
     Value = I
  end if
End if

Voilà ! je t'ai parlé de plusieurs aspects ===>> à tyoi de les utiliser comme tu l'entends.

Ceci étant dit : puisqu'une seule checkbox, dis-tu,  peut être cochée , j'utiliserais de préférence des OptionButtons (dont c'est le rôle)

en effet je viens d'assayer rapidement el les OptionButtons sont plus pratiques je ne savais pas qu'ils avaient cette particularité. ( qui est leur principale je pense.... )

je vais essayer les boucles que tu m'as proposé.

merci!!

salut,

et si jamais tu dois faire plusieurs groupes de OptionButtons, genre OptionButtonTrancheAge, OptionButtonSexe, OptionButtonCategorieProf, tu peux les placer dans des Frames, pour permettre un choix sur chaque groupe.

(sais pas si je me fais comprendre )

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

oui j'ai compris ce que tu voulais dire

Mais j'ai un probleme avec la boucle:

j'ai placé les OptionButton

mais avec ce code :

For I = 1 to n
   If  Controls("OptionButton" & I) = true then        <= il y a un probleme avec Controls
     Value = I
  end if
End if

le message d'erreur dit que " sub or function not defined"

bonjour
de mémoire les optionbutton ne sont pas True ou False
par contre ils ont une propriété Checked
c'est elle que tu dois tester

si c'est la solution, penser : REPONSE ACCEPTEE

Salut,

>pile_poil : C'est Bien value pour les option Button

Cela vaut ce que ca vaut mais tu peux essayer ceci.

Dim Ctrl As Control Dim Value As Integer    For Each Ctrl In Me.Controls        If TypeOf Ctrl Is MSForms.OptionButton Then            If Ctrl.Value = True Then Value = Mid(Ctrl.Name, 13)        End If    Next    Call MsgBox(Value)

By Renfield

@+: Ju£i¤n
Pensez: Réponse acceptée

non tjs pas

le probleme est dans la ligne     For Each Ctrl In Me.Controls

msg d'erreur : method or data member not found

Salut,
Petite question Où places tu ce code??

@+: Ju£i¤n
Pensez: Réponse acceptée

je l'ai placé dans la fenêtre code correspondant à la "feuil1" de mon classeur (celle ou sont placés les optionbutton)