Macro pour rajouter 1 heure

[Luc Lucasse]

Bonsoir le forum,

Encore un petit problême d'heure que j'espére arrivé à régler!!!!

Je cherche à créer une macro sur la Feuille1 qui me permettrait de rajouter 1 heure sur chaque heure qui apparait dans la colonne F de cette même feuille.

En sachant que toutes les cases de la colonne F peuvent être vide.

Merci pour votre aide

 

[Mytå]

Re : Macro pour rajouter 1 heure

Salut le Forum

Essaye ceci :

Sub AddAnHour()
 
Dim I As Single
 
For I = 1 To Range("F65535").End(3).Row
    If Not IsEmpty(Cells(I, 6)) Then
        Cells(I, 6) = Cells(I, 6) + 1 / 24
    End If
Next I
 
End Sub

Mytå

 

[Luc Lucasse]

Re : Macro pour rajouter 1 heure

Quel doit être le format de l'heure pour permettre l'addition??

Merci

 

[Luc Lucasse]

Re : Macro pour rajouter 1 heure

Voila une partie de mon programme