Récupération choix Option button

Bonjour le forum

coincé sur mon projet vba je revien vers vous pour que je puisse trouver une solution a mon problème,j'ai beau cherche dans les forum et le net mais sans résultat

voila mon projet est un useform avec un multipage tout marche bien les saisie les modification les listbox bref impeccable sauf je coin sur les option button

quand je saisi des donner et choisir les choix d'option button tout vas bien

mon souci c'est : j'aimerai quand je clique sur un enregistrement dans la list box récupérer la valeur choisi d'option button pour que je puisse modifie .

voici le code utilise pour inserare le choix d'option buuton

Code:

---

1 2 3 4

For Each ctrlm In Energy.Controls If ctrlm.Value = True Then FM.range("E6") = ctrlm.Caption End If

---

pour récupéré les valeur d’enregistrement depuis la listbox le voici :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

f plag = 1 Then Exit Sub For m = 6 To FM.range("c" & Rows.Count).End(xlUp).Row If UCase(FM.range("c" & m)) = UCase(LISTbox2) Then 'quand on l'a trouvé, on reporte les indications dans les textbox TYPEV2 = FM.range("B" & m) IMMA2 = FM.range("C" & m) AFFECTA2 = FM.range("D" & m)     'If ESSENCE2 = fr.range("e" & e) = "Ess" Then ESSENCE2.Value = True ' C'est la ou je coince............ 'Else: ESSENCE2 = fr.range("e" & e) = "Go"   End If   Next m plag = 0

---

pour le button modifie j'utilise ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

plag = 1 For m = 6 To FM.range("c" & Rows.Count).End(xlUp).Row If UCase(FM.range("c" & m)) = UCase(LISTbox2) Then   FM.range("B" & m) = TYPEV2 FM.range("C" & m) = IMMA2 FM.range("D" & m) = AFFECTA2   ' Manque le code pour modifier les Option button   End If Next m

---

Svp...Merci de m'aider

UP

quelqu’un M'aide SVP

Bonjour, ça manque furieusement d'explications!

Code:

---

1 2	'If ESSENCE2 = fr.range("e" & e) = "Ess" Then ESSENCE2.Value = True ' C'est la ou je coince............ 'Else: ESSENCE2 = fr.range("e" & e) = "Go"

---

Que veut dire "c'est la ou je coince..."? ça ne fait pas ce que vous voulez? ça bug? s'il y a un message d'erreur, il faut dire lequel? On n'est pas voyant extra-lucide.

Citation:

---

Manque le code pour modifier les Option button

---

Qu'est-ce que ça veut dire? Si c'est remettre les boutons d'options a zéro voici un code, a mettre à la sauce de votre programme , sinon faudra donner des explications supplémentaires.

Code:

---

1 2 3 4

For y = 1 To 3 NomOption = "OptionButton" & y Controls(NomOption).Value = False Next y

---

Cordialement 8-)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

f plag = 1 Then Exit Sub For m = 6 To FM.range("c" & Rows.Count).End(xlUp).Row If UCase(FM.range("c" & m)) = UCase(LISTbox2) Then 'quand on l'a trouvé, on reporte les indications dans les textbox TYPEV2 = FM.range("B" & m) IMMA2 = FM.range("C" & m) AFFECTA2 = FM.range("D" & m)     'If ESSENCE2 = fr.range("e" & e) = "Ess" Then ESSENCE2.Value = True ' C'est la ou je coince............ 'Else: ESSENCE2 = fr.range("e" & e) = "Go"

---

ici j'ai besoin de code vba pour que quand je clik sur la list box je récupérer les donne

il me reste le code vba pour récupérer les valeur d'option button

exemple ::

je saisie les donne
nom =AZERTY
adresse=QWERTY
option biutoon ) male

je veu que quan je clique sur liste box je repure les donne saisie
pour ce exemple je dois recuperer

azerty
qwerty

et le choix option button c'est ici ou je coine le code vba pour recuperer les valeur option button..

j’espère que je suis tre claire dans mes explication

Code:

---

1 2 3

'If ESSENCE2 = fr.range("e" & e) = "Ess" Then ESSENCE2.Value = True ' C'est la ou je coince............ 'Else: ESSENCE2 = fr.range("e" & e) = "Go"

---

ceci c'est un commentaire pour vous explique ce que je veux


pour la modification c'est clair on modifier pas remettre les option button a zero !!!!!!!!!

modifier une saisie...

le code vba pour modifier le choix...