Additionner 1 heure à un champ hh:mm

Je comprends cette forme d'écritur pour le If Then mais je v=ne vois pas comment l'intégrer dans ma programmation. En fait, j'aurais dû donner plus de détails... Désolé. Voici la sous-routine au complet. D2 contient une valeur entre 0 et 60 et P2 une heure en formet hh:mm comem 09:00. Si D2 > 54, je dois ajouter une heure au champ P2 et ainsi de suite jusqu'à la fin de la colonne.

Sub M0225_Additionner_1_heure()
'
' Si la minute avant synchronisation est égale à 56, 57, 58, 59 ou 60, on doit
' ajouter 1 heure à la valeur hh:mm synchronisé
'

'
' On définit la colonne en format hh:mm
'
Columns("P:P").Select
Selection.NumberFormat = "hh:mm;@"

'
' On définit une plage de travail en copiant le contenu de la colonne E dans la colonne P
'
Range("E2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("P2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

' Si la minute synchronisée est entre 55 et 60, la minute synchronisée sera mise à zéro et on
' doit ajouter 1 heure à l'heure synchronisée (hh:mm synchronisée)

ActiveCell.FormulaR1C1 = "=SI(D2>54;P2+"01:00";P2)"
Range("P2").Select
Selection.Copy
Range("p3").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste

End Sub

Bonjour,

Sub M0225_Additionner_1_heure()
    ' Si la minute avant synchronisation est égale à 56, 57, 58, 59 ou 60, on doit
    ' ajouter 1 heure à la valeur hh:mm synchronisé
    
    ' On définit la colonne en format hh:mm
    Columns("P:P").Select
    Selection.NumberFormat = "hh:mm;@"

    ' On définit une plage de travail en copiant le contenu de la colonne E dans la colonne P
    Range("E2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("P2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                            :=False, Transpose:=False
    Application.CutCopyMode = False

    ' Si la minute synchronisée est entre 55 et 60, la minute synchronisée sera mise à zéro et on
    ' doit ajouter 1 heure à l'heure synchronisée (hh:mm synchronisée)

    'ActiveCell.FormulaR1C1 = "=SI(D2>54;P2+"01:00";P2)"
    
    If Range("D2") > 54 Then
        Range("P2") = Range("P2") + (1 / 24)
    End If
    
    Range("P2").Select
    Selection.Copy
    Range("p3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste

End Sub

Bonjour, merci de m'aider. Ça ne fonctionne pas. Cette procédure place un résultat dans la cellule mais la copie, par la suite, ne fait que recopier cette valeur dans toutes les cellules. J'ai besoin de placer une instruction dans P2 et ensuite, recopier cette formule dans les cellules dessous. C'est pour cette raison que j'essayais de faire fonctionner l'instruction 'ActiveCell.FormulaR1C1 = "=SI(D2>54;P2+"01:00";P2)"

Une idée sur la façon d'y arriver?

Merci

Nous en revenons au debut vous ne pouvez pas ecrire une formule dans une cellule qui a elle meme comme parametre.

la formule est:

Range("P2").FormulaLocal = "=SI(D2>54;P2+CNUM(" & Chr(34) & "01:00" & Chr(34) & ");P2)"

mais cela ne peut pas marcher