Heures négatives après un export

Bonjour,

L'export de données sous excel 2013 à partir d'un logiciel de pointage me donne automatiquement et correctement les valeurs positives ou négatives.

Mais pour les valeurs négatives, le format exporté par défaut de la cellule est "-[hh]:mm".

Exemple :

Dans la barre de formule : 01:06:00

Dans la cellule : -01:06

Comment récupérer la valeur négative pour faire des calculs ? Je récupère 1h26 et pas -1h26

Je joins un fichier exemple.

Merci pour votre aide.

Bruno H.

Bonsoir,

Les heures négatives ne sont pas vraiment négatives. Ce n'est qu'un format d'affichage. Le calcule ne tient pas compte de ça. Tu mets le même formatage de cellules si tu veux.

Merci pour ce retour.

Mais les heures sont réellement négatives, j'ai 56 lignes à gérer par semaine et je ne souhaite pas manuellement ajouter le signe moins dans la mesure où il s'affiche..

Cdlt.

BH

Bonjour,

Une proposition VBA.

Cdlt.

Merci Jean Eric,

Votre code fonctionne parfaitement.

Et pour une fois, je suis arrivé à mettre en application la solution dans mon propre fichier !

Question complémentaire : comment je dois procéder pour mettre ce code dans un module de classeur de macro (pas le classeur Perso) J'ai essayé mais j'obtiens un message d'erreur.

Encore merci.

BH

Re,

Si j'ai bien compris ta demande :

Option Explicit
'Option Private Module

Public Sub Convertir()
Dim ws As Worksheet
Dim lastRow As Long, rw As Long

    Application.ScreenUpdating = False

    Set ws = ActiveSheet

    With ws
        lastRow = .Cells(Rows.Count, 2).End(xlUp).Row
        For rw = 7 To lastRow
            If .Cells(rw, 2).NumberFormat = "-[hh]:mm" Then
                ' remplacer 10 par 2 après tests
                .Cells(rw, 10).NumberFormat = "[hh]:mm"
                .Cells(rw, 10) = .Cells(rw, 2) * -1
            End If
        Next rw
    End With

    Set ws = Nothing

End Sub

Merci, parfait.

Il me manquait la déclaration de la feuille (ws).

BH