Discussion :

[UARG25]

Bonjour

Ci dessous ma requête,j'ai des cellules avec une date et une heure(de A3 à A10) je veux garder uniquement l'heure et ajouter pour chaque cellules une heure , ma requête fonctionne mais il ajoute uniquement une heure à la cellule A3 (la première) et mets toutes les autres cellules à la même heure que la première (en l'occurrence A3) et si je réexécute ma requête il ajoute bien une heure à toutes les cellules !!!
Pouvez-vous m'aider SVP car suis profane en VBA .

Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Compare()
 
Dim cell As Range
 
Columns("A:A").NumberFormat = "hh:mm:ss"
 
For Each cell In Range("A3")
If cell.Value > 1 Then
       Range("A3:A10") = Range("A3") + (1 / 24)
 
End If
 
Next cell
 
End Sub

[Daniel.C]

Bonsoir,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Compare()
 
Dim cell As Range
 
Columns("A:A").NumberFormat = "hh:mm:ss"
 
For Each cell In Range("A3:A10")
    If cell.Value > 1 Then
        cell.Value = TimeSerial(Hour(cell), Minute(cell), Second(cell)) + (1 / 24)
    End If
Next cell
 
End Sub

[UARG25]

Mille mercis !!! ça fontionne très bien ! comme quoi il vaut mieux s'adresser au bon Dieu qu'à ses saints !!!

ReBonsoir

Par contre si je la réexécute il ne rajoute pas une heure ! est-ce normal ?

Une autre question

Sur les cellules à 23h et plus il affiche bien 00h xx mais par contre en cliquant sur la cellule il affiche : 01/01/1900 00:22:00

N'est ce pas un problème de format de la cellule ?

Merci

[Daniel.C]

Bonjour,

Au temps pour moi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Compare()
 
Dim cell As Range
 
Columns("A:A").NumberFormat = "hh:mm:ss"
 
For Each cell In Range("A3:A10")
    If cell.Value > 1 Then
        cell.Value = cell.Value + (1 / 24)
    End If
Next cell
 
End Sub