XL 2019 Set plage reference autre feuille ne fonctionne pas

Hoareau · 27 Juillet 2020

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 · 27 Juillet 2020

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

Code:

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

Code:

.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 · 27 Juillet 2020

Impeccable

merci

XL 2019 Set plage reference autre feuille ne fonctionne pas

Hoareau

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Hoareau

XLDnaute Occasionnel

Discussions similaires

XL 2019 Set plage reference autre feuille ne fonctionne pas

Hoareau

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Hoareau

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency