Macro : supprimer toutes lignes entre 2 valeurs

Bonjour,

pouvez vous me donner la formule qui me permet de supprimer toutes les lignes en dessous de A17 et jusqu'à la cellule avec le mot "Exp." (cellule variable).

Cette dernière cellule doit être comprise dans la suppression.

Merci

Bonjour Nadège,

Ci-dessous un code simple à placer dans un module standard :

Dim Mot As Variant, ValidationMot As Range, i As Long
Sub EffacerNadegeEP()
    Mot = InputBox("Indiquer ci-après le mot recherché :", "Recherche d'un mot", "Exp.")
    If Mot = "" Then
        Exit Sub
    End If
    Set ValidationMot = Columns(1).Find(what:=Mot, LookIn:=xlValues, LookAt:=xlPart)
    If ValidationMot Is Nothing Then
        MsgBox "Le mot """ & Mot & """ n'a pas été trouvé dans la colonne A.", vbInformation + vbOKOnly
        Exit Sub
    Else
        For i = ValidationMot.Row To 18 Step -1
            Rows(i).Delete shift:=xlUp
        Next
    End If
End Sub

merci de votre aide ! cela fonctionne parfaitement

Rechercher des sujets similaires à "macro supprimer toutes lignes entre valeurs"