Bonjour,
Voici une proposition avec une fonction personnalisée mais je ne suis pas totalement certain du résultat.
Il y a quelques pré-requis à respecter :
- enregistrer le fichier au format .xlsm,
- activer le volet "Développeur" (si ce n'est pas déjà fait) : Volet "Fichier" / Options / Personnaliser le ruban > cocher "développeur",
- sur le volet "Développeur", ouvrir l'éditeur "Visual Basic" (raccourci Alt + F11),
- dans le menu "Outils"/ Références : sélectionner "Microsoft VBScript Regular Expressions 5.5",
- dans le menu contextuel "Insertion", sélectionner "Module",
- aller sur ce nouveau module et y copier le code :
Function MATCH_CARS(chaine As String, modele as string) As boolean
Dim ExpReg As REGEXP
Dim nbcar%
Set ExpReg = CreateObject("vbscript.regexp")
nbcar = len(modele)
With ExpReg
.Global = True
.Pattern = "^[" & modele & "]{" & nbcar & "}$"
If .test(chaine) Then
MATCH_CARS = True
End If
End With
End function
A saisir sur excel :
=MATCH_CARS(B1;$A$1)
où B1 est le cellule à tester et A1 est la cellule modèle à comparer.
Cdlt,