XL 2016 MACRO SUPPRIMER LIGNE

[mcj1997]

Bonjour,

J'ai une macro dans le fichier en PJ à faire évoluer.

Merci d'avance,

 

[M12]

Bonjour,
Teste ta macro modifiée

Sub supprimerligne()
Dim i As Integer
Dim Editeur As String
Editeur = InputBox("Veuillez entrer l'editeur à supprimer ?")
'la valeur saisie est transmise à la variable Editeur
With ThisWorkbook.Sheets("Feuil1")
            For i = .Range("C" & .Rows.Count).End(xlUp).Row To 2 Step -1
                        If .Range("C" & i).Value = Editeur Then
    Rows(i).Delete
    End If
   Next i
End With
End Sub

 

[mcj1997]

Bonjour,

Merci, j'ai essayé mot par mot cela fonctionne jusqu'à qu'il ne reste plus que vrai et faux pour que cela ne fonctionne plus.

 

[M12]

Teste ceci,
Majuscule ou minuscule pour ton mot et blocage du bouton
Chez moi cela fonctionne jusqu'à tout vider

 

[sylvanu]

Bonjour Mcj, M12,
On peut se passer du problème des majuscules minuscules avec :

Sub supprimerligne()
Dim i%, Editeur$
Editeur = LCase(InputBox("Veuillez entrer l'editeur à supprimer ?"))
With ThisWorkbook.Sheets("Feuil1")
    For i = .Range("C" & .Rows.Count).End(xlUp).Row To 1 Step -1
        If LCase(.Range("C" & i)) = Editeur Then Rows(i).Delete
    Next i
End With
End Sub

 

[mcj1997]

top merci à tous les deux !