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

Bouzouki 309 Messages postés jeudi 17 août 2006Date d'inscription 5 août 2017 Dernière intervention - 5 août 2017 à 11:09 - Dernière réponse : Bouzouki 309 Messages postés jeudi 17 août 2006Date d'inscription 5 août 2017 Dernière intervention
- 5 août 2017 à 15:33
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 
309Messages postés jeudi 17 août 2006Date d'inscription 5 août 2017 Dernière intervention

8 réponses

Répondre au sujet
cs_Le Pivert 4759 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 11 décembre 2017 Dernière intervention - Modifié par cs_Le Pivert le 5/08/2017 à 11:59
+3
Utile
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/

@+ Le Pivert
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_Le Pivert
0
Utile
1
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 4759 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 11 décembre 2017 Dernière intervention - 5 août 2017 à 12:02
Dans la réponse que j'ai donnée cela est pris en compte!
Commenter la réponse de Pierrot
eriiic 21185 Messages postés mardi 11 septembre 2007Date d'inscriptionContributeurStatut 11 décembre 2017 Dernière intervention - 5 août 2017 à 12:02
0
Utile
3
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 4759 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 11 décembre 2017 Dernière intervention - 5 août 2017 à 12:03
même réponse que pour Pierrot!
eriiic 21185 Messages postés mardi 11 septembre 2007Date d'inscriptionContributeurStatut 11 décembre 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
cs_Le Pivert 4759 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 11 décembre 2017 Dernière intervention > eriiic 21185 Messages postés mardi 11 septembre 2007Date d'inscriptionContributeurStatut 11 décembre 2017 Dernière intervention - 5 août 2017 à 13:24
Merci, bon WE à toi aussi
Commenter la réponse de eriiic
Bouzouki 309 Messages postés jeudi 17 août 2006Date d'inscription 5 août 2017 Dernière intervention - 5 août 2017 à 15:33
0
Utile
Mille mercis !
Vous êtes super (et rapides) !! :-D
Commenter la réponse de Bouzouki