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.


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/

Cette réponse vous a-t-elle aidé ?  
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 4616Messages postés jeudi 13 septembre 2007Date d'inscription ContributeurStatut 17 octobre 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 4616Messages postés jeudi 13 septembre 2007Date d'inscription ContributeurStatut 17 octobre 2017 Dernière intervention - 5 août 2017 à 12:03
même réponse que pour Pierrot!
Répondre
eriiic 21106Messages postés mardi 11 septembre 2007Date d'inscription ContributeurStatut 18 octobre 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 4616Messages postés jeudi 13 septembre 2007Date d'inscription ContributeurStatut 17 octobre 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 !