Transformer -00:00 en 00:00

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

patsyl60

XLDnaute Occasionnel
Bonjour à tous,

Dans une macro, j'ai un résultat à -00:00. Si je converti en nombre avec 30 chiffres après la virgule , j'obtiens -0,000000000000000013877787807815 ( donc valeur négative)


Or je veux colorier les lignes inférieures à zéro via une ligne d'instructions :

Code:
if Range("b" & I) < 0 Then Range("b" & I).Interior.ColorIndex = 3
Je voudrais que les -00:00 se transforme en 00:00.

Comment faire un arrondi avec 2 chiffres après la virgule dans mon instruction ?

D'avance merci de votre aide.

Bonne journée.

Patsyl60
 
Re : Transformer -00:00 en 00:00

Bonjour Paritec,

Merci pour ta réponse rapide , mais je n'ai pas de changement avec ta solution.

Par contre, j'ai fait une modif de mon code :

j'ai ajouté avant :

Code:
Range("b" & I) = Round(Range("b" & I), 2)

Et cela fonctionne. Est ce la bonne solution ?

Bonne journée.

Patsyl60
 
Re : Transformer -00:00 en 00:00

Bonjour patsyl60, salut Pascal 🙂

Vous semblez oublier avoir écrit :

Je voudrais que les -00:00 se transforme en 00:00.

Apparemment il s'agit d'heures au format heure dans les cellules, alors pourquoi pas :

Code:
If Range("b" & I).Text = "-00:00" Then Range("b" & I) = 0
Range("b" & I).Interior.ColorIndex = IIf(Range("b" & I) < 0, 3, xlNone)

Nota : par ailleurs pour avoir des heures négatives vous avez pris l'option Calendrier depuis 1904 non ?

A+
 
Re : Transformer -00:00 en 00:00

Bonjour Job75, Paritec,

Merci pour ta solution.

Effectivement, j'utilise le calendrier depuis 1904 pour avoir des heures négatives.

Pour mon format d'heures, c'est un cumul d'heures qui me fait avoir des heures négatives ou positives.

Bonne journée.

Patsyl60
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
14
Affichages
1 K
G
  • Question Question
Réponses
1
Affichages
803
Grouchet
G
Réponses
31
Affichages
4 K
Réponses
1
Affichages
1 K
L
Réponses
9
Affichages
1 K
Réponses
13
Affichages
2 K
Retour