Microsoft 365 vba

omarghatrif · 24 Janvier 2022

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 · 24 Janvier 2022

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 · 24 Janvier 2022

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

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

Phil69970 · 24 Janvier 2022

Bonjour @omarghatrif
Edit : Bonjour @JHA

Je te propose

*Merci de ton retour

@Phil69970

omarghatrif · 24 Janvier 2022

Phil69970 à dit:
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 · 24 Janvier 2022

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 · 24 Janvier 2022

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

patricktoulon · 24 Janvier 2022

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

omarghatrif · 24 Janvier 2022

merci à tous j'ai trouvé

Phil69970 · 24 Janvier 2022

Re
@omarghatrif

omarghatrif à dit:
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

Microsoft 365 vba

omarghatrif

XLDnaute Nouveau

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

omarghatrif

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Pièces jointes

omarghatrif

XLDnaute Nouveau

Valtrase

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

omarghatrif

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Discussions similaires