Discussion :

[nibledispo]

Bonjour:

Premier point : "worksheets" en lieu et place de "worsheet" fait des merveilles.
Il te faudra tout de même régler le problème "h" ou "H" pour être sûr de prendre les deux cas.

deuxième point : Ecriture de la formule dans le code

Code :

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

1
2
 
[c10] = [IF(AND(a10>0,b10>0),(b10*24)-(a10*24)," ")]

Ceci correspond à la fonction evaluate (écriture simplifiée)

Pour le reste, je regarde.

Cordialement,

[Philippe Tulliez]

Bonjour,
Ce n'est pas plus simple d'encoder les deux points directement ?
Le code à placer dans l'objet feuille

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
 Application.EnableEvents = False
 ' Remplace les "h","H" par des ":" dans la plage Texte1 (A10:C29)
  If Target.Column = 1 Then Target = Replace(ucase(Target), "H", ":"): Target = Target * 1: Target.NumberFormat = "h:mm;@"
 Application.EnableEvents = True
End Sub

Attention le code est fait pour toute la colonne A (A adapter)

[Invité]

Philippe tu as appuyé sur le buser avant moi

Code :

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

1
2
Sheets("saisie-pilote").Range("A10:C29").Replace What:="h", Replacement:=":", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

[Blend]

Étant donné que vous m'avez très bien répondu, je clos ce sujet comme résolu.

Vous êtes top !!

Blend