supprimer des cellules

[STIRLING]

salut les ecperts je veux créer un bouton de supprimer les cellules en jaunes

merci d'avance

 

[JBARBE]

Re : supprimer des cellules

salut les ecperts je veux créer un bouton de supprimer les cellules en jaunes

merci d'avance

Bonjour à tous,

un bouton de supprimer ou un bouton pour supprimer les cellules en jaunes !!!!

Dans ce cas, clique sur le bouton EFFACER !

bonne journée !

 

[Chris401]

Re : supprimer des cellules

Bonjour

Et si ta demande est d'effacer le contenu des cellules en jaune

Sub Vider()
Application.ScreenUpdating = False
Dim c As Range
    For Each c In Range("C9:P50")
        If c.Interior.ColorIndex = 6 Then c = ""
    Next c
End Sub

Cordialement
Chris

 

[DoubleZero]

Re : supprimer des cellules

Bonjour à toutes et à tous,

S'il s'agit de supprimer la valeur de chaque cellule jaune :

Option Explicit
Sub Supprimer()
    Range("I9,C12:H51,J12:P12,J12:P13,L18:P18,N22:P22,L24:M24,P24,J28:P36,M40:P40,P42,M44:P44,L48:P48") = ""
End Sub

A bientôt