[RESOLU]Variable non définie

[nrdz83]

Bonjour à tous,
dans un userform j'ai des option button que j'ai nommé en groupnam différent

par exemple Etat pour le code suivant

 'attribut les options boutons Etat
  For Each Ctrl In Controls
    If TypeName(Ctrl) = "OptionButton" Then
      If Ctrl And Ctrl.GroupName = "Etat" Then
       Etat = Ctrl.Caption
        Exit For
      End If
    End If

J'ai comme erreur au niveau de Etat "variable non définie"

Quelqu'un pourrait il m'indiquer comment la définir? svp

Dans le début de mon code j'ai définie cette variable

 Dim Ctrl As Control

Par avance merci amitiés

 

[camarchepas]

Re : Variable non définie

Bonjour,

Teste comme ça chez moi ça roule

Dim Ctrl As Control
Dim Etat As String
 'attribut les options boutons Etat
  For Each Ctrl In Me.Controls
    If TypeName(Ctrl) = "OptionButton" Then
      If Ctrl And Ctrl.GroupName = "Etat" Then
       Etat = Ctrl.Caption
        Exit For
      End If
    End If
  Next

 

[Gareth]

Re : Variable non définie

Bonjour,

Peut etre en rajoutant :

Dim Etat As String

Edit : bonjour camarchepas

 

[nrdz83]

Re : Variable non définie

Bonjour et merci ça marche merci pour votre aide
Par contre je cherche à remettre à blanc mes optionbutton une fois les données saisies.

Marci d'avance amitiés

 

[nrdz83]

Re : Variable non définie

Bonjour et merci pour le code j'y avais pensé à mettre "" .
Mais dans mon USF j'ai 6 groupoptionbutton donc je cherchais à simplifié le code.

Merci

 

[Gareth]

Re : Variable non définie

Re,

Pour réinitialiser tous les optionbutton, tu peux également faire ceci :

For Each X In Me.Controls
    If TypeName(X) = "OptionButton" Then X.Value = False
Next

 

[nrdz83]

Re : Variable non définie

bonsoir gareth super merci ça fonctionne impec amitiés