[XL-2010] pb de recuperation de la valeur caption des optionbutton liee a une frame

1 pièce(s) jointe(s)

pb de recuperation de la valeur caption des optionbutton liee a une frame

Bonjour,après de multiple essai non concluent je fais appel a vos connaissance pour m'aider .
j'ai un formulaire contenant des frame avec deux optionbutton "oui" et "non" j'aimerais récupérer la valeur des captions (oui et non ) des optionbutton et les intégrer dans une cellule après un click boutton. voici mon code.

Merci

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
29
30
31
32
33
34
35
36
37
Private Sub ENREGI_Click()
 
Sheets("SUIVI").Select
Dim i As Integer
 
    If SUIVICONTRAT.RAFF = "" Or SUIVICONTRAT.TECH = "" Or SUIVICONTRAT.OTP = "" Then
 
         MsgBox "MERCI DE REMPLIR TOUS LES CHAMPS"
   Else
        i = 1
        Do While Cells(i, 1) <> ""
            Cells(i, 1).Offset(1, 0).Select
            i = i + 1
        Loop
 
             ActiveCell.Value = SUIVICONTRAT.RAFF.Value
            ActiveCell.Offset(0, 1).Value = SUIVICONTRAT.TECH.Value
            ActiveCell.Offset(0, 2).Value = SUIVICONTRAT.OTP.Value
            ActiveCell.Offset(0, 3).Value = SUIVICONTRAT.LIBAFF.Value
            ActiveCell.Offset(0, 4).Value = SUIVICONTRAT.ADRSS.Value
            ActiveCell.Offset(0, 5).Value = SUIVICONTRAT.DATTE.Value
            ActiveCell.Offset(0, 6).Value = SUIVICONTRAT.VOL.Value
            ActiveCell.Offset(0, 7).Value = SUIVICONTRAT.REPORT.Value
            ActiveCell.Offset(0, 8).Value = SUIVICONTRAT.Controls("BUTT" & n).Caption           la forme de cette fonction est due 
            ActiveCell.Offset(0, 9).Value = SUIVICONTRAT.Controls("BUTT" & n).Caption           a la formule décrite après le code
            ActiveCell.Offset(0, 10).Value = SUIVICONTRAT.POFREQ.Value
            ActiveCell.Offset(0, 11).Value = SUIVICONTRAT.Controls("BUTT" & n).Caption
            ActiveCell.Offset(0, 12).Value = SUIVICONTRAT.FACTPIECE.Value
            ActiveCell.Offset(0, 13).Value = SUIVICONTRAT.ASTR.Value
            ActiveCell.Offset(0, 14).Value = SUIVICONTRAT.FACTCORR.Value
            ActiveCell.Offset(0, 15).Value = SUIVICONTRAT.Controls("BUTT" & n).Caption
 
End If
 
            Unload SUIVICONTRAT
 
End Sub

Dans ce bouton j'aimerais intégrer une formule de ce genre

Code:

1
2
3
j=1
For j = j To j + 3    'numéro des boutons
                If Me.Controls("But" & j) Then

"ajout les valeurs des caption dans les cellules comme après la boucle do while

Bonjour,

L'instruction ne devrait-elle pas être déplacée après

Code:

ActiveCell.Offset(0, 13).Value = SUIVICONTRAT.ASTR.Value

Bonjour,
A moins que je n'ai rien compris, je ne vois pas la raison de passer par du VBA si c'est pour placer le choix d'un option button de type formulaire ou ActiveX dans une cellule.
La propriété Cellule liée ne suffit elle pas ?