Fait le calcule quand il y a la donnée

Bonsoir,

Je voudrais que le code fasse le calcule juste quand il y a la donnée. (info: la code actuelle fait travail sans considérer s'il y a toutes les données et a cause de ça, il s’arrête quand il y a une donnée qui manque).

Merci d'avance.

Salut,

Ton code modifié ci-dessous devrait faire l'affaire :

Option Explicit
Sub Soustraire()
Dim C As Range
Dim Heure As Integer, Minute As Integer
Dim Difference As Double
    With Worksheets("Hoja1")
        For Each C In .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row)
            If C <> "" And C.Offset(0, 1) <> "" Then
                Heure = Split(C, "h")(0)
                Minute = Split(Split(C, "h")(1), "m")(0)
                C.Offset(0, 2) = C.Offset(0, 1) - (Heure / 24 + Minute / 24 / 60)
            End If
        Next C
    End With
End Sub

Cordialement

Bonsoir,

Avant tout merci pour ta réponse.

Le problème arrive quand le résultat est négative. Il y aurait pas une façon pour indiquer que le résultat est négative et qu'il fasse le calcule quand mémé?

josjuan2001 a écrit :

Je voudrais que le code fasse le calcule juste quand il y a la donnée (info: la code actuelle fait travail sans considérer s'il y a toutes les données et a cause de ça, il s’arrête quand il y a une donnée qui manque).

josjuan2001 a écrit :

Le problème arrive quand le résultat est négative.

Ce n’est pas du tout le même problème, tu te contredis !!!!!!!!!!!!!!!!!!!!!

Pour les calculs négatifs, je t’ai déjà proposé une solution sur un autre de tes fils.

Amicalement.