Discussion :

[toz92]

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 :

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
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 :

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

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