problèmes avec les boutons d'option

WUTED

XLDnaute Occasionnel

• 22 Juin 2012

• #2

Re : problèmes avec les boutons d'option

Bonjour Stephane,

Tu peux boucler de cette façon :

VB:

Ctrl as Control
For each Ctrl in Me.Controls
    if TypeOf Ctrl is MSForms.OptionButton Then
        if Ctrl.Caption = "oui" And Ctrl.Value = True Then
           NBJFOFF = NBJOFF + 1
        Elseif Ctrl.Caption = "non" And Ctrl.Value = True Then
           NBJFNOFF = NBJFNOFF + 1
        End If
    End if
Next Ctrl

Je l'ai pas testé donc essaye ça et tiens moi au courant,
bonne journée.

 

Vote positif 0 Vote négatif

Z

Zussy Stephane

XLDnaute Nouveau

• 22 Juin 2012

• #3

Re : problèmes avec les boutons d'option

Merci WUTED mais il y a un problème dans le bloc et je ne trouve pas ou!

C'est pas simple quand on débute en VBA Excel... alors si quelqu'un trouve, merci aux experts

 

Vote positif 0 Vote négatif

WUTED

XLDnaute Occasionnel

• 22 Juin 2012

• #4

Re : problèmes avec les boutons d'option

J'avais oublié un Dim dans mon exemple :

VB:

Dim Ctrl As Control
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.OptionButton Then
        If Ctrl.Caption = "Oui" And Ctrl.Value = True Then
           NBJFOFF = NBJFOFF + 1
        ElseIf Ctrl.Caption = "Non" And Ctrl.Value = True Then
           NBJFNOFF = NBJFNOFF + 1
        End If
    End If
Next Ctrl

EDIT : J'avais aussi un peu loupé en recopiant les variables, mais avec des noms de variables pareilles...

 

Vote positif 0 Vote négatif

Z

Zussy Stephane

XLDnaute Nouveau

• 22 Juin 2012

• #5

Re : problèmes avec les boutons d'option

ça ne marche pas au niveau du comptage mais c'est probablement parceque les boutons sont dans d'autres frame à l'interieur de celui contrôlé?

Regardez sur l'image pour mieux voir mon problème SVP, Meerci d'avance

 

Vote positif 0 Vote négatif

WUTED

XLDnaute Occasionnel

• 22 Juin 2012

• #6

Re : problèmes avec les boutons d'option

Re,

Même dans d'autre frames, cela ne devrait pas poser de problèmes, est-ce que tu pourrais mettre ton fichier en pièce jointe? En supprimant des données confidentielles si nécessaire? Il faudrait juste ton Userform et le code associé.

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 22 Juin 2012

• #7

Re : problèmes avec les boutons d'option

bonjour tous
dans ton cas peut etre passer par un module de classe..cela se résume en quelques lignes de code.... si pas de réponse regarderais tout a l'heure

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 22 Juin 2012

• #8

Re : problèmes avec les boutons d'option

re,
en fin de compte une class... pas forcement utile vu que l'on sait pas bien ce que tu veus faire ???
tu dois valider par un bouton je pense... meme pas sûr ??? sans plus d'infos ???
code commandbutton(x)

Code:

Dim j As Control, x As Byte, y As Byte
 For Each j In Controls
 If TypeName(j) = "OptionButton" Then
 If (j) And j.Caption = "OUI" Then x = x + 1
 If (j) And j.Caption = "NON" Then y = y + 1
 End If
 Next j
 NBJFOFF = x: NBJFNOFF = y

code pas simplifier

pour l'ami WUTED TypeName pareil que TypeOf enfin dans certains cas mieux utiliser l'un que l'autre

par contre the name var a simplifier

 

Vote positif 0 Vote négatif

Z

Zussy Stephane

XLDnaute Nouveau

• 25 Juin 2012

• #9

Re : problèmes avec les boutons d'option

Bonjour,

c'est le USF 4, rien de secret pour le moment, c'est le début du projet d'un débutant.

merci de votre aide et @+

 

Dernière édition: 25 Juin 2012

Vote positif 0 Vote négatif

WUTED

XLDnaute Occasionnel

• 25 Juin 2012

• #10

Re : problèmes avec les boutons d'option

Bonjour,

Je ne vois pas d'USF 4 dans ton fichier joint..

 

Vote positif 0 Vote négatif

Z

Zussy Stephane

XLDnaute Nouveau

• 25 Juin 2012

• #11

Re : problèmes avec les boutons d'option

Re-bonjour,
Avec celui-ci c'est plus facile! Dsl...

 

Pièces jointes

• Gestion_des_heures.xlsm

  98.7 KB · Affichages: 69

Vote positif 0 Vote négatif

WUTED

XLDnaute Occasionnel

• 25 Juin 2012

• #12

Re : problèmes avec les boutons d'option

Re,

Le VBA est sensible à la case, remplace tes "oui" et "non" dans les conditions par "OUI" et "NON" et ça devrait rouler

 

Vote positif 0 Vote négatif

Z

Zussy Stephane

XLDnaute Nouveau

• 25 Juin 2012

• #13

Resolu : problèmes avec les boutons d'option

Re-bonjour,

Trop fort ça fonctionne tip top !!!
Merciiiiiiiiii beaucoup pour votre aide et à bientôt pour la suite des problèmes.

 

Vote positif 0 Vote négatif