Problème sur code "supprime cellule"

Bonjour,

Dans le fichier joint, je n'arrive pas à comprendre pourquoi les cellules à fonds blanc ne s'effacent pas quand je saisi la formule (exemple en C9) =5+5+6 alors que si je saisi 1 ou un autre nombre directement (exemple en C6) en utilisant le code suivant :

Si vous avez une idée, je suis preneur

Merci d'avance

Galiax

Sub Raz_DETAIL()

For Each c In Range("C3:C9").SpecialCells(xlCellTypeConstants, 23)
If c.Interior.Color = vbWhite Then
c.ClearContents
End If
Next c
Range("C4").Select
End Sub

Hello,

parce que =5+5+6 c'est une formule et non une constante

Bonjour,

le problème est que vous recherchez des cellules contenant des constantes (c'est-à-dire des valeurs tapées manuellement, non des formules).

For Each c In Range("C3:C10").SpecialCells(xlCellTypeConstants, 23)

La formule =5+5+6 est une formule donc si vous voulez que le code fonctionne pour les cellules contenant aussi bien des valeurs constantes que des formules qui retournent une valeur, vous devez modifier cette ligne comme suit

For Each c In Range("C3:C10")

Slts

Un grand MERCI à toi boss_68, maintenant ça fonctionne très bien

@+