Cellule => alpha & numérique

[Sylzer]

Bonjour,

Je souhaite trouver un moyen pour que l'utilisateur de mon fichier soit obligé de respecter un format de saisie dans une cellule spécifié.
Plus précisément, je souhaite obliger qu'en A1, la saisie pour le 1er caractère soit alphabétique, puis les 4 caractères suivant soit numérique et que les 2 derniers soit alphabétique.

Exemple :
A1234BC
D5678DE
Et donc que quelque chose comme A123BC ou 1234BC soit impossible.

Comment faire ?

Si possible :
Est-il envisageable de laisser les 2 derniers caractères facultatif ?

Exemple :
A1234BC
ou
A1234


Merci d'avance à tout ceux prenant de leur temps pour m'aider.

 

[Efgé]

Re : Cellule => alpha & numérique

Bonjour Sylzer,
Une proposition patr VBA, le code est dans le code de la feuille:

Option Compare Text
Private X As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Txt As String
If X = True Or Target.Address <> "$A$1" Then Exit Sub
Txt = Target.Value
X = True
If Not Left(Txt, 5) Like "[A-Z]####" Or Len(Txt) > 7 And Txt <> "" Then
    MsgBox " Le format de saisie doit être respecté"
    Target.ClearContents
End If
X = False
End Sub

Cordialement

 

[tdenfert]

Re : Cellule => alpha & numérique

Bonjour,

Faire donnée validation personnalise formule =ET(CODE(A1)>64;CODE(A1)<91;ESTNUM(STXT(A1;2;4)*1))

 

[Sylzer]

Re : Cellule => alpha & numérique

Merci Efgé,
C’est exactement ce que je recherchais.

Toutefois, je pensé être capable d’adapter ton code si besoin est, à plusieurs cellule devant répondre aux critères.
Mais je n’y arrive pas :s

Je te prit donc de bien vouloir pardonner ma double demande, mais imaginons que le code doive agir sur 2 cellules (A1 et B2), qu’est ce qui serais modifié ?

Encore désolé de ma double demande.

 

[Efgé]

Re : Cellule => alpha & numérique

Bonjour Sylzer, tdenfert

[😡]Ce qui est "génant" n'est pas que tu modifie ta demande, mais que l'on ai l'impression que sans ce nouveau problème tu n'aurais plus donné signe de vie [/😡]

Pour modifier le code:
Si il s'agit de cellules séparées:

If X = True Or Intersect(Target, Range("A1,B2")) Is Nothing Then Exit Sub

Si il s'agit d'une plage de cellule:

If X = True Or Intersect(Target, Range("A1:B2")) Is Nothing Then Exit Sub

Cordialement

 

[Sylzer]

Re : Cellule => alpha & numérique

Merci pour la solution au problème 😉

Bonne journée

 

[R@chid]

Re : Cellule => alpha & numérique

Bonjour,

Faire donnée validation personnalise formule =ET(CODE(A1)>64;CODE(A1)<91;ESTNUM(STXT(A1;2;4)*1))

bonsoir a tous.
belle formule et jolie sans VBA