Modification des propriétés de plusieurs cellules à partir d'une adresse.

Bonjour,

Soit la variable a récupérant l'adresse :

Range(Range(a).Offset(1),range(a).Offset
(5)).Interior.ColorIndex=3

Camille

-----Message d'origine-----
Bonjour,

N'etant pas encore à l aise avec les selections, les
adresses etc j ai

besoin
d un peu d aide.

J'obtiens une valeur d adresse : $B$49 par exemple et je
veux changer le

fond
pour les 5 cellules suivantes , jusqu'en $B$54 .
Je ne sais pas comment faire pour crée cette selection .

J ai pourtant essayé:

LastCell = Range("B65536").End(xlUp).Offset(1,
0).Address { = $B$49 }

Plage = Range(LastCell).Address & ":" & Range
(LastCell).offest(0,

5).Address
' cette ligne ne marche pas ?? pourtant c'est une
addition de chaine de

caracteres.

Range(Plage).Interior.ColorIndex = Red


merci;

Seb.


.

Salut Seb,

Ta synthaxe:
Range("B65536").End(xlUp) -->> première cellule remplie depuis le bas
.Offset(1, 0) -->> decale d'une ligne vers les bas

Une autre synthaxe:
Range("B65536").End(xlUp).(2) -->> dernière cellule vide depuis le bas

donc, les 2 synthaxes suivantes sont identiques:
Range("B65536").End(xlUp).Offset(1, 0)
Range("B65536").End(xlUp).(2)

Ce qui donne pour ton cas:

Range(Range("B65536").End(xlUp)(2).Address).Resize(1, 5).Interior.ColorIndex = 3

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Seb..." <lk@klk.com> a écrit dans le message de
news:b1d8dad1adf9fe5f114f9f4f88d1c075@news.teranews.com...

Bonjour,

N'etant pas encore à l aise avec les selections, les adresses etc j ai
besoin
d un peu d aide.

J'obtiens une valeur d adresse : $B$49 par exemple et je veux changer le
fond
pour les 5 cellules suivantes , jusqu'en $B$54 .
Je ne sais pas comment faire pour crée cette selection .

J ai pourtant essayé:

LastCell = Range("B65536").End(xlUp).Offset(1, 0).Address { = $B$49 }

Plage = Range(LastCell).Address & ":" & Range(LastCell).offest(0,
5).Address
' cette ligne ne marche pas ?? pourtant c'est une addition de chaine de
caracteres.

Range(Plage).Interior.ColorIndex = Red


merci;

Seb.