Affecter la valeur d'une case d'option à une cellule colonne

Bonjour à tous,

je viens de parcourir le forum, mais je ne trouve pas mon bonheur,

je cherche un code vba qui me permette d'affecter au moyen d'un formulaire, la valeur de cases d'options vers les cellules d'une colonne définie

Merci de m'aider encore une fois

Amicalement

Pierrot

Bonjour Pierre,

A+

Bonjour, frangy

Un tout grand merci

Si je voulais affecter ce code à une feuille déterminée, que dois-je ajouter

par exemple affecter à la feuille "Clients" ?

Private Sub CommandButton1_Click()
    If Me.OptionButton1 = True Then
        Range("M1") = OptionButton1.Caption
    Else
        Range("M1") = OptionButton2.Caption
    End If
    If Me.OptionButton3 = True Then
        Range("M2") = OptionButton3.Caption
    Else
        Range("M2") = OptionButton4.Caption
    End If
    If Me.OptionButton5 = True Then
        Range("M3") = OptionButton5.Caption
    Else
        Range("M3") = OptionButton6.Caption
    End If
    UserForm1.Hide
End Sub

Bonne soirée

Pierrot

Tu encadres les instruction avec With WorkSheets("Clients") ... End With

Private Sub CommandButton1_Click()
    With Worksheets("Clients")
        If Me.OptionButton1 = True Then
            .Range("M1") = OptionButton1.Caption
        Else
            .Range("M1") = OptionButton2.Caption
        End If
        If Me.OptionButton3 = True Then
            .Range("M2") = OptionButton3.Caption
        Else
            .Range("M2") = OptionButton4.Caption
        End If
        If Me.OptionButton5 = True Then
            .Range("M3") = OptionButton5.Caption
        Else
            .Range("M3") = OptionButton6.Caption
        End If
    End With
    UserForm1.Hide
End Sub

A+

c'est dingue frangy ,

ça fonctionne

encore merci et à bientôt peut-être ?

Amitiés

Pierrot