XL 2016 Soustraction de format heure avec résultat négatif VBA

patricktoulon

XLDnaute Barbatruc

• 13 Octobre 2020

• #16

puré ce soir je suis verni
entre un qui bousille mon calendrier et un autre qui attribue des propriété au mauvais parent
bon je démissionne moi j'en peux plus je burnout ( "out" je sais pas mais bu.. ben on y est)

ok je sort

 

Vote positif 0 Vote négatif

Y

Yabon21

XLDnaute Nouveau

• 13 Octobre 2020

• #17

Aucune des deux réponses ne marche.
merci quand même les gars, je vais me démerder avec un bon vieux =sierreur(XX-XX;"")

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Octobre 2020

• #18

Désolé, j'ai testé la solution du post #14 sur votre ligne 5 et ça marche.
Toutes les chaines comportant un ":" ont été converties en heure.
Cette macro doit être lancée avant tout calcul.

 

Vote positif 0 Vote négatif

Y

Yabon21

XLDnaute Nouveau

• 13 Octobre 2020

• #19

sylvanu à dit:

Désolé, j'ai testé la solution du post #14 sur votre ligne 5 et ça marche.
Toutes les chaines comportant un ":" ont été converties en heure.
Cette macro doit être lancée avant tout calcul.

Cliquez pour agrandir...

J'arrive pas à la faire fonctionner en incrémentant mes userform.
je re test demain
Bonne soirée ;-)

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Octobre 2020

• #20

Vous lancez cette macro une fois que toutes les valeurs de tous les userforms sont posés sur la feuille.
Autre solution, dès que vous récupérer une valeur d'un textbox, vous faites :

VB:

' Chaine est la chaine récupérée d'un userform
    If Chaine Like "*:*" Then
        Chaine = CDate(Chaine)
    End If

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Octobre 2020

• #21

Encore plus simple.
Vous mettez cette fonction dans un module standard :

VB:

Function Convertir(Chaine)
    If Chaine Like "*:*" Then
        Chaine = CDate(Chaine)
    End If
    Convertir = Chaine
End Function

et à chaque fois que vous faites un :

Code:

Feuil1.Cells(5, 22) = TextBox1

vous le remplacez par

Code:

Feuil1.Cells(5, 22) = Convertir(TextBox1)

Si c'est une chaine, elle reviendra identique, si c'est du type "5:35" elle reviendra converti en décimal.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Octobre 2020

• #22

Ca donne ça dans votre fichier.
Je n'ai pas juger de la pertinence des résultats mais ça ne se plante plus.
Au moins on a avancé.

 

Pièces jointes

• Suivi des W NG (4).xlsm

  45.5 KB · Affichages: 3

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Octobre 2020

• #23

re
Feuil1.Cells(5, 22) = iif(isdate(textbox1),timevalue(TextBox1),textbox1)

bon d'accords je sort

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Octobre 2020

• #24

La fonction offre l'avantage d'être plus lisible pour Yabon, et de ne peu modifié son code.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Octobre 2020

• #25

@patrick,
Par curiosité j'ai regardé laquelle des deux méthodes était la plus rapide.
Sur un grand nombre d'itérations j'arrive sur mon PC à 412µs pour le IIF et 417µs pour la function.
Donc se valant, ça reste au feeling de chacun.

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 13 Octobre 2020

• #26

Bonjour à tous,

au fil de la lecture j'ai cru comprendre que textbox1 pouvait retourner une 'vraie' chaine.
Si c'est le cas
Feuil1.Cells(5, 22) = iif(isdate(textbox1),timevalue(TextBox1),textbox1)
plantera, tous les éléments du iif étant toujours évalués.
timevalue("aie aie aie") ne passera pas
eric

 

Vote positif 0 Vote négatif