Bonjour

voilà, j'ai un tableau en colonne B se trouve des dates (du 01/01/2018 à .............2030) dans les autres colonnes jusqu’à Y:Y des infos qui sont entrées grâce à des formules.

L'idée serait de bloqué ces formules du 01/01 (B18) au lundi de la semaine en cours (ou si ce n'est pas possible à la date du jour -1) par un copié collé soit à l'ouverture de la feuille ou par un command button.

J'ai bien une formule pour sélectionner la date du jour ou une date inférieur en changeant ma valeur DATE.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub SelectDate(Feuille As String)
 
Derlign = Worksheets(Feuille).Range("B65536").End(xlUp).Offset(1, 0).Row
 
For i = 1 To Derlign
    If Range("B" & i) = Date Then
        Range("B" & i).Activate
        ActiveCell.Offset(0, 2).Activate
        Exit Sub
    End If
Next i
 
End Sub
Mais je ne vois pas comment lui dire range B18:et Y date du jour-7

et ensuite copié collé

Merci d'avance.