Discussion :

[JOLIFLO57]

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

Code :

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

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

[ucfoutu]

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 :

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

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"...

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

[JOLIFLO57]

à ucfoutu
merci pour ta réponse rapide et efficace