XL 2016 Supprimer avec une macro VBA des lignes selon le critère "cellules d'une colone vide"

[cedricaucun]

Bonjour,

Je suis bloqué sur un fichier excel ou j'essaie via des Macro VBA de suprimer des lignes entieres qu'on trouve dans la colone I des cellules vides.

J'ai un fichier de plus de 1000 lignes et une vingtaine de colone et sur la colone I j'ai à chaque fois trois lignes vides

Merci pour votre aide

 

[Phil69970]

Bonjour @cedricaucun

Avec un fichier c'est beaucoup plus facile que d'inventer quelque chose qui existe déjà ....

@Phil69970

 

[cedricaucun]

Bonjour @cedricaucun

Avec un fichier c'est beaucoup plus facile que d'inventer quelque chose qui existe déjà ....

@Phil69970

C'est fait, ci joint le fichier

 

[Phil69970]

@cedricaucun

Donc chaque fois que la colonne I est vide on supprime la ligne entière ?

@Phil69970

 

[cedricaucun]

@cedricaucun

Donc chaque fois que la colonne I est vide on supprime la ligne entière ?

Regarde la pièce jointe 1147031
@Phil69970

oui

 

[Phil69970]

@cedricaucun

Je te propose ce fichier :

Merci de ton retour

@Phil69970

 

[cedricaucun]

@cedricaucun

Je te propose ce fichier :

Merci de ton retour

@Phil69970

super @Phil6970, merci bcp

 

[cedricaucun]

super @Phil6970, merci bcp

svp @Phil6970 serait il possible, de supprimer tous les lignes qui sont comptabilisé à 19h (voir colonne B: date )?

 

[Phil69970]

@cedricaucun

Donc supprimer les lignes où l'heure = 19 h00 quelque soit la date ?
Et toujours les lignes vides en colonne I ?

@Phil69970

 

[cedricaucun]

@cedricaucun

Donc supprimer les lignes où l'heure = 19 h00 quelque soit la date ?
Et toujours les lignes vides en colonne I ?

@Phil69970

Oui c'est ça, mais je préfere svp séparer les deux supressions pour que je puisse analyser avant

 

[Phil69970]

@cedricaucun

Je te propose ce fichier V2 :

Pense à valider la solution si elle te convient

Merci de ton retour

@Phil69970

 

[cedricaucun]

@cedricaucun

Je te propose ce fichier V2 :

Pense à valider la solution si elle te convient

Merci de ton retour

@Phil69970

désolé @Phil6970, je viens de découvrir que dans mon fichier complet , la suite du tableau que j'ai envoyé il y a des dates de relevé à 20h00 et pas 19h00 du coup svp si vous voulez bien l'option pour 20h00 merci bcp

 

[Phil69970]

@cedricaucun

Il suffit de modifier cette ligne :

If Left(Split(Range("B" & i).Value, "T")(1), 2) = 19 Then

Par :

If Left(Split(Range("B" & i).Value, "T")(1), 2) = 20 Then

@Phil69970

 

[cedricaucun]

@cedricaucun

Il suffit de modifier cette ligne :



Par :



@Phil69970

c'est pafait merci bcp