je comprend
pouver vous juste mindiquée dans la derniere formule crée
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Target.Row - 11 <> Weekday(Date) Then Beep: Exit Sub
If Not Intersect(Me.[C13:C19], Target) Is Nothing Then
Target.Value = Date
ElseIf Not Intersect(Me.[D13
19,F13:F19], Target) Is Nothing Then
Target.Value = Int(Time * 96 + 0.5) / 96
End If
End Sub
ca fonctionnais jusqu'a quelque minute cest comme si la formule pence que aujourdhui cest mercredi non jeudi
il est 1 journée en arriere depuis que j'ais ajouter une colonne dans le haut de mon fichier jais ensuite changer c12:c18 pour C13:C19 etc mais ca change pas avez vous une idée pkoi