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
merci de vos lumières
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager