Suppression cellules si pas de couleur

[eduraiss]

Bonjour le forum

Voila j'ai une feuille avec des plages de cellules, ces cellules ont pour certaines des couleurs de font

Il me faudrait une macro qui supprime les cellules qui n'ont pas de couleurs, une définition par plage me conviendrais, je pourrais ensuite l'adapter a la feuille source

Voici un fichier

Cordialement

 

[Staple1600]

Re : Suppression cellules si pas de couleur

Bonjouor


A tester

Sub test()
Dim C As Range
For Each C In Cells.SpecialCells(xlCellTypeConstants, 23)
If C.Interior.ColorIndex = xlNone Then
C.ClearContents
End If
Next C
End Sub

ou

Sub test_ii()
Dim C As Range
For Each C In ActiveSheet.UsedRange
If C.Interior.ColorIndex = xlNone Then
C.ClearContents
End If
Next C
End Sub

 

[eduraiss]

Re : Suppression cellules si pas de couleur

Re

Merci a toi Staple1600

mais si je veux par exemple que la macro s'exécute sur 2 plage par exemple C2:c43 et e24: e40

Cela donne quoi au niveau du code j'ai essayer cela mais cça ne fonctionne pas
Merci

Sub test()
Dim C As Range
C=Range("C2:C43;E24:E40")
For Each C In Cells.SpecialCells(xlCellTypeConstants, 23)
If C.Interior.ColorIndex = xlNone Then
C.ClearContents
End If
Next C
End Sub

 

[Staple1600]

Re : Suppression cellules si pas de couleur

Re

Sub test_iii()
Dim C As Range
For Each C In Union(Range("C2:C43"), Range("E24:E40"))
If C.Interior.ColorIndex = xlNone Then
C.ClearContents
End If
Next C
End Sub

 

[eduraiss]

Re : Suppression cellules si pas de couleur

Re

cela marche du tonnerre professeur, j'ai adapté le code a ma feuille c'est Bon, j'ai juste un petit truc

Dans les cellules il y a un objet (un petite croix rouge) est t'il possible de la supprimer elle aussi ou ce n'est pas possible?

Merci a toi

 

[Staple1600]

Re : Suppression cellules si pas de couleur

Re


Remplace
C.ClearContents

par

C.Clear
C.ClearComments


Attention:
Cela effacera tout (le contenu et le format de la cellule)

 

[eduraiss]

Re : Suppression cellules si pas de couleur

Re

exact il efface le format mais pas les objets pour le supprimer je suis obliger de les couper, et comme je copie la feuille, je crois que les objets se positionnent les uns sur les autres , pour cela je suis obliger pour les supprimer de les couper plusieurs fois

Merci

 

[eduraiss]

Re : Suppression cellules si pas de couleur

re je ne sais pas si sa peut aider

Mais les objet sont nommé picture et autoshape

Merci

 

[Staple1600]

Re : Suppression cellules si pas de couleur

Re


A tester (pour supprimer les images)

Sub test_suppr()
Dim Sh As Shape
With ActiveSheet
   For Each Sh In .Shapes
       If Not Application.Intersect(Sh.TopLeftCell, .Range("C2:C43,E24:E40")) Is Nothing Then
         If Sh.Type = msoPicture Then Sh.Delete
       End If
    Next Sh
End With
End Sub

PS: De quel type sont les autoshapes.? Rectangle?

Dans ton fichier exemple il n'y pas de shapes ????

 

[eduraiss]

Re : Suppression cellules si pas de couleur

Re

je te renvoie un bout de fichier avec ta macro que j'ai modifier, mais la derniere ne fonctionne pas

Merci

 

[Staple1600]

Re : Suppression cellules si pas de couleur

Re



A tester sur une copie de ton fichier

Sub test_suvpp_II()
Dim Sh As Shape
With ActiveSheet
   For Each Sh In .Shapes
       If Not Application.Intersect(Sh.TopLeftCell, .UsedRange) Is Nothing Then
         If Sh.Type = 1 Then Sh.Delete
         If Sh.Type = msoPicture Then Sh.Delete
       End If
    Next Sh
End With
End Sub

 

[eduraiss]

Re : Suppression cellules si pas de couleur

Re

petite précisions les shape doivent rester sur les cellules avec des couleurs.

Merci

 

[eduraiss]

Re : Suppression cellules si pas de couleur

la macro bug a ce niveau je l'ai mis sur le fichier que je t'ai renvoyé
If Sh.Type = msoPicture Then

Merci

 

[Roland_M]

Re : Suppression cellules si pas de couleur

bonjour

voir dans ce fichier joint l'explication dans feuil2 !

Roland

 

[eduraiss]

Re : Suppression cellules si pas de couleur

Bonsoir le forum et a toi Roland

Je crois mettre mal expliquer il faut que la macro efface les noms qui ne sont pas colorés mais aussi les étoile et les porte clé sauf sur les noms qui sont coloré

Merci