Discussion :

[pouet35]

Bonjour,

j'essaie de modifier une heure lorsque la condition est atteinte. Mais j'ai l'erreur 424 objet requis.
Quel est l'objet manquant ?
le format de la cellule est sous la forme jj:mm:aaaa hh:mm:ss

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim dte1 As Date
Dim hr1 As Double
Dim dercell, i As Integer
 
With Sheets("Feuil1")
dercell = .Range("A" & Rows.count).End(xlUp).Row
For i = 4 To dercell
dte1 = Sheets("Feuil1").Range("D" & i)
  hr1 = hour(dte1)
 If hr1 >= 18 Then
    hour(dte1) = 17
 End If
Next

Merci.

[ZebreLoup]

En fait, tu ne peux pas modifier directement l'heure d'une date via la fonction hour. Il faut que tu crée une nouvelle date qui reprend toutes les caractéristiques de la première, sauf l'heure que tu fixes à 17, ou que tu utilise un dateadd("h",17-hour(dte1),dte1)

[pouet35]

Merci beaucoup problème résolu.