XL 2016 VBA - Multicrittere LIKE

[tomy]

Salut les excelliens,

J'ai des conditions SI avec LIKE pour valider qu'une cellule contient bien un caractère.
Je souhaitai autoriser 4 caractère différents...
Je peux enchainer 4 condition avec AND mais cela commence devenir illisible.
Des idées ?

Merci.

 

[job75]

Bonjour tomy,

Des idées ?

Avec un fichier joint elles seront sûrement lumineuses 🙄

Edit : avant la modification de votre message vous parliez de cellules fusionnées 😡

A+

 

[job75]

Bon pas besoin de VBA, voyez le fichier joint et la validation des données sur la colonne A :

=ET(NBCAR(A1)=4;GAUCHE(A1)<>STXT(A1;2;1);GAUCHE(A1)<>STXT(A1;3;1);GAUCHE(A1)<>DROITE(A1);STXT(A1;2;1)<>STXT(A1;3;1);STXT(A1;2;1)<>DROITE(A1);STXT(A1;3;1)<>DROITE(A1))

 

[job75]

Pour la validation des données on peut aussi utiliser cette formule :

=(NBCAR(A1)=4)*(SOMME(N(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)=TRANSPOSE(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1))))=4)

C'est une formule matricielle mais elle ne nécessite pas ici la validation Ctrl+Maj+Entrée.

Cette formule sera très utile si par exemple on veut remplacer 4 par 10...

Fichier (2).

 

[tomy]

ok merci. cela ira bien 😉