XL 2013 Validation de donnée Excel

[Dofing]

Bonjour à toutes et à tous,
Je cherche à imposer un format personnalisé de saisie dans une cellule, mais je ne parviens pas à trouver la formule de validation personnalisée des données.

Le format requis est :

- La Colonne doit commencer par une lettre Majuscule entre A et Z
- Suivi ensuite par des chiffres (maximum 07 chiffres)
- La informations saisies ne doivent pas contenir d'espace
- La cellule ne doit pas contenir de doublon.

Cordialement.

 

[job75]

Bonjour Dofing, bienvenue sur XLD,

Bon problème pour un 1er post 🙂

Voyez le fichier joint et cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim P As Range, c As Range, txt$, i%, x$
Set P = Intersect(Target, [A:A], UsedRange) 'colonne à adapter
If P Is Nothing Then Exit Sub
If Application.CountA(P) = 0 Then Exit Sub
For Each c In P 'si entrées multiples (copier-coller)
    If c.Row > 1 Then 'en-têtes en ligne 1
        txt = CStr(c)
        If txt <> "" Then
            If Len(txt) = 1 Or Len(txt) > 8 Then P = "": Exit Sub 'si nombre de caractères =1 ou > 8
            If Asc(txt) < 65 Or Asc(txt) > 90 Then P = "": Exit Sub  'si autre qu'une lettre majuscule
            For i = 2 To Len(txt)
                x = Mid(txt, i, 1)
                If Asc(x) < 48 Or Asc(x) > 57 Then P = "": Exit Sub 'si autre qu'un chiffre
                If Len(txt) - Len(Replace(txt, x, "")) > 1 Then P = "": Exit Sub 'si doublon
            Next i
        End If
    End If
Next c
End Sub

Edit : ajouté le test If txt <> "" Then

A+

 

[Dofing]

Bonjour,

Merci de votre réaction rapide

Je n'utilise pas de macro de mon tableau.

j'essaye de faire cette configuration dans la validation de donnée.

Cordialement.

 

[job75]

j'essaye de faire cette configuration dans la validation de donnée.

Formule de Validation des données sur la colonne A du fichier joint :

=ET(NBCAR(A1)>1;NBCAR(A1)<9;CODE(A1)>64;CODE(A1)<91;-STXT(A1;2;7)=ENT(-STXT(A1;2;7));MAX(NBCAR(A1)-NBCAR(SUBSTITUE(A1;LIGNE(INDIRECT("1:10"))-1;)))<2)

 

[job75]

Fichier (2) avec une formule de Validation un tout petit peu plus simple :

=ET(NBCAR(A1)>1;NBCAR(A1)<9;CODE(A1)>64;CODE(A1)<91;NON(MOD(STXT(A1;2;7);1));MAX(NBCAR(A1)-NBCAR(SUBSTITUE(A1;LIGNE(INDIRECT("1:10"))-1;)))<2)

 

[Dofing]

J'ai vérifier mais les doublons, et les espaces entre lettres et chiffres sont possibles

 

[job75]

J'ai vérifier mais les doublons, et les espaces entre lettres et chiffres sont possibles

Fichier (3), j'ai ajouté le critère ESTERR(TROUVE(" ";A1)) ainsi que "" à la fin du test sur les doublons :

=ET(NBCAR(A1)>1;NBCAR(A1)<9;CODE(A1)>64;CODE(A1)<91;NON(MOD(STXT(A1;2;7);1));ESTERR(TROUVE(" ";A1));MAX(NBCAR(A1)-NBCAR(SUBSTITUE(A1;LIGNE(INDIRECT("1:10"))-1;"")))<2)

 

[Victor21]

Bonjour, Dofing, Gérard 🙂

J'ai vérifier mais les doublons,[...] sont possibles

Rajoutez NB.SI($A:$A;A1)=1

 

[job75]

Bonjour Dofing, Patrick, le forum,

Il faut en effet savoir ce qu'on entend par doublon, le post #1 n'est pas clair.

Pour moi il s'agit d'éviter 2 chiffres identiques dans une même cellule.

Pour Patrick il s'agit d'éviter 2 cellules identiques en colonne A.

A Dofing de dire ce qu'il veut.

Bonne journée.

 

[Dofing]

Bonjour Patrick,

Cette configuration est destiné à être appliquée à une colonne en entier, Il s'agit d'éviter qu'une même référence soit répéter à différents cellules dans la même colonne.

Par exemple C19354 en cellule A2 et C19354 en cellule A18.

Cordialement.

 

[job75]

Bonjour Dofing, le forum,

Donc utilisez ce fichier (4) avec la formule de validation :

=ET(NBCAR(A1)>1;NBCAR(A1)<9;CODE(A1)>64;CODE(A1)<91;NON(MOD(STXT(A1;2;7);1));ESTERR(TROUVE(" ";A1));NB.SI(A:A;A1)=1)

Bonne journée.

 

[Dofing]

Bonjour,

Merci à tous et toute la formule fonctionne.

 

[Dofing]

Bonjour,

Il y a de cela quelques j'ai solliciter et obtenu votre aide avec une formule me permettant de "En colonne A entrez une lettre majuscule suivie d'un maximum de 7 chiffres sans doublon"

En plus de ce code et toujours dans la colonne A je cherche maintenant à mettre une formule qui autorisera la saisie du mot "Sans D24"

J'ai essayé à plusieurs reprise sans succès, Merci de votre support

 

[job75]

Bonjour Dofing,

C'est du réchauffé et tel que présenté ça n'a plus beaucoup de sens.

A+

 

[Dofing]

En fait, j'ai besoin d'une formule pour autoriser la saisie du mot "Sans D24" dans la colonne A dans le fichier ci-joint.