tester si cellules vides

Sur certaines feuilles j'ai des cellules vides à compléter par :

Code:

---

1 2 3 4

Range("A7:C7").Select Range(Selection, Selection.End(xlDown)).Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.FormulaR1C1 = "=R[-1]C"

---

çà plante (bien sûr) sur la troisième ligne quand dans ma sélection il n'y a pas de cellules vides.
Comment tester avant d'appliquer cette ligne.

D'avance, merci

Bonjour,

Voilà bien l'un des rares cas où le traitement par gestion d'erreur est plus intéressant que la mise en place d'un contrôle en amont...

SpecialCells(xlCellTypeBlanks) est censé retourner une plage (un objet Range)...
Si aucune cellule ne correspond (pas de "blanks") la plage, donc l'objet Range n'existe pas (is nothing) et donc toute propriété ou méthode s'y appliquant provoqueraient inévitablement une erreur ...

La solution (hélàs) la moins chère est la suivante :

Code:

---

1 2 3 4 5 6 7 8

dim plage as range on error resume next set plage = ..SpecialCells(xlCellTypeBlanks) on error goto 0   if not plage is nothing then ...' et le reste du code... end if

---

Il est possible d'éviter ce On error resume next (que je n'aime généralement pas)... mais là... le prix à payer (une boucle) serait vraiment élevé ... et on pourrait alors se demander pourquoi ne pas saisir l'analyse faite dans la boucle, dans ce cas ... et oublier la sélection des "blanks"...8O

Alors là oui ===>> gestion d'erreur (tant pis...) comme vu plus haut...

à ucfoutu
merci pour ta réponse rapide et efficace