Bonjour à tous,
J'ai un problème à mon a vis très simple à résoudre mais j'avoue ne pas y arriver....
J'ai un un userform dans lequel j'ai rajouté un option Button.
En cochant l'option button (il y en a 17 en tout) on peut selectionner jusqu'à trois critères avec trois boutons. Lorsque l'on on appuie sur un de ces boutons de macro la value des option button se reporte juste en dessosu du bouton dans un encart.
J 'aurais voulu le mettre une PJointe mais le fichier est trop lourd...J'i donc mis une capture d'écran en PJ....
Voila le code pour les trois boutons:
Private Sub CommandButton4_Click()
With EditSynthese3
For i = 0 To 17
If .Frame2.Controls(i).Value = True Then
.Choix1.Caption = .Frame2.Controls(i).Caption
End If
Next i
End With
End Sub
Private Sub CommandButton5_Click()
With EditSynthese3
For i = 0 To 16
If .Frame2.Controls(i).Value = True Then
.Choix2.Caption = .Frame2.Controls(i).Caption
End If
Next i
End With
End Sub
Private Sub CommandButton6_Click()
With EditSynthese3
For i = 0 To 16
If .Frame2.Controls(i).Value = True Then
.Choix3.Caption = .Frame2.Controls(i).Caption
End If
Next i
End With
End Sub
Quand je mets i = 0 to 17 Cela ne fonctionne pas et le message d'erreur est Propriété ou méthode non gérée par cet objet....
Quelqu'un a t il une idée???
Merci d'avance.
Amandine....
J'ai un problème à mon a vis très simple à résoudre mais j'avoue ne pas y arriver....
J'ai un un userform dans lequel j'ai rajouté un option Button.
En cochant l'option button (il y en a 17 en tout) on peut selectionner jusqu'à trois critères avec trois boutons. Lorsque l'on on appuie sur un de ces boutons de macro la value des option button se reporte juste en dessosu du bouton dans un encart.
J 'aurais voulu le mettre une PJointe mais le fichier est trop lourd...J'i donc mis une capture d'écran en PJ....
Voila le code pour les trois boutons:
Private Sub CommandButton4_Click()
With EditSynthese3
For i = 0 To 17
If .Frame2.Controls(i).Value = True Then
.Choix1.Caption = .Frame2.Controls(i).Caption
End If
Next i
End With
End Sub
Private Sub CommandButton5_Click()
With EditSynthese3
For i = 0 To 16
If .Frame2.Controls(i).Value = True Then
.Choix2.Caption = .Frame2.Controls(i).Caption
End If
Next i
End With
End Sub
Private Sub CommandButton6_Click()
With EditSynthese3
For i = 0 To 16
If .Frame2.Controls(i).Value = True Then
.Choix3.Caption = .Frame2.Controls(i).Caption
End If
Next i
End With
End Sub
Quand je mets i = 0 to 17 Cela ne fonctionne pas et le message d'erreur est Propriété ou méthode non gérée par cet objet....
Quelqu'un a t il une idée???
Merci d'avance.
Amandine....