Discussion :

[counterbob]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[counterbob]

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

je mets le code en entier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

*

[counterbob]

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

[Invité]

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

[counterbob]

la valeur est soit Refusée soit Acceptée

[Invité]

Bonjour,
Oui c'est donc bien ça!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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