Titre du sujet : Re: liste de choix et recherche par myDearFriend! le 28/06/2010 21:10:15
Bonsoir Nino63, le Forum,
Nino63, as-tu seulement essayé de le faire par toi-même ?
Que tu rencontres une difficulté avec cette histoire du jour ouvré d'accord, mais sinon, c'était quand même pas si compliqué que ça d'essayer...
Une solution parmi d'autres donc... Dans le module de code de la feuille Planning :
Remplacer la procédure suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'ne gère pas la modification de plage
If Not Application.Intersect(Target, UsedRange, Range("B13:C65536")) Is Nothing Then
'Date de MAJ
Cells(ActiveCell.Row, 10).Value = Now
End If
End Sub
Par celle-ci :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim D As Date
If Target.Count > 1 Then Exit Sub 'ne gère pas la modification de plage
If Not Application.Intersect(Target, UsedRange, Range("B13:C65536")) Is Nothing Then
'Date de Livraison
With Cells(ActiveCell.Row, 2)
If .Value = "" Then
'Date = aujourd'hui + 1 jour ouvré
D = Date + 1
D = IIf(Weekday(D, vbMonday) < 6, D, IIf(Weekday(D, vbMonday) < 7, D + 2, D + 1))
.Value = D
End If
End With
'Date de MAJ
Cells(ActiveCell.Row, 10).Value = Now
End If
End Sub
Cordialement,
|