XL 2010 Effacement rapide des plage sd'un tableau

[pompier83]

bonjour à vous
je viens vous demander de l'aide svp
je cherche une solution pour effacer un tableau composer de 31 plage de donnée soit une macro qui effacerais toute les section en épargnant les entête des différente section.

ou

si je change la couleur de fond dans une des cellule de la section source il m'efface la plage correspondant dans BDD
pouvez vous m'aider svp merci

 

[pierrejean]

Bonjour pompier83

Une macro a tester:

Sub efface()
For Each cel In Range("A1").CurrentRegion
  If cel.Interior.ColorIndex <> xlNone Then cel.Value = ""
Next
For Each cel In Range("K1").CurrentRegion
  If cel.Interior.ColorIndex <> xlNone Then cel.Value = ""
Next
End Sub

 

[pompier83]

bonjour pierrejean et merci pour ton intervention erreur de ma part j'aurais peut être du mettre le fichier réel sa aurais peut être éviter des erreur.

en fait mon fichier ne comporte pas que deux couleurs du coup ta solution ne fonctionne pas dessus je t'ai mis la page source de mon fichier dedans il y a une condition anti doublon qui change la couleur en cas de doublon ce que je recherche c'est effacer les donner présent ici j'ai mis des X

 

[pompier83]

j'avais oublier la piece jointe

 

[pierrejean]

Re

Effectivement ce fichier n'a rien a voir avec le précédent !!
Notamment la couleur obtenue par MFC est difficilement repérable par Macro
je crains de ne rien pouvoir faire pour toi

 

[pompier83]

merci quand même de ton aide si une idée je prend

 

[pompier83]

Re bonjour j'ai trouver une solution qui fonctionne pas trop mal en compilant quelque code tiré ici ou la mes entêtes matin apres midi soir j'ai fait une formule d'egalité avec le premier entêtes.

et effacer tous le tableau avec cette formule

Sheets("Garde").Select
  On Error Resume Next
  ' Garde
Range("C5:E250").SpecialCells(xlCellTypeConstants, 23).ClearContents
  On Error GoTo 0

  On Error Resume Next
  ' Astreinte
Range("H5:J250").SpecialCells(xlCellTypeConstants, 23).ClearContents
  On Error GoTo 0

c'est une formule qui efface les donnés mais pas les formule qu'il contiens voilou