Discussion :

[seiryujay]

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!

[seiryujay]

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

[cwain]

si tu mets un bon vieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error Resume Next

avant ton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents

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

[seiryujay]

si tu mets un bon vieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error Resume Next

avant ton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents

C'est moche, OK
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?