Code VBA pour OptionButton

Bonjour,

J'ai réaliser un formulaire userform. Dans ce formulaire j'ai plusieurs Frame avec des option button (Petit rond à cocher). Cependant je ne sais pas du tout comment il faut les codés. Mon userform incrémente toujours la première ligne vide.

Un exemple de Frame avec option button :

Gravité :

• Très Grave
• Grave
• Bénin

Je souhaiterais un code pour la fonction suivante :

• Si l'option Button "très grave" est coché alors affiché "10" dans la colonne 2
• Si l'option Button "très grave" est coché alors affiché "5" dans la colonne 2
• Si l'option Button "très grave" est coché alors affiché "1" dans la colonne 2

Dois-je ajouter le code dans celui ci-dessous ou dans le frame auxquel il appartient ?

Private Sub CommandButton1_Click()
If TextBox1 = "" Or TextBox2 = "" Then
MsgBox ("Vous devez remplir les champs")
Exit Sub
End If
derligne = Range("B65535").End(xlUp).Row + 1
Cells(derligne, 2) = ComboBox1
Cells(derligne, 4) = TextBox1
Cells(derligne, 4).Font.ColorIndex = 3
Cells(derligne, 6) = TextBox2
Cells(derligne, 7) = TextBox3
Cells(derligne, 10) = TextBox4
Cells(derligne, 23) = DTPicker1
Cells(derligne, 24) = DTPicker2
Unload Me

End Sub

Merci beaucoup

Bonjour

Dans ce code il sera très bien

Vesrion simple dans la mesure ou d'office un OptionButton est sélectionné

Private Sub CommandButton1_Click()
  If TextBox1 = "" Or TextBox2 = "" Then
    MsgBox ("Vous devez remplir les champs")
    Exit Sub
  End If
  derligne = Range("B65535").End(xlUp).Row + 1
  Cells(derligne, 2) = ComboBox1
  Cells(derligne, 4) = TextBox1
  Cells(derligne, 4).Font.ColorIndex = 3
  Cells(derligne, 6) = TextBox2
  Cells(derligne, 7) = TextBox3
  Cells(derligne, 10) = TextBox4
  Cells(derligne, 23) = DTPicker1
  Cells(derligne, 24) = DTPicker2
If Me.option1 = True Then   ' OptionButton Très Grave
    Cells(derligne, 2) = 10
  ElseIf Me.option2 = True Then   ' OptionButton Grave
    Cells(derligne, 2) = 5
  Else                                         ' OptionButton Bénin
    Cells(derligne, 2) = 1
  End If  Unload Me

End Sub

EDIT: Je vois que la colonne B est déjà occupée

  Cells(derligne, 2) = ComboBox1

Il faut choisir

Merci beaucoup,

Il y avait juste une erreur de compilation que j'ai réussi à corriger en faisant :

If Me.option1 = True Then   ' OptionButton Très Grave
    Cells(derligne, 2) = 10
  ElseIf Me.option2 = True Then   ' OptionButton Grave
    Cells(derligne, 2) = 5
  Else                                         ' OptionButton Bénin
    Cells(derligne, 2) = 1
  End If  
Unload Me

EDIT : Oui pour la colonne B. J'avais juste utiliser cette colonne pour expliquer ma demande sur le forum. Mais dans mon fichier tous est bien différent. J'ai tous adapté comme il faut et cela fonctionne

Merci de votre sens du détail