[RESOLU]Variable non définie

camarchepas

XLDnaute Barbatruc

• 4 Novembre 2012

• #2

Re : Variable non définie

Bonjour,

Teste comme ça chez moi ça roule

Code:

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

 

Vote positif 0 Vote négatif

G

Gareth

XLDnaute Impliqué

• 4 Novembre 2012

• #3

Re : Variable non définie

Bonjour,

Peut etre en rajoutant :

Code:

Dim Etat As String

Edit : bonjour camarchepas

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 4 Novembre 2012

• #4

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

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 4 Novembre 2012

• #5

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

 

Vote positif 0 Vote négatif

G

Gareth

XLDnaute Impliqué

• 4 Novembre 2012

• #6

Re : Variable non définie

Re,

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

Code:

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

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 4 Novembre 2012

• #7

Re : Variable non définie

bonsoir gareth super merci ça fonctionne impec amitiés

 

Vote positif 0 Vote négatif