Autofill sur range incluant offset

Version imprimable

Bonjour,

j'aimerais étendre une sélection à partir d'une cellule défini par un offset et une variable.
comment faire pour définir le range

Code:

1
2
3
4
5
6
7
8
Dim jour As Date
jour = CDate(InputBox("merci d'entrer la date jj/mm/aa format:", "jour J", Date))
x = Weekday(jour, vbMonday)
'suivant le jour de la semaine, ma valeur jour va se positionner dans une cellule
[cj4].Offset(0, x - 1) = jour
[cj4].Offset(0, x - 1).Select
'je souhaite que la cellule incluant ma date serve de point de départ pour un autofill à gauche et ensuite à sa droite. 
Selection.AutoFill Destination:=Range(ActiveCell, CW4), Type:=xlFillDefault

merci de vos lumières

Bonjour,

Si j'ai bien compris

Code:

1
2
3
4
5
6
7
8
9
Dim jour As Date
    jour = CDate(InputBox("merci d'entrer la date jj/mm/aa format:", "jour J", Date))
    x = Weekday(jour, vbMonday)
    'suivant le jour de la semaine, ma valeur jour va se positionner dans une cellule
    [CJ4].Offset(0, x - 1) = jour
    [CJ4].Offset(0, x - 1).Select
    'je souhaite que la cellule incluant ma date serve de point de départ pour un autofill à gauche et en suite à sa droite.
    Selection.AutoFill Destination:=Range("CJ4:" & ActiveCell.Address), Type:=xlFillDefault
    Selection.AutoFill Destination:=Range(ActiveCell.Address & ":CW4"), Type:=xlFillDefault

Cordialement.

23/01/2013, 11h04
mickey89

c'est parfait, simplement, j'ai du mal à comprendre la syntaxe du range :mouarf:
23/01/2013, 11h11
gFZT82

ActiveCell.Address : $CW$4
donc Range("CJ4:" & ActiveCell.Address) : Range("CJ4:$CW$4")

Cordialement.

EDIT : On comprend mieux avec
ActiveCell.Address : $CL$4
Range("CJ4:" & ActiveCell.Address) : Range("CJ4:$CL$4")
23/01/2013, 11h17
mickey89

c'est clair.

merci:ccool: