Version imprimable
Bonjour,
J'aimerais, dans la cellule active que seul les caractères "0123456789+" soit autorisé.
Je fais ça :
ouCode:
2
3
OuCode:
2
3
Cela me retourne invariablement 0 (même si Dix est égal à un caractère de la chaine)Code:
2
3
J'ai aussi tester avec cp en integer
Merci
FikoU
Bonjour,
Personnellement je passerais par la validation de données dont c'est le rôle de restreindre l'encodage suivant critères.
Merci pour cette réponse,
Je débute en VBA je ne connais pas la validation de données.
Validation de données = liste déroulantes ?
Si oui ce la ne va pas dans mon cas, la saisie doit être "rapide" environ 300 cellules à renseigner par lot de 5 cellules...
FikoU
Bonjour,
La Validation de données est une fonctionnalité native d'excel ce n'est pas du VBA.
Pour activer sa boîte de dialogue, il suffit de cliquer sur la commande Validation de données du groupe Outils de données de l'onglet [Données]
La validation de données ne se limite pas aux liste déroulanteCitation:
Validation de données = liste déroulantes ?
Après avoir sélectionné les cellules concernées, il vous suffira de restreindre l'encodage à des nombres entiers au-dessus de la valeur -1.
Vous pouvez également définir une restriction personnalisée mais il me semble que dans votre cas, ce n'est pas nécessaire.
J'ai réussi je ne peux entrer que des chiffres entre 0 et 9
J'aurais voulu aussi insérer le +.
Si on tape + il est affiché 10 (en écrivant ce message je me demande si c'est bien utile)
Merci
FikoU
Hello,
voir ici pour employer une fonction personnalisée utilisant les expressions régulières et utiliser cette fonction dans la validation des données. Il y a un classeur exemple à télécharger.
Pièce jointe 638312
Pièce jointe 638313
Pièce jointe 638314
Ami calmant, J.P
Bonjour,
Merci pour vos réponses.
J'ai pas tout compris surtout que je ne parle pas anglais, mais suite à un empêchement, je n'ai pu y consacrer beaucoup de temps.
Si je définis en A1 une formule, je peux l'appliquer à des plages de cellules.
Bon dimanche
FikoU
Bonjour,
Peut-être n'ai-je rien compris à votre demande mais la simple application d'une validation de données en limitant l'encodage au chiffre de 0 à 9 ainsi que le + ,placé devant, suffit largement
Illustration d'une Validation de données en autorisant les "Nombre entier" dont la valeur est supérieure à -1 appliqué aux colonnes Qté et Prix
Pièce jointe 638331
Bonjour,
J’ai trouvé la solution apportée par jurassic-pork très intéressante car elle permet d'outrepasser les contrôles offerts par Excel dans la validation des données.
Contrôles relativement limités car par exemple il n’est possible que de contrôler la saisie des entiers : ce qui exclut le contrôle sur les nombres décimaux comme 12,1. Sans parler de la saisie d’une adresse courriel où le contrôle de la validation est impossible.
Je le sais bien, il suffit de mettre une procédure événementielle à chaque changement de sélection pour contrôler une saisie, ou de passer par un formulaire, ou autre artifice…
Sachant que l’intérêt de contrôler une saisie est de s’assurer de la cohérence des données : par exemple certains utilisateurs vont saisir un accent dans un nom de famille, d’autres pas, d’où un problème lorsqu’il faut regrouper les données, ou faire des « RechercheV ».
C’est pourquoi j’ai souhaité approfondir le sujet car l’utilisation des expressions régulières permet de répondre à tous ces besoins, en me demandant s’il était possible d’aller plus loin, c’est-à-dire en contrôlant la saisie (prénom n’acceptant que des lettres entre « A » et « Z » et les espaces, mais sans accent, guillemet et autres caractères spéciaux, idem pour le nom de famille) mais aussi en forçant automatiquement le format de la restitution : en mettant le prénom avec la première lettre en majuscule et les autres en minuscule, et le nom de famille en majuscule, que la saisie soit faite par l’utilisateur en majuscule ou minuscule.
Le but étant de gagner en efficacité et en temps de développement : inutile ici de gérer des cas particuliers (par un développement personnalisé) puisque tout est pris en compte par la fonction.
J’ai un peu galéré mais j’ai trouvé une astuce…
Première étape :
Création d’une fonction nommée arbitrairement : « Public Function EstValide() As Variant »
Que nous détaillerons plus loin.
J'ai aussi repris la fonction RegExpMatch du message précédent.
Deuxième étape :
Dans le gestionnaire de noms, créer un nom nommé arbitrairement : « Controle_Validation »
Qui fait référence à : « =EstValide() »
Nous pouvons maintenant paramétrer les conditions de validations des cellules (menu « Données » / « Validation des données »).
Nous y indiquerons à la fois le format de saisi admis et le format de restitution désiré.
Dans la cellule où est saisi le nom de famille :
- Onglet « Options »
o Autoriser : « Personnalisé »
o Case « Ignorer si vide » : non cochée
o Formule : « =Controle_Validation »
- Onglet « Message de saisie »
o Titre : « > »
o Message de saisie : « ^[A-Za-z ]{1,}$ »
Puis décochez la case « Quand la cellule est sélectionnée ».
- Onglet « Alerte d’erreur » : libre à vous de mettre ce que vous souhaitez.
Dans la cellule où est saisi le prénom : Idem mais en titre mettre « >> » au lieu de « > »
La fonction « Public Function EstValide() As Variant » est appelée chaque fois qu’une saisie est réalisée. Elle va prendre comme référence les informations enregistrées dans le « message du titre » pour le modèle de saisie admis et le « titre » comme modèle de format à appliquer.
J’ai un peu triché en appliquant des modèles personnels…
Si le modèle est :
- « IsNumeric » alors j’applique la fonction du VBA « IsNumeric » ;
- « Mail » alors j’applique le modèle « ^[\w\.\-]+@[A-Za-z0-9]+[A-Za-z0-9\.\-]*[A-Za-z0-9]+\.[A-Za-z]{2,24}$ » ;
- « Password » alors j’applique le modèle « ^(?=.*[A-Za-z])(?=.*\d)(?=.*[@$!%*#?&_-])[A-Za-z\d@$!%*#?&_-]{8,}$ » ;
- « Name= » alors j’applique le modèle de la cellule du nom indiqué à la suite de « Name= ». Ce qui permet de faire référence à une cellule qui contient le modèle et une plus grande souplesse dans la maintenance.
Dans les autres cas j’applique le modèle indiqué.
Vous pouvez compléter par d'autres modèles de votre choix...
Idem pour le format où j’ai triché sur le format « >> » qui met la première lettre en majuscule en utilisant la fonction « Application.Proper ».
Là aussi vous pouvez compléter par d'autres formats personnalisés...
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
Notes techniques :
- Je n’ai pas trouvé comment récupérer le résultat de la validation, donc l’usage curieux de « ActiveCell.Value » comme passage temporaire du résultat, puis sa modification…
- ca marche sur ma version d’Excel, pas testé sur d’autres.
Le fichier pour vos tests : Pièce jointe 638499
En attendant vos remarques sur cette façon de faire.
Bonne programmation.
Bonjour,
J'ai complété la fonction EstValide() pour prendre en compte un montant minimal et maximal pour la saisie d'un nombre décimal:
Le modèle est "IsNumeric: ValeurMini ; ValeurMaxi". Exemple: IsNumeric: -99,99 ; 99,99
Et la possibilité de l'arrondir à la précision désirée en indiquant dans le titre un nombre entre 0 et 15.
J'ai aussi ajouté la possibilité d'utiliser l'opérateur LIKE. Enregistrez "Like=" suivi de la règle.
LIKE est beaucoup moins puissant que les expressions régulières mais plus simple à comprendre et peut être utilisé sur des règles simples de longueur fixe.
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
