Microsoft 365 vba

[omarghatrif]

Bonjour,

je suis débutant en vba, je n'arrive pas créer un programme qui me permet de supprimer la ligne si la colonne S (qté réelle c.)=0.

le fichier est en pièce jointe.

merci de m'aider

 

[JHA]

Bonjour à tous,

Je n'y connais rien en macro mais si tu filtres les "0" puis tu supprimes les lignes filtrées, tu auras le résultat escompté.

JHA

 

[omarghatrif]

Bonjour à tous,

Je n'y connais rien en macro mais si tu filtres les "0" puis tu supprimes les lignes filtrées, tu auras le résultat escompté.

JHA

merci de votre réponse mais je voulais un macro.

 

[Phil69970]

Bonjour @omarghatrif
Edit : Bonjour @JHA

Je te propose

*Merci de ton retour

@Phil69970

 

[omarghatrif]

Bonjour @omarghatrif
Edit : Bonjour @JHA

Je te propose

*Merci de ton retour

@Phil69970

tu peux essayer sur le fichier que j'ai envoyé stp

 

[Valtrase]

Salut,
@omarghatrif je pense qu'il vaut mieux passer par un tableau en effet tu fais une recherche de la dernière ligne sur la colonne "A", mais si elle n'est pas renseignée comme dans le fichier joint, cela peut poser des problèmes.
pour le AutoFilter c'est simple et efficace...

 

[fanch55]

Bonjour à tous,
macro à mettre dans module 1 et à exécuter :

Sub Menage()
    With ActiveSheet
        .UsedRange.AutoFilter
        .UsedRange.AutoFilter Field:=Asc("S") - 64, Criteria1:="0"
        .Rows(1).Hidden = True ' on masque la ligne des titres
        .Rows.SpecialCells(xlCellTypeVisible).Delete
        .Rows(1).Hidden = False ' on affiche la ligne des titres
         ActiveWindow.ScrollRow = 1
        .ShowAllData
    End With
End Sub

 

[patricktoulon]

Bonjour
on supprime toutes les lignes avec "0" dans la colonne"S" d'un coup

Sub Suprr_les_0_dans_col_S()
    Dim plage
    Set plage = Feuil1.Range("S2", Cells(Rows.Count, "S").End(xlUp))
    With plage
        .AutoFilter Field:=1, Criteria1:="0"
        Set p = .SpecialCells(xlVisible)
        .Parent.ShowAllData
    End With
    p.EntireRow.Delete
End Sub

 

[omarghatrif]

merci à tous j'ai trouvé

 

[Phil69970]

Re
@omarghatrif

tu peux essayer sur le fichier que j'ai envoyé stp

Mais c'est ton FICHIER que j'ai fourni
Est ce que tu l'as regardé ? Non car tu ne poserais pas la question.....

@Phil69970