VBA ajout d'heure dans plusieurs cellules

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:

---

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

---

Bonsoir,

Code:

---

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

---

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

ReBonsoir

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

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

Bonjour,

Au temps pour moi :

Code:

---

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

---