Re : Maintenance préventive à lisser par année jusqu'en 2023
Bonjour,
Tous d'abord je tiens à te remercier pour ce travail exceptionnel effectivement ça marche avec les 4600 lignes par contre ca ne va pas jusqu'en 2023 ?
Est il possible de choisir jusqu'à quel date on souhaite lisser ainsi que le pas de maintenance dans mon exemple tous les 10 ans mais pour une autre intervention j'aurai besoin tous les 5 ans ...
De plus j'ai 46000 adresse et quand je met les 46000 adresses ainsi que code postaux dans la feuille données, j'ai une petite erreur il bloque à 4023...
"Stop ' Element inconnu à ajouter à la liste"
C'est dans :
Select Case Controle
Case "AVENUE", "AV", "ALLEE", "BD", "DOM", "PL", "PLACE", "RUE", "SENTE", "IMPASSE"
.Range("A" & Tourne) = Split(Lecture, Controle)(0)
.Range("B" & Tourne) = Controle & Split(Lecture, Controle)(1)
Case 1 To 9999
Controle = Split(Lecture)(2)
GoTo Bis
Case Else
Controle = Split(Lecture)(0)
Tour = Tour + 1
If Tour < 2 Then GoTo Bis
Stop ' Element inconnu à ajouter à la liste
End Select
Ci-joint le fichier avec les 46000 lignes :
En tous cas merci beaucoup pour ton aide précieusement !