Discussion :

[fikou]

Bonjour,
J'aimerais, dans la cellule active que seul les caractères "0123456789+" soit autorisé.

Je fais ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim cp As Variant
 
 cp = InStr(dix, "0123456789+")

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim cp As Variant
 
 cp = InStr(1,dix, "0123456789+")

Ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim cp As Variant
 
 cp = InStr(1, dix, "0123456789+",1)

Cela me retourne invariablement 0 (même si Dix est égal à un caractère de la chaine)
J'ai aussi tester avec cp en integer

Merci
FikoU

[Philippe Tulliez]

Bonjour,
Personnellement je passerais par la validation de données dont c'est le rôle de restreindre l'encodage suivant critères.

[fikou]

Merci pour cette réponse,
Je débute en VBA je ne connais pas la validation de données.

[fikou]

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

[Philippe Tulliez]

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]

Validation de données = liste déroulantes ?

La validation de données ne se limite pas aux liste déroulante

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.

[fikou]

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