Supression cellule

Bonjour,

Je cherche un code qui me permettrais de supprimer dans la colonne G, toutes les cellules où le mot "Approvisionnement" apparaît ainsi que les valeurs correspondantes aux approvisionnements colonne H.

J'ai une liste :

Colonne G Colonne H

Banane 25

Carotte 10

patate 32

approvisionnement carotte 30

tomate 65

berlingot 32

approvisionnement guirlande 12

J'ai un début de code :

 Dim w As Range
    Application.ScreenUpdating = False
    With ActiveSheet
        For Each w In .Range("G" & Rows.Count).End(xlUp)
            If w.Value Like "*" & Approvisionnement & "*" Then w.Delete xlShiftUp
        Next w
    End With

Merci par avance.

Bonjour max39,

lorsque l'on supprime des cellules, il faut partir du bas et remonter.

 Dim i As Long
    Application.ScreenUpdating = False
    With ActiveSheet
        For i = .Range("G" & Rows.Count).End(xlUp).Row To 2 Step -1
            If .Range("G" & i).Value Like "*" & Approvisionnement & "*" Then .Range("G" & i & ":H" & i).Delete xlShiftUp
        Next i
    End With

Bonjour,

Je vais essayer et je vous tiens au courant.

Merciii

Bonjour,

Et bien il me supprime toutes les cellules même celle qui n'ont pas le mot "approvisionnement"

Bonjour,

Il ne faut pas hésiter à joindre un bout de fichier ...

Bonour à tous,

max39, désolé il faut corriger la ligne suivante,

If .Range("G" & i).Value Like "*" & Approvisionnement & "*" Then .Range("G" & i & ":H" & i).Delete xlShiftUp

par celle-ci

If .Range("G" & i).Value Like "*Approvisionnement*" Then .Range("G" & i & ":H" & i).Delete xlShiftUp

Sa marche niquel, je vous remercie !