suppression de ligne avec une macro Fermé

Question

Bonjour,

Désolé de vous embêter mais j'ai pas réussis a me débrouillé avec ce que j'ai trouver donc je pose ma petite question :

Sur une feuille j'ai recopier une formule dans la colonne H a partir le l'étiquette de colonne soit H2=SI(ET(F2>0;G2<(MAINTENANT()+'mode d''emploi'!$D$20));"CONTROLER";"")

Donc valeur vrai = contrôler et faux= vide.

Je souhaite supprimer toute les lignes Dont la case H est vide.
Concrètement je souhaite juste garder les lignes à contrôler.

Je pense devoir utiliser If  then mais comme je l'ai jamais utiliser.....

Si vous pouviez me donnée des codes ca m'arrangerait et si en plus vous aviez la gentillesse de le commenter ca me ferais progresser

cordialement

Mickael

Pawn · Answer

Salut, 

Essaye :

Sub SupprLine()

Sheets("Feuil1").Activate

Range("H1").Select

For i = 1 To 10

If Range("H" & i) = Empty Then

Range(Cells(i, 8), Cells(i, 256)).Select
Selection.Delete Shift:=xlUp
End If
Next i

End Sub

Pawn · Answer

Pour info, 

For I = Ligne de début to Ligne de Fin

La dernière ligne en H peut-elle variée ?

Pawn · Answer

Petite correction (manque d'attention de ma part),

Range(Cells(i, 1), Cells(i, 256)).Select
au lieu de Range(Cells(i, 8), Cells(i, 256)).Select

Suppression de ligne avec une macro

3 réponses

Discussions similaires