Fonction SI avec un bouton d'option

Bonjour à tous,

Actuellement, je cherche une solution pratique pour mon fichier.

J'ai 4 bouton d'options que j'ai appelé 1,2,3,4. Le but est si je coche le bouton 1, alors le chiffre 1 s'implémente sur toutes les cellules de la colonne A, si je coche le bouton 2 alors ce sera le chiffre 2 ds cette même colonne (il y a 800 cellules, alors la fonction recopie est assez long)

J'ai commencé avec ce code pour chaque bouton d'option mais ça ne fonctionne que pour un :

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Range("K2:K899") = 1
'fin du test de condition
End If
End Sub

Merci à celui qui pourra m'éclairer

Bonjour

Avec un fichier d'exemple il serait plus facile de te trouver une solution

Bonjour,

au plus simple, seulement pour l'OptionButton1 et si c'est sur une feuille (pas UserForm)

Dim i As Integer
Private Sub OptionButton1_Click()
    If OptionButton1.Value = True Then
        For i = 2 To 899
            Range("K" & i) = 1
        Next i
    End If
End Sub

à faire de même avec les autres OptionButton

Sinon voir avec les Modules de Classe

Bonne Journée

C'est parfait !! Merci beaucoup !