Code VBA pour supprimer des lignes

vgendron

XLDnaute Barbatruc

• 16 Février 2017

• #2

Hello

Avec ce code a placer dans un module standard

VB:

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

 

Vote positif 0 Vote négatif

I

isa44

XLDnaute Occasionnel

• 17 Février 2017

• #3

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

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 17 Février 2017

• #4

Bonjour,

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

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 17 Février 2017

• #5

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

 

Vote positif 0 Vote négatif

I

isa44

XLDnaute Occasionnel

• 18 Février 2017

• #6

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 ?

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 18 Février 2017

• #7

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:

Code:

=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

 

Pièces jointes

• test1.xls

  40.5 KB · Affichages: 55

Dernière édition: 18 Février 2017

Vote positif 0 Vote négatif