Bonjour,

ton fichier modifié...

Pour la date, c'est "OK", pour l'indisponibilité, dans la feuille "Informations", tu mets un X, par exemple, dans la colonne D, en face du véhicule, et celui-ci n'apparaîtra pas dans la liste des véhicules.

Bonne journée, (sous la pluie, ici, en Bretagne...)

Bonsoir,

tu me dis que :

Cependant, le message "La date entrée ne correspond pas à cette semaine" ne fonctionne pas.

Tu peux préciser?

Et pour rendre une voiture indisponible, tu as un moyen, ou une méthode, dans ton fichier?

A te relire

Bonjour,

Regarde le fichier joint, un premier jet...

Pour annuler une réservation, clique sur celle-ci, et clique sur le bouton "Annulation"

Re-,

Didier, code légèrement modifié

pour initialiser les comptes

Sub hubert()
t = Timer
Application.ScreenUpdating = False
Dim MesNums As Object, Cel As Range, Cde As Integer
Set MesNums = CreateObject("Scripting.Dictionary")
Cde = 1
For Each Cel In Range("B1:B" & [B65000].End(xlUp).Row)
    If Not MesNums.Exists(Cel.Value) Then
        MesNums.Add Cel.Value, Cde
        Cel.Offset(0, 1).Value = Cde
        Cde = Cde + 1
    Else
        temp2 = MesNums.items
        temp1 = MesNums.keys
        For i = 0 To MesNums.Count
            If temp1(i) = Cel.Value Then Cells(Cel.Row, 1).Value = temp2(i): Exit For
        Next i
    End If
Next Cel
[G2] = Timer - t
End Sub

Bonsoir, Didier

Loin de moi, cette envie de vouloir polémiquer

Mais tes résultats m'étonnent....

je joins un fichier, allégé, avec un code qui remplit les 40 000 lignes (pour ne pas alourdir le fichier)

Ensuite, un bouton, avec ton code, et un autre, avec le mien

J'ai laissé les résultats obtenus sur mon PC (PS, WinXp, et Vista, peut-être?)

J'ai aussi modifié le code, afin de répondre à ta remarque importante (bienvenue, c'était un oubli de ma part)

Bonne soirée

PS, si d'autres personnes pouvaient tester, je pense qu'on pourrait avancer...

Amicalement, et bon week-end

Bonsoir Didier

Bonsoir, Irenée

Effectivement, ton code est plus rapide..

Sur 10 240 lignes :

Mon code : 1,625 seconde
le tien : 1,4375 seconde

Par contre, sur 40 960 lignes

Ton code : 10,6875 secondes
Le mien : 6,486375 secondes

testé avec Xl2003, P4 3.2 Ghz, Win xp

Amicalement

Bonne soirée