Microsoft 365 vba

J

JHA

XLDnaute Barbatruc

• 24 Janvier 2022

• #2

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

 

Pièces jointes

• fichier.xlsm

  183.2 KB · Affichages: 0

Vote positif 0 Vote négatif

O

omarghatrif

XLDnaute Nouveau

• 24 Janvier 2022

• #3

JHA à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 24 Janvier 2022

• #4

Bonjour @omarghatrif
Edit : Bonjour @JHA

Je te propose

*Merci de ton retour

@Phil69970

 

Pièces jointes

• Suppression lignes à 0 V1.xlsm

  251.5 KB · Affichages: 7

Vote positif 0 Vote négatif

O

omarghatrif

XLDnaute Nouveau

• 24 Janvier 2022

• #5

Phil69970 à dit:

Bonjour @omarghatrif
Edit : Bonjour @JHA

Je te propose

*Merci de ton retour

@Phil69970

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Valtrase

XLDnaute Occasionnel

• 24 Janvier 2022

• #6

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...

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 24 Janvier 2022

• #7

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

VB:

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Janvier 2022

• #8

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

VB:

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

 

Vote positif 0 Vote négatif

O

omarghatrif

XLDnaute Nouveau

• 24 Janvier 2022

• #9

merci à tous j'ai trouvé

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 24 Janvier 2022

• #10

Re
@omarghatrif

omarghatrif à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif