Bonjour,

Comme le dit mon titre, je voudrais vider les cases d'une ligne contenant une valeur numérique mais conserver les cases dontenant une fomule.

Pour cela, je me suis inspiré de ce sujet de la FAQ.

Malheureusement, quand j'applique cette formule à un ligne ne contenant que des formules, j'ai un crash. J'ai donc essayé de faire ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Rows(NumRow).Select
'Testé avec et sans le "if"
If Not Selection.SpecialCells(xlCellTypeConstants, xlNumbers) Is Nothing Then
    Selection.SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
End If
mais ça ne fonctionne pas non plus : "Erreur d'exécution '1004' : Pas de cellules correspondantes." (dans les 2 cas)

Quelqu'un aurait-il une idée pour contourner ce problème?

Merci d'avance!