Macro qui supprime des lignes d'une couleur donnée

[MissCroft]

Bonjour
Je cherche à faire une macro qui supprime des lignes qui ont la couleur "Or" par exemple. Je précise que je sais juste enregistrer les macros, et copier coller le code dans un bouton...Donc connaissances très basiques. j'ai trouvé une macro qui vide les cellules mais je voudrais les supprimer complètement...Si qq'un peut m'aider çà serait trèèèèèès gentil 🙂

 

[porcinet82]

Re : Macro qui supprime des lignes d'une couleur donnée

Salut,

Je te propose le code suivant qu'il te suffira de coller dans un bouton :

Sub Sup_ligne_couleur()
Dim i%, code_couleur%
code_couleur = [COLOR=red][B]6[/B][/COLOR]
For i = [COLOR=blue][B]15[/B][/COLOR] To 1 Step -1
    If Cells(i, 1).Interior.ColorIndex = code_couleur Then Rows(i).Delete
Next i
End Sub

Ensuite, je te laisse libre de modifier le nombre de ligne sur laquelle sera executé la macro (chiffre bleu), ainsi que le code couleur que tu pourras obtenir via l'enregistreur de macro (ici, il s'agit du code couleur 6 correspondant a la couleur jaune fluo).

@+

 

[MissCroft]

Re : Macro qui supprime des lignes d'une couleur donnée

merci bcp, je vais tester çà 😀😀