condition if

[Manu]

Salut, j'ai ces ligne de code:

Sheets("Feuil1").Select
Range("C6:H150").SpecialCells(xlCellTypeConstants, xlErrors).Select

For Each cell In Selection
cell.Value = "ERREUR"
Next cell

Le problème c'est que lorsque aucune cellule correspondante n'existe, j'ai un bug.
Je souhaiterais pouvoir écrire une condition if then qui permette de faire cette ligne de code que si les cellules existent bien, mais je n'y arrive pas, avez vous une petite idée?

 

[STéphane]

bonjour

l'instruction on error resume next puet peut-être faire l'affaire

 

[Manu]

Oui, elle convient tout comme on error goto.Je n'y avais pas pensé.

Merci, A+.

 

[STéphane]

je ne t'ai pas suggéré on error goto, parcequ'il paraît qu'il ne faut pas trop utiliser les étiquettes, enfin pour une gestion d'ereur c'est peut-être pas trop grave

ps : regarde un de mes anciens messages vieux de quelques jours ou je mets un code montrant comment se servir de specialcells, on error resume next ...

bye
stephane

 

[Ti]

voici une procédure d'exemple. Je n'ai pas utilisé xlcelltypeConstants qui ne renvoie rien, mais xlCellTypeFormulas qui semble mieux convenir dans ce contexte


Sub test()
Dim MyRange As Range

Dim cel As Range
Sheets("Feuil1").Select
On Error Resume Next
Set MyRange = Range("C6:H150").SpecialCells(xlCellTypeFormulas, xlErrors)
On Error GoTo 0

If Not MyRange Is Nothing Then
For Each cel In MyRange
cel.Value = "ERREUR"
Next cel
End If

End Sub