A voir également:
- Cette valeur ne correspond pas aux restrictions de validation des données pour cette cellule
- Problème de restrictions ✓ - Forum - Excel
- Restriction de valeur sur Excel ✓ - Forum - Excel
- Validation de données ne fonctionne plus ?? ✓ - Forum - Excel
- Excel cette valeur ne correspond pas aux restrictions de validation des données pour cette cellule ✓ - Forum - Excel
- Validation des données ✓ - Forum - Excel
3 réponses
via55
- Messages postés
- 12998
- Date d'inscription
- mercredi 16 janvier 2013
- Statut
- Membre
- Dernière intervention
- 13 avril 2021
Bonjour
Selectionne la plage A1:A5 puis dans le ruban Données - Validation de données
Dans Autorisé tu choisis Personnalisé
et dans Formule tu entres ceci :
=NB.SI($A$1:$A$5;"X")<2
Cette manip a cependant une limite : elle n'empêche de rentrer une valeur interdite en fasant un copier-coller
Pour une protection complète il faut passer par une macro
Cdlmnt
Via
Selectionne la plage A1:A5 puis dans le ruban Données - Validation de données
Dans Autorisé tu choisis Personnalisé
et dans Formule tu entres ceci :
=NB.SI($A$1:$A$5;"X")<2
Cette manip a cependant une limite : elle n'empêche de rentrer une valeur interdite en fasant un copier-coller
Pour une protection complète il faut passer par une macro
Cdlmnt
Via
via55
- Messages postés
- 12998
- Date d'inscription
- mercredi 16 janvier 2013
- Statut
- Membre
- Dernière intervention
- 13 avril 2021
re,
Dans ce cas là vaut peut être mieux passer par une macro
Macro ci-dessous à copier-coller dans le worksheet de la feuille concernée
ALT+F11 pour ouvrir l'éditeur VBA
Double-clic sur le nom de la feuille dans l'arborescence à gauche
Copier-coller la macro dans la page blanche et fermer l'éditeur
Dans ce cas là vaut peut être mieux passer par une macro
Macro ci-dessous à copier-coller dans le worksheet de la feuille concernée
ALT+F11 pour ouvrir l'éditeur VBA
Double-clic sur le nom de la feuille dans l'arborescence à gauche
Copier-coller la macro dans la page blanche et fermer l'éditeur
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A5")) Is Nothing And Target.Value <> "" Then
If Target.Value <> "X" Or Application.WorksheetFunction.CountIf(Range("A1:A5"), "X") > 1 Then
Cells(Target.Row, Target.Column) = ""
MsgBox "Vous ne pouvez entrer qu'un X et dans une seule des 5 cellules"
End If
End If
End Sub
B1 = Choix 1
B2 = Choix 2
B3 = Choix 3
B4 = Choix 4
B5 = Choix 5
A1 à A5 c'est pour mettre un X. Mais je veux obliger 1 choix seulement.
Ou vous auriez une meilleur solution?