*Rapatriement valeur ControlBox Oui/NON*

[David69400]

Bonjour, Re...😛

Suite à mes 3 postes d'hier soir, validés, merci Robert entre autre,
je bloque sur un point pas trop compliqué je pense:

Je veux ramener les valeur OUI/NON de 2 controls BOx dans mon UF de modification:

cf image:


Voici le code que j'ai essayé et qui ne marche donc pas...

je parle du Frame8 pour les OptionBUtton 1 et 2...

' I = 1 And J = 8
' If O.Cells(LI, J).Value = "OUI" Then
' Me.Controls("OptionButton" & I).Value = True
' Else
' Me.Controls("OptionButton" & I + 1).Value = True
' End If

remarque pour Robert: même si c'est inutile pour certains, merci de ne pas vous "formaliser sur l’extériorisation des I", ca me va mieux pour le moment, c'est plus simple quand je veux modifier rapidement... bref, votre mansuétude vous honore.

MErci !!!!

David

sp: fichier joint

 

[sousou]

Re : *Rapatriement valeur ControlBox Oui/NON*

bonjour

Essaie comme ceci.
I = 1
J = 8
If O.Cells(LI, J).Value = "OUI" Then
Me.Controls("OptionButton" & I).Value = True
Else
Me.Controls("OptionButton" & I + 1).Value = True
End If
' à corriger et dupliquer pour l'autre checkbox
I = 3
J = 9
If O.Cells(LI, J).Value = "OUI" Then
Me.Controls("OptionButton" & I).Value = True
Else
Me.Controls("OptionButton" & I + 1).Value = True
End If

 

[David69400]

Re : *Rapatriement valeur ControlBox Oui/NON*

Bonjour Sousou,

MERCI !
Vous m'avez bien déboqué
au lieu de I = 1 And J = 8 , tout simplement I puis J...
Débutant débutant
En revanche, le problème de l'absence de choix OUI / NON, s'est alors posé.
du coup j'ai rajouté une condition et cela fonctionne.

Le code est un peu longuet, s'il y a une sipmlification évidente hors question des "I" ou "J" extériorisés, je suis preneur §

I = 1
J = 8
' condition de rapatriement des OUI/NON
If O.Cells(LI, J).Value = "OUI" Then
' si la case de la ligne LI, colonne J contient "OUI"
Me.Controls("OptionButton" & I).Value = True
'L'optionButton1 est cliqué, en oui
Else
'sinon
If O.Cells(LI, J).Value = "NON" Then
'si la case contient "NON"
Me.Controls("OptionButton" & I + 1).Value = True
'l'optionbutton2 est cliqué, en NON
Else
If O.Cells(LI, J).Value = "" Then
' si il n'y a rien
Me.Controls("OptionButton" & I).Value = False And Me.Controls("OptionButton" & I + 1).Value = False
' les 2 optionbutton demeurent non cliqués
End If
End If
End If

Merci et à la prochaine !

David

 

[sousou]

Re : *Rapatriement valeur ControlBox Oui/NON*

re
Attention une nouvelle fois à l'utilisation du AND, c'est un opérateur logique!

la méthode select case est peut-être plus propre
I = 1
J = 8
Select Case O.Cells(LI, J).Value
Case Is = "OUI"
Me.Controls("OptionButton" & I).Value = True
Case Is = "NON"
Me.Controls("OptionButton" & I + 1).Value = True
Case Else
Me.Controls("OptionButton" & I).Value = False
Me.Controls("OptionButton" & I + 1).Value = False
End Select

 

[David69400]

Re : *Rapatriement valeur ControlBox Oui/NON*

Sousou !

Attention une nouvelle fois à l'utilisation du AND, c'est un opérateur logique!

je ne connais pas la subtilité du AND, mais dans le cas précis, ca avait l'air de fonctionner
masi je préfère largement votre proposition Select case qui est plus simple/propore à écrire

MERCI !!!

David