Supprimer cellules en fonction d'autres cellules

[David590]

Bonjour à tous,

J'aurais besoin de supprimer des lignes comprise entre D11 et M100 de la feuille 3 en fonction de la couleur des cellules de la colonne C de la feuille 1

Par exemple effacer D20 à M20 de la feuille 3 si la cellule C20 de la feuille 1 est rouge (ColorIndex = 3)
et ensuite remonté les cellules du dessous ("D21:M100").Copy ("D20")

Ou encore effacer D47 à M47 de la feuille 3 si la cellule C47 de la feuille 1 est rouge (ColorIndex = 3)
et ensuite remonté les cellules du dessous ("D48:M100").Copy ("D47")

Merci pour votre aide

David

 

[Chris401]

Re : Supprimer cellules en fonction d'autres cellules

Bonjour

Essaye :

Sub Supprime()
Application.ScreenUpdating = False

    For i = 100 To 11 Step -1
       If Sheets("Feuil1").Cells(i, 3).Interior.ColorIndex = 3 Then Sheets("Feuil3").Range("D" & i & ":M" & i).Delete Shift:=xlUp
    Next i
    
End Sub

Cordialement
Chris

 

[David590]

Re : Supprimer cellules en fonction d'autres cellules

Bonjour Chris,

Merci pour ta réponse rapide,

C'est presque parfait, à un détail près, la feuille 1 est en liaison avec la feuille 3, et apparemment le .delete rompt les liens des cellules, j'ai essayé de remplacer par .clearcontents mais ça ne fonctionne pas comme ça

Je mets un fichier exemple quand même pour que tu puisses voir de quoi il sagit..

 

[Chris401]

Re : Supprimer cellules en fonction d'autres cellules

Bonsoir

Remplace tes formules par :
En B11

=INDIRECT("Feuil3"&"!D" &LIGNE())

En C11

=INDIRECT("Feuil3"&"!E" &LIGNE())

Pour masquer les 0, tu peux mettre le format personnalisé [=0]"";Standard

Cordialement
Chris

 

[David590]

Re : Supprimer cellules en fonction d'autres cellules

J'aurais pensé que tu aurais plutôt modifié le code mais ça va très bien comme ça aussi, ça fonctionne à merveille, exactement ce que je voulais

Un grand merci à toi

@+