Code VBA pour supprimer des lignes

[isa44]

Bonjour ,
Je sollicite votre aide car j'ai un tableau avec des horaires en ordre croissant.
Je voudrais à l'aide d'un code VBA supprimer toutes les lignes dont les horaires sont inférieurs à 18H20 .

Ci joint un fichier

Merci d'avance pour votre aide

 

[vgendron]

Hello

Avec ce code a placer dans un module standard

Sub sup()
Application.ScreenUpdating = False

nb = Range("Tableau1").Rows.Count
    For i = nb To 1 Step -1
        If Format(Range("Tableau1").Item(i, 1), "hh:mm") < Format("18:20", "hh:mm") Then
            Range("Tableau1").Item(i, 1).EntireRow.Delete
        End If
    Next i
Application.ScreenUpdating = True

End Sub

 

[isa44]

Bonjour , j'ai un message d'erreur , il manque quelque chose ? :

 

[M12]

Bonjour,

rajoute en-dessous du Sub sup()
Dim nb%, i% 'déclaration des variables

 

[JHA]

Bonjour à tous,

Le code de Vgendron🙂 que je salue, donne le résultat escompté sur ton fichier exemple.
Tableau1 est le nom de ton tableau, peut être as tu un nom différent dans ton fichier.

JHA

 

[isa44]

Bonjour ,
En fait les données sont extraite d'un programme quotidiennement et ne donne pas de nom de tableau
De ce fait même en incluant la déclaration de variable ça ne fonctionne pas.
Je suis sous Excel 2003.

" Dim nb%, i% 'déclaration des variables "

Je ne connais pas la signification de ce signe " % "

Pouvez vous m'expliquer ?

 

[JHA]

Bonjour à tous,

As tu essayé de nommer ta plage de données ex: "Tableau1" =Données!$A$5:$C$163
ou pour une plage dynamique:

=DECALER(Données!$A$5;;;NB.SI(Données!$A:$A;"<>"&"");3)

sans passer par le mode tableau que tu n'as pas sous excel 2003.

JHA