Interdire une lettre

DITESMOICOMMENTFOFAIRE Messages postés 1 Statut Membre -  
 Ditesmoicommentfofaire -
bonjour,

ayant déjà une validation des données et ne sachant pas en ajouter une autre ,
comment en VBA interdire la saisie d'une lettre dans une plage ?
merci !!!!

3 réponses

  1. JCB40 Messages postés 3060 Date d'inscription   Statut Membre Dernière intervention   479
     
    Bonjour,
    Un exemple de votre fichier avec explications serait le bienvenu.
    Pour transmettre un fichier,
    Veillez à ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
    il faut passer par un site de pièce jointe tel que cjoint.com

    Allez sur ce site : https://www.cjoint.com/
    Clic sur parcourir,
    Cherche ton fichier,
    clic sur ouvrir,
    Clic sur "Créer le lien cjoint",
    Copier le lien,
    Revenir ici le coller dans une réponse...
    Cordialement

    0
  2. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 784
     
    Bonjour,

    Pas besoin de VBA, pour une validation de donnée multicritères, il faut utiliser une validation personnalisée avec une formule qui renvoie le booléen VRAI pour accepter la donnée (et donc FAUX pour la refuser).

    Par exemple, pour ajouter en A1, le critère : ne contient pas la lettre A, utiliser la fonction ET() :
    =ET(PremierCritère; TROUVE("A";A1 & "A")>NBCAR(A1))

    0
    1. Ditesmoicommentfofaire
       
      En fait j'ai déjà une autre validation des données pour cette cellule... C pour cela que j'aimerai passer par vba..
      0
    2. Ditesmoicommentfofaire
       
      La vdd existante est sur la longueur du texte
      Comprise entre
      Minimum 7
      Maximum 8
      0
    3. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 784
       
      Donc la formule devient :
      =ET(OU(NBCAR(A1)=7;NBCAR(A1)=8); TROUVE("O";A1 & "O")>NBCAR(A1))
      Exemple :
      https://mon-partage.fr/f/HIx67sP3/
      0
    4. Ditesmoicommentfofaire
       
      Merci. Je regarde
      0
  3. Ditesmoicommentfofaire
     
    Bonjour. Impossible d'envoyer mon fichier car il est sur mon poste au bureau et réseau très surveillé et restreint..

    Plus précisément, il ne faut pas que l'on puisse saisir la lettre O dans une chaine de 8 caractères alphanumériques dans la cellule a1 par exemple..

    Merciiii
    0
    1. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 784
       
      Re,

      Formule de validation pour la cellule A1 (à adapter) :
      =ET(NBCAR(A1)=8; TROUVE("O";A1 & "O")>NBCAR(A1))

      Refusera toute saisie de longueur différente à 8 caractères et toute saisie contenant la lettre O (majuscule).

      EDIT : pour refuser aussi bien O (majuscule) que o (minuscule) remplacer TROUVE par CHERCHE
      0