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 !