supprimer des cellules

STIRLING · 12 Juin 2016

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

merci d'avance

JBARBE · 12 Juin 2016

Re : supprimer des cellules

STIRLING à dit:
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 · 12 Juin 2016

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

DoubleZero · 12 Juin 2016

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 🙂

supprimer des cellules

STIRLING

Guest

Pièces jointes

JBARBE

XLDnaute Barbatruc

Pièces jointes

Chris401

XLDnaute Accro

DoubleZero

XLDnaute Barbatruc

Discussions similaires

supprimer des cellules

STIRLING

Guest

Pièces jointes

JBARBE

XLDnaute Barbatruc

Pièces jointes

Chris401

XLDnaute Accro

DoubleZero

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency