Bonjour,
Ci-joint le classeur exemple.
Le but est de supprimer le contenu des cellules lorsqu'elles sont en jaune.
Ma macro fonctionne mais uniquement sur la feuille selectionnée, alors qu'il faut qu'elle s'execute sur toutes les feuilles.
Dim feuille As Worksheet
Dim cellule As Range
Dim constantes As Range
Dim formules As Range
Sub effacer2()
If MsgBox("Etes-vous sûr de vouloir effacer toutes les données saisies ?", vbYesNo) = vbYes Then
On Error Resume Next
For Each feuille In Worksheets
Set constantes = Selection.SpecialCells(xlConstants)
For Each cellule In constantes
If cellule.Interior.ColorIndex = 36 Then cellule.ClearContents
Next cellule
Set formules = Selection.SpecialCells(xlFormulas)
For Each cellule In formules
If cellule.Interior.ColorIndex = 36 Then cellule.ClearContents
Next cellule
Next feuille
End If
End Sub
Je pense qu'il n'y a pas de meilleur endroit qu'ici pour avoir un petit conseil. Alors merci d'avance.
Natacha.
Ci-joint le classeur exemple.
Le but est de supprimer le contenu des cellules lorsqu'elles sont en jaune.
Ma macro fonctionne mais uniquement sur la feuille selectionnée, alors qu'il faut qu'elle s'execute sur toutes les feuilles.
Dim feuille As Worksheet
Dim cellule As Range
Dim constantes As Range
Dim formules As Range
Sub effacer2()
If MsgBox("Etes-vous sûr de vouloir effacer toutes les données saisies ?", vbYesNo) = vbYes Then
On Error Resume Next
For Each feuille In Worksheets
Set constantes = Selection.SpecialCells(xlConstants)
For Each cellule In constantes
If cellule.Interior.ColorIndex = 36 Then cellule.ClearContents
Next cellule
Set formules = Selection.SpecialCells(xlFormulas)
For Each cellule In formules
If cellule.Interior.ColorIndex = 36 Then cellule.ClearContents
Next cellule
Next feuille
End If
End Sub
Je pense qu'il n'y a pas de meilleur endroit qu'ici pour avoir un petit conseil. Alors merci d'avance.
Natacha.