Pb récuperation des valeurs optionbutton de plusieur 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

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

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,

Je suis pas sur d'avoir tout saisi, mais pour récupérer la valeur des captions tu dois pouvoir utiliser :

Range ou Cell(" ")  = OptionButton1.Caption

Bonjour

Ton fichier serait plus utile

Bonjour JeremyW

.

merci pour ta réponse mais ce n'est pas celle posée j'ai mis a jour mon post et ajouté un lien

Bonjour

Ne connaissant pas exactement le fonctionnement de ton programme

J'ai considéré que pour chaque Frame si le bouton "Oui" n'était pas sélectionné c'était obligatoirement le bouton "Non"

A tester

Private Sub ENREGI_Click()
Dim Ligne As Long

  If Me.RAFF = "" Or Me.TECH = "" Or Me.OTP = "" Then
    MsgBox "MERCI DE REMPLIR TOUS LES CHAMPS"
  Else
    Sheets("SUIVI").Select
    Ligne = Range("A" & Rows.Count).End(xlUp).Row + 1

    Range("A" & Ligne) = Me.RAFF.Value
    Range("B" & Ligne) = Me.TECH.Value
    Range("C" & Ligne) = Me.OTP.Value
    Range("D" & Ligne) = Me.LIBAFF.Value
    Range("E" & Ligne) = Me.ADRSS.Value
    Range("F" & Ligne) = Me.DATTE.Value
    Range("G" & Ligne) = Me.VOL.Value
    Range("H" & Ligne) = Me.REPORT.Value
    Range("I" & Ligne) = IIf(Me.BUTT1 = True, "OUI", "NON")
    Range("J" & Ligne) = IIf(Me.BUTT3 = True, "OUI", "NON")
    Range("K" & Ligne) = Me.POFREQ.Value
    Range("L" & Ligne) = IIf(Me.BUTT5 = True, "OUI", "NON")
    Range("M" & Ligne) = Me.FACTPIECE.Value
    Range("N" & Ligne) = Me.ASTR.Value
    Range("O" & Ligne) = Me.FACTCORR.Value
    Range("P" & Ligne) = IIf(Me.BUTT7 = True, "OUI", "NON")
End If
Unload Me
End Sub

Merci Banzaii c'est tout a fait ce que je voulais . a très bientôt j'ai plein d'autre question