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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : 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
 
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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