Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.

[DAVID-44-]

Bonjour à tous,
J'ai créé un classeur "FICHES SORTIES" qui me permet de faire des sorties journalières suivant mon classeur "COMMANDES". Je fais un copier-coller afin de transférer les produits.
Ensuite, dans mon classeur "FICHES SORTIES", j'utilise la fonction "Rechercher et remplacer" pour effacer (et non supprimer) les lignes de B à F de ma feuille "SORTIES" les textes qui correspondent exactement à la feuille "LÉGUMES" dans la colonne B et j'efface également la ligne si dans la colonne D je trouve le chiffre zéro (0).
Comme vous pouvez l'imaginer, cela me prend beaucoup de temps. J'ai fait une recherche sur le net afin de trouver un moyen qui peut me permettre, grâce à un code VBA, de réaliser cette opération en une seule fois en utilisant un bouton "EFFACER LIGNE SUIVANTE FEUILLE "LEGUMES".
Je vous transmets mon classeur.
Malheureusement, je ne trouve pas.
Si vous pouvez m'aider à trouver une solution, je vous en serai très reconnaissant !

 

[sylvanu]

Bonjour David,
Si j'ai bien tout compris, un essai en PJ avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Not Intersect(Target, [B2:B6]) Is Nothing Then
        Dim DL%, L%
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        DL = Cells(Cells.Rows.Count, "B").End(xlUp).Row
        For L = 10 To DL
            If Cells(L, "B") <> "" Then
                If Application.CountIf(Sheets("LEGUMES").[B:B], Cells(L, "B")) > 0 Or Cells(L, "D") = 0 Then
                    Range(Cells(L, "B"), Cells(L, "F")).ClearContents
                End If
            End If
        Next L
    End If
Fin:
[A1].Select
Application.EnableEvents = True
End Sub

 

[DAVID-44-]

Bonjour sylvanu,
Merci beaucoup. Ca fonctionne parfaitement.
Je vous souhaite une très bonne journée.
Bien cordialement,
David.

 

[sylvanu]

Re,
J'ai oublié de préciser : la feuille "Pour mémoire" ainsi que la macro CopierCollerPourTest sont évidemment à supprimer, ce n'est là que pour tester.

 

[DAVID-44-]

Re,
J'ai oublié de préciser : la feuille "Pour mémoire" ainsi que la macro CopierCollerPourTest sont évidemment à supprimer, ce n'est là que pour tester.

D'accord,
Merci beaucoup.

 

[sylvanu]

Oups, un bug que je viens de voir, on ne peut plus modifier la plage de données.
En PJ c'est corrigé.
Sorry.

 

[DAVID-44-]

Oups, un bug que je viens de voir, on ne peut plus modifier la plage de données.
En PJ c'est corrigé.
Sorry.

Merci beaucoup, c'est génial.
Bien cordialement,
David.