Données autorisées dans une plage de cellules
Résolu
Denis 57
-
Denis 57 -
Denis 57 -
Bonjour,
Je souhaiterais que lorsqu'il est tapé des données non autorisées dans une plage de cellules (ici : pas de texte et à la fois pas de numéros supérieurs à 100; en fait n'autoriser que les numéros de 1 à 100) il ne se passe rien : le texte ou les numéros non autorisés ne s'affichent pas, et également aucun message ne s'affiche.
J' ai essayé "Données - Validation" sans pouvoir y parvenir.
Existe-t-il une solution ?
Merci
Je souhaiterais que lorsqu'il est tapé des données non autorisées dans une plage de cellules (ici : pas de texte et à la fois pas de numéros supérieurs à 100; en fait n'autoriser que les numéros de 1 à 100) il ne se passe rien : le texte ou les numéros non autorisés ne s'affichent pas, et également aucun message ne s'affiche.
J' ai essayé "Données - Validation" sans pouvoir y parvenir.
Existe-t-il une solution ?
Merci
A voir également:
- Données autorisées dans une plage de cellules
- Fuite données maif - Guide
- Supprimer les données de navigation - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Verrouiller cellules excel - Guide
- Aller à la ligne dans une cellule excel - Guide
2 réponses
Bonjour
Avec validation de données ça fonctionne mais tu as un message d'erreur
Pour n'avoir aucun message mais que les valeurs indésirables soient automatiquement effacées il faut une macro en VBA mise dans le worksheet de la feuille : ALT+F11 pou ouvrir l'éditeur, double-clic sur la feuille concernée dans l'arborescence, copier-coller la macro suivante, modifier la plage pour l'adapter à ton fichier puis fermer l'éditeur
Cdlmnt
Via
Avec validation de données ça fonctionne mais tu as un message d'erreur
Pour n'avoir aucun message mais que les valeurs indésirables soient automatiquement effacées il faut une macro en VBA mise dans le worksheet de la feuille : ALT+F11 pou ouvrir l'éditeur, double-clic sur la feuille concernée dans l'arborescence, copier-coller la macro suivante, modifier la plage pour l'adapter à ton fichier puis fermer l'éditeur
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:C4")) Is Nothing Or Target.Value = "" Then Exit Sub
If Not IsNumeric(Target.Value) Or Target.Value < 1 Or Target.Value > 100 Then
Cells(Target.Row, Target.Column) = ""
End If
End Sub
Cdlmnt
Via