Problème affichage OptionButton dans un Frame

Bonjour
j'ai un formulaire de rechercher avec deux boutons option dans un cadre.
mais lorsque je lance la procédure le bouton correspondant à la valeur trouvée ne s'active pas.
Si la valeur trouvée = Acceptée alors le bouton acceptée doit être actif sinon le bouton refusée doit être actif.

j'ai essayé ce code mais le résultat n'est pas bon.
la même valeur est toujours renvoyée. "Acceptée"

Code:

---

1 2 3 4 5

If f.Cells(ligneEnreg, 8).Value = "Refusée" Then Me.Opt_Refuse = True Else Me.Opt_Accepte = True End If

---

Merci pour une piste à suivre
Cordialement

Bonjour,

Code:

---

1 2	Me.Opt_Refuse = ucase(f.Cells(ligneEnreg, 8).Value) = "REFUSÉE" Me.Opt_Accepte = not Me.Opt_Refuse

---

inutile de tester un booléen pour affecter la même valeur à un autre booléen!

Code:

---

1 2 3 4 5 6 7

If (f.Cells(ligneEnreg, 8).Value = "Refusée") = True Then Me.Opt_Refuse = True Else Me.Opt_Accepte = True End If

---

Bonsoir
Merci mais cela affiche toujours le "Opt_accepte" valide.

je mets le code en entier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Private Sub ChoixDmd_Click() On Error Resume Next ligneEnreg = Sheets("BD").[A:A].Find(ChoixDmd, LookIn:=xlValues).Row Me.nom = f.Cells(ligneEnreg, 2) 'B Me.Service = f.Cells(ligneEnreg, 3) 'C Me.champ_DateCreation = f.Cells(ligneEnreg, 4) 'D Me.champ_detail = f.Cells(ligneEnreg, 5) 'E Me.champ_NumSillage = f.Cells(ligneEnreg, 6) 'F Me.champ_MotifRefus = f.Cells(ligneEnreg, 8) 'H Me.champ_DetailSillage = f.Cells(ligneEnreg, 9) 'I   Me.champ_DateCloture = f.Cells(ligneEnreg, 10) 'J   Me.Opt_Refuse = UCase(f.Cells(ligneEnreg, 7).Value) = "Refusée" Me.Opt_Accepte = Not Me.Opt_Refuse   ' If f.Cells(ligneEnreg, 7).Target.Value = 0 Then ' Me.Opt_Refuse = True ' Else ' If f.Cells(ligneEnreg, 7).Target.Value = 1 Then ' Me.Opt_Accepte = True ' End If ' End If         End Sub

---

Cordialement

Dans ton code tu mes en commentaire ' If f.Cells(ligneEnreg, 7).Target.Value = 0 Then
ce qui n'a rien a voir avec le code initial!

Code:

---

1 2	Me.Opt_Refuse =f.Cells(ligneEnreg, 7).Value Me.Opt_Accepte = Not Me.Opt_Refuse

---

*

Oui j'avais essayé avec 0 et 1 comme valeur pour tester.
ça ne marche pas non plus

Quelle valeur as-tu exactement en Cells(ligneEnreg, 7).Value?

la valeur est soit Refusée soit Acceptée

Bonjour,
Oui c'est donc bien ça!

Code:

---

1 2	Me.Opt_Refuse = f.Cells(ligneEnreg, 8).Value = "Refusée" Me.Opt_Accepte = not Me.Opt_RefuseQ

---