Excel case à cocher unique
Excel : Autoriser une seule case cochée par ligne ou par colonne
🎯 Dans ce tutoriel, je vous montre une astuce simple et très pratique pour contrôler les sélections de case à cocher.
✅ Ainsi, que ce soit pour un tableau d'évaluation, une feuille de suivi, un formulaire, ou tout autre besoin, vous allez apprendre à autoriser une seule case cochée par ligne ou par colonne, pour éviter toute confusion et gagner en lisibilité.
👍 Grâce à cette astuce, vos tableaux Excel deviennent plus efficaces, plus interactifs et beaucoup plus lisibles. En autorisant une seule case cochée, par ligne ou par colonne, vous facilitez la lecture, limitez les erreurs de saisie dans vos feuilles de calcul.
➡️ N'hésitez pas à adapter les exemples proposés selon vos propres besoins : suivi de commande, formulaire dynamique, tableau de gestion de projet ou sondage rapide… les possibilités sont nombreuses !
Voir la vidéo pour suivre les différentes étapes :
Pour vous entraîner et répéter les étapes de ce tutoriel,
➡️ Télécharger le fichier Excel utilisé dans la vidéo.
👇
Après avoir ouvert le lien:
- Vous cliquez sur "Fichier",
- Puis sur "Enregistrer une copie" ou sur "Créer une copie",
- Et sur "Télécharger une copie".
Un autre tutoriel qui pourrait vous intéresser :
📌↪️→ Code VBA à utiliser pour autoriser une seule case à cocher par colonne
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
If Not Intersect(Target, Range("D5:D8")) Is Nothing Then
Application.EnableEvents = False
For Each cell In Range("D5:D8")
If cell.Address <> Target.Address Then
cell.Value = False
End If
Next cell
Application.EnableEvents = True
End If
End Sub
📌↪️→ Code VBA à utiliser pour autoriser une seule case à cocher par ligne
Private Sub Worksheet_Change(ByVal Target As Range)
Dim col As Long
Dim row As Long
If Not Intersect(Target, Range("C5:E8")) Is Nothing Then
Application.EnableEvents = False
row = Target.row
' Colonnes C=3 à E=5
For col = 3 To 5
If Cells(row, col).Address <> Target.Address Then
Cells(row, col).Value = False
End If
Next col
Application.EnableEvents = True
End If
End Sub
