Signaler

Compter les numéros d'immatriculation ? [Résolu]

Posez votre question Bouzouki 309Messages postés jeudi 17 août 2006Date d'inscription 5 août 2017 Dernière intervention - Dernière réponse le 5 août 2017 à 15:33 par Bouzouki
Bonjour,

Dans le nouveau système d'immatriculation, le SIV, on une combinaison de 2 lettres + 3 chiffres + 2 lettres ; exemple AA-001-AA

Je sais (intuitivement, LOL) qu'entre les plaques AA-001-AA et AA-999-AA, il y a eu 999 véhicules ; et 1.998 entre AA-001-AA et AA-999-AB....

Mais comment puis-je dénombrer les plaques entre deux numéros ? AB-425-CC et GH-321-VA par exemple ?

Merci par avance de votre aide.


Afficher la suite 
Utile
+3
plus moins
Bonjour,

En vba:

Option Explicit
Private Sub CommandButton1_Click()
Dim plus As String
Dim moins As String
plus = InputBox("Saisie plus grande immatriculation : ", "Immatriculation", "GH-321-VA")
plus = NLib(plus)
moins = InputBox("Saisie plus petite immatriculation : ", "Immatriculation", "AB-425-CC")
moins = NLib(moins)
MsgBox (plus - moins)
End Sub
'https://www.excel-downloads.com/threads/incrementation-da-lalphabet-pour-calcul-nb-nouvelle-plaque-immat.141512/
Function NLib(r$)
'Exemple : transforme BQ-020-YC en 20 000 000
Application.Volatile
Dim a$, ch$, sp
  ch = "ABCDEFGHJKLMNPQRSTVWXYZ"
  a = Replace(r, "-", Space(1))
  If a Like "[A-Z][A-Z] ### [A-Z][A-Z]" And Not (a Like "*000*" Or a Like "*[IOU]*" Or a Like "*SS*" Or a Like "WW*") Then
    sp = Split(a)
    NLib = 999 * (528 * (23 * (InStr(1, ch, Left$(sp(0), 1))) + (InStr(1, ch, Right$(sp(0), 1))) + _
      (sp(0) > "SR") + (sp(0) > "WV")) + 23 * InStr(1, ch, Left$(sp(2), 1)) + _
      (InStr(1, ch, Right$(sp(2), 1))) + (sp(2) > "SR") - 12696) + sp(1)
  Else
    NLib = ""
  End If
End Function



Si tu veux par formules voir ici:

https://www.excel-downloads.com/threads/incrementation-da-lalphabet-pour-calcul-nb-nouvelle-plaque-immat.141512/

Donnez votre avis
Utile
+0
plus moins
C'est compliqué, car il faut prendre en compte que certaines lettres comme le I, le O et le U ne sont pas autorisées, et certaines combinaisons comme WW non plus.
cs_Le Pivert 4509Messages postés jeudi 13 septembre 2007Date d'inscription ContributeurStatut 10 août 2017 Dernière intervention - 5 août 2017 à 12:02
Dans la réponse que j'ai donnée cela est pris en compte!
Répondre
Donnez votre avis
Utile
+0
plus moins
Bonjour,

il faudrait tenir compte que certaines lettres comme I, O ne sont (ou du moins n'étaient, ça a peut-etre évolué)
eric
cs_Le Pivert 4509Messages postés jeudi 13 septembre 2007Date d'inscription ContributeurStatut 10 août 2017 Dernière intervention - 5 août 2017 à 12:03
même réponse que pour Pierrot!
Répondre
eriiic 20796Messages postés mardi 11 septembre 2007Date d'inscription ContributeurStatut 12 août 2017 Dernière intervention - 5 août 2017 à 13:03
C'était pour Bouzouki, je n'ai vu ta réponse qu'après :-)
Bon we
Répondre
cs_Le Pivert 4509Messages postés jeudi 13 septembre 2007Date d'inscription ContributeurStatut 10 août 2017 Dernière intervention - 5 août 2017 à 13:24
Merci, bon WE à toi aussi
Répondre
Donnez votre avis
Utile
+0
plus moins
Mille mercis !
Vous êtes super (et rapides) !! :-D
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !