XL 2019 Set plage reference autre feuille ne fonctionne pas

[Hoareau]

Bonjour
J'essaie de faire réference à une plage avec set BD, d'une autre feuille, mais aucun de mes essais ne fonctionne
Par contre, si je récupère la valeur, sur cette même feuille, cela fonctionne
merci

'Ne fonctionne pas
Set BD = Sheets("BD").Range(Range("A5"), Range("A5").End(xlDown).Offset(0, 1))
Sheets("BD").Range(Range("A5"), Range("A5").End(xlDown).Offset(0, 1)).Interior.ColorIndex = 44

'ne fonctionne pas, renvoi #valeur
c.Offset(0, 8) = Application.CountIf(BD, c.Offset(0, -1)) 'Sheets("BD").Range("A5").End(xlDown).Offset(0, 2).Interior.ColorIndex = 26

'Recupere bien la valeur
c.Offset(0, 9) = Sheets("BD").Range("A5").End(xlDown).Offset(0, 1)

'ne fonctionne pas
With Workbooks("UN.xlsm").Sheets("BD")
Set BD = .Range(Range("A5"), Range("A5").End(xlDown).Offset(0, 1))
BD.Interior.ColorIndex = 44
End With

 

[ChTi160]

Bonjour Hoareau
peut être en indiquant plus précisément les références aux Cellules ,Plage
ex :

Dim BD as Range
With Sheets("BdD")
     Set BD= .Range(.Range("A5"), .Range("A5").End(xlDown).Offset(0, 1)
           BD.Interior.ColorIndex = 44
End With

éviter de Nommer la plage comme la Feuille !
Range("A5") : dois faire référence a la Cellule de la feuille active d'ou .Range("A5")
il ne faut pas qu'il y ai de Cellule Vide dans la Colonne A
Ou mettre

.Range("A5").End(xlUp).Row+1

Oups tu décales d'une Colonne c'est ça ? .Offset(0, 1) ou c'est d'une Ligne ? .Offset(1,0)
non testé
jean marie

 

[Hoareau]

Impeccable

merci