Format alphanumérique

[Bcuvillier]

Bonjour apres pas mal de temps a chercher, je m'abandonne a l'aide d'une ame charitable. Je cherche un format personnalisé ou code VBA peu importe, permettant d'entrée dans une cellule:
12 chiffre plus une lettre et que cela m'affiche de cette facon:
11111111.11 1.1.A je bloque pour la lettre.

 

[Staple1600]

Re : Format alphanumérique

Bonsoir


Je suis arrivé à ce format personnalisé

###.##.#.#".A"

Il manque l'espace

 

[JeanMarie]

Re : Format alphanumérique

Bonjour

La solution proposée par Staple ne fonctionne pas. Une donnée alphanumérique ne pouvant être saucissonnée dans un format de cellule. Staple fixe la lettre en dure dans le format ce qui n'est pas le cas.

Voici une des solutions en VBA, code à coller dans le code de la feuille, faire clique droit sur l'onglet de la feuille, puis sur "visualiser le code"
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'La modification du contenu sera appliquée uniquement sur les cellules de la colonnes A

If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
   'Vérifie si la cellule contient 13 caractères
   If Len([Target]) = 13 Then
      'Pour éviter le bouclage à l'infi de l'événement "change"
      Application.EnableEvents = False
      [Target] = Mid([Target], 1, 8) + "." + Mid([Target], 9, 2) + " " + Mid([Target], 11, 1) + "." + Mid([Target], 12, 1) + "." + Mid([Target], 13, 1)
      'Il faut réactiver l'évémenent "change"
      Application.EnableEvents = True
   End If
End If
End Sub

Bcuvillier , j'espère avoir répondu à ta question.

@+Jean-Marie

 

[Catrice]

Re : Format alphanumérique

Bonjour,

C'était le Application.EnableEvents = True qui me manquait 😕
Merci JeanMarie
J'étais parti sur Format ... si les 12 premiers caracteres sont toujours numériques ...


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Rows.Count = 1 Then
If Len(Target) = 13 Then
Application.EnableEvents = False
Target = Format(Left(Target, 12), "########"".""##"" ""#"".""#"".""") & Right(Target, 1)
Application.EnableEvents = True
End If
End If
End Sub


Target.Rows.Count = 1 pour pouvoir effacer les données de la colonne A.

 

[Bcuvillier]

Re : Format alphanumérique

Merci Jean MArie, cela marche tres bien mais (il y en a toujours un ) j'aimerai pourvoir limiter uniquemanet au lettre le dernier caractere.
Mon code alphanumerique est toujours de 12 chiffre et d'une lettre. Ensuite j'aimerai un message d'erreur si le code entrer et trop long ou trop court, l'outil validation convient il ou il vaut mieux un code VBA.

 

[Catrice]

Re : Format alphanumérique

Bonjour,

Un exemple ci-joint

 

[Bcuvillier]

Re : Format alphanumérique

Merci pour les premiers coups de mains mais n'ayant pas ete assez precis, cela ne fonctionne pas sur mon fichier.
Le fichier que j'utilise est partagé entre deux pc. Il utilise un fichiser d'echange ou sont stockés les donnés. Les données sont entrés via le fichier 1 qui fonctionne de cette façon:
Dans le fichier 1; j'ai un bouton de commande qui via une macro ouvre le fichier 2 sous forme de formulaire, je rentre mes données, et quand je ferme, la macro copie le fichier et colle le contenue dans le fichier 1; enregristre le fichier 2 et le ferme.
Je sais c'est compliqué mais il n'y a que comme cela que j'ai reussit: je colle ma macro qui commande cela.

"Sub Nouv_article_liquidation()
'
' Nouv_article_liquidation Macro
' Macro enregistrée le 03/02/2006 par BML_FRET
'

'
'geler l'écran

Application.ScreenUpdating = False
Workbooks.Open Filename:="W:\ECHANGE_BML\transit\travail\Fichier d'echange dedouanement\liste_NDP_echange.xls"
Sheets("Liste").Select
ActiveWindow.SmallScroll Down:=-249
Range("A1😀2196").Select
ActiveSheet.ShowDataForm
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("a1:d2200").Select
Selection.Copy
Workbooks("N_édition des FR302.xls").Activate
Sheets("liste").Select
Range("a1:d2200").Select
ActiveSheet.Paste
Workbooks("liste_NDP_echange.xls").Activate
ActiveWorkbook.Save

ActiveWorkbook.Close
Sheets("EDITION LIQUIDATION").Select
End Sub"

C'est dans la collonne deux du fichier 2 ou dans la colonne 2 de la feuille de destination du fichier 1 que je veux la mise en forme. Ici le fait de passer via ma macro a l'air d'annuler le code donné ci dessus.

Soyez indulgent avec ma macro, je debute et je passe par l'enregistreur pour faire cela.🙄

 

[Catrice]

Re : Format alphanumérique

Bonsoir,

Ce que je comprends, c'est qu'en fait les données ne sont pas saisies directement mais copiées à partir d'une auter feuille ...
Dans ce cas effectivement l'evenement Change ne se gere pas de la meme façon.
J'ai modifié la macro dans le fichier joint.
Tu peux la tester, en faisant un copier/coller de la colonne 2 vers la colonne 1, ca fonctionne.

Cependant, le message d'alerte qui indique une saisie incorrecte n'est plus d'actualité en effet tu risques d'avoir 2200 fois le message ...