Limiter la saisie à un format particulier

Bonjour,

Joins nous un fichier exemple en le mettant sur cjoint.com

Comment tes données sont remplies ? Manuellement ou avec extraction d'un autre fichier ?

Cordialement

Quelle efficacité merci.

https://www.cjoint.com/?0DwkgPxF00A voici pour le lien du fichier, j'ai juste supprimé la deuxième feuille car elle contenait des données.

Et mes données sont remplies manuellement. D'où l'intérêt de limiter la saisie afin d'éviter les erreurs de saisie.

Bonjour

pour le fun par les expressions rationnelles

Function verif_format2(texto As String) As Boolean
     Dim reg As Object
     Dim verif As Object
     Set reg = CreateObject("vbscript.regexp")
     reg.Global = False
     reg.Pattern = "^[P]\s[0-9]{6}\s[A-Z]"
     Set verif = reg.Execute(texto)
     verif_format2 = (verif.Count = 1)
End Function 

par ex si le format à vérifier est dans la cellule A2
Function verif_format2(tu cliques sur A2) renvoie Vrai ou faux
si tu veux vérifier la colonne tu tires vers le bas

nota: sensible à la casse (n'admet que des lettres majuscules)

Michel

Merci, mais ce n'est pas ce que je recherches.

La personne doit saisir en A un "identifiant client" qui est sous le format précité. Si la saisie est incorrecte, impossible de saisir ou message d'alerte.

Désolé si je n'ai pas été assez précis.

Peut-^tre comme ca
saisir l'identifiant colonne A
https://www.cjoint.com/?3Dwk0mz1clJ

code dans le module feuil1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("A")) Is Nothing And Target.Value <> "" Then
    If Not verif_format2(Target.Value) Then MsgBox "erreur de saisie"
End If
End Sub

la fonction proposée tout à l'heure dans un module standard

Michel

And Target.Value <> "" Then
If Not verif_format2(Target.Value) Then MsgBox "erreur de saisie"

Ca ne signifie pas que si j'ai une saisie différente de "rien" j'aurais un message bloquant erreur de saisie?

Bon faisons autrement, car je n'aime pas quand on bosse à ma place, pis c'est comme ça qu'on apprend au moins.

Grâce aux différentes aides, j'arrive à cela :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B:B")) Is Nothing And Target.Value <> "^[P][0-9]{6}[A-Z]" Then
MsgBox "erreur de saisie " 
End If
End Sub

C'est un bon début, j'ai au moins un texte qui s'affiche quand je saisi quelque chose dans la colonne du moins ca me met erreur de saisie

Mais peu importe les données saisies, c'est toujours en erreur
Mais quand je rajoute à la fin

& Target.Address

Ca me met erreur de saisie dans B(x+1) quand je fais entrée.

Et si je reclique sur la cellule B(x) j'ai aussi le message erreur de saisie avec la correspondance de la bonne cellule.

Des pistes pour m'aider?