[Débutant - Excel] Suppression valeur mais conservation formule

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:

---

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!

Ou alors, comment dupliquer une ligne en ne dupliquant que les cellules qui contiennent une formule?

si tu mets un bon vieux

Code:

---

On Error Resume Next

---

avant ton

Code:

---

Selection.SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents

---

C'est moche, OK :aie:
Mais ça résoud ton problème, non ?

Citation:

---

Envoyé par cwain

si tu mets un bon vieux

Code:

---

On Error Resume Next

---

avant ton

Code:

---

Selection.SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents

---

C'est moche, OK :aie:
Mais ça résoud ton problème, non ?

---

Effectivement, ça marche.
Mais comme tu dis, c'est très propre. (en tout cas, il me semble, vu que ça ne fait que quelques jours que je fais du VB)

Y'a pas un moyen de faire un test qui empêche d'exécuter la commande qui crashe?