Bon, elles arrivent quand les cases d'options dans Excel ?

J'adore les nouvelles cases à cocher, mais parfois je ne veux pouvoir en cocher qu'une seule pour une plage spécifique, et que les autres cases à cocher se décochent automatiquement.

VBA permet de faire cela hyper-rapidement :

- clic droit sur la feuille, visualiser le code
- coller le code ci-dessous (généré par une IA alimentée partiellement par 20 ans d'écriture de blogs sur www.xlerateur.com !)
- changer la plage sur laquelle le bouton d'option doit s'appliquer.

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim chkRange As Range
   Set chkRange = Me.Range("A1:A2") ' <-- Plage à ajuster
   If Not Intersect(Target, chkRange) Is Nothing Then
       Application.EnableEvents = False
       Dim cell As Range
       For Each cell In chkRange
           If cell.Address <> Target.Address Then
               cell.Value = False
           End If
       Next cell
       Application.EnableEvents = True
   End If
End Sub

Reste plus qu'à changer le petit carré pour un petit cercle...

Là, c'est un peu moins évident. La suite dans un prochain post si je trouve !