supprimer des cellules

JBARBE

XLDnaute Barbatruc

• 12 Juin 2016

• #2

Re : supprimer des cellules

STIRLING à dit:

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

merci d'avance

Cliquez pour agrandir...

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 !

 

Pièces jointes

• Bouton_effacer.xls

  105 KB · Affichages: 46

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 12 Juin 2016

• #3

Re : supprimer des cellules

Bonjour

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

Code:

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 12 Juin 2016

• #4

Re : supprimer des cellules

Bonjour à toutes et à tous,

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

Code:

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

 

Vote positif 0 Vote négatif