Erreur VBA
Zooloo-
Messages postés
44
Date d'inscription
Statut
Membre
Dernière intervention
-
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Quelqu'un peut il me dire l'erreur :
Function temps_moins_pauses(t As Variant) As Variant
Dim t1 As Variant
Dim t2 As Variant
t1 = Range("E9")
t2 = Range("F9")
If "14:00:00" = t1 Then
temps_moins_pauses = t - 0.00694444444
Else
temps_moins_pauses = t
End If
End Function
Merci
Quelqu'un peut il me dire l'erreur :
Function temps_moins_pauses(t As Variant) As Variant
Dim t1 As Variant
Dim t2 As Variant
t1 = Range("E9")
t2 = Range("F9")
If "14:00:00" = t1 Then
temps_moins_pauses = t - 0.00694444444
Else
temps_moins_pauses = t
End If
End Function
Merci
A voir également:
- Erreur VBA
- Erreur 0x80070643 - Accueil - Windows
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
- Java code erreur 1603 ✓ - Forum Windows
6 réponses
Bonjour,
Quelle est le message d'erreur .... ?
Quelle ligne du code est surlignée en jaune... ?
A quoi vous sert le T2 .... Pas utilisé dans le code... ?
Quelle est le message d'erreur .... ?
Quelle ligne du code est surlignée en jaune... ?
A quoi vous sert le T2 .... Pas utilisé dans le code... ?
j'utiliserai t2 plus tard...
la fonction marche avec un nombre entier comme 2 par exemple mais pas avec une heure type 14:00:00..
la fonction marche avec un nombre entier comme 2 par exemple mais pas avec une heure type 14:00:00..
Bonjour,
Merci de votre réponse.
Concerne : nombre entier, Il ne faut pas oublier ceci :
Les années, mois et jours sont identifiées par les nombres entiers (base 1 = 01.01.1900)
Et les heures, minutes et secondes quant à elles sont identifiées par les décimales de 0 à 0,99999 (exemple: 0.0104166666666667 = 15 minutes)
Conséquence : pour chaque nombre entier le temps sera toujours de 00 :00 :00
Salutations.
Le Pingou
Merci de votre réponse.
Concerne : nombre entier, Il ne faut pas oublier ceci :
Les années, mois et jours sont identifiées par les nombres entiers (base 1 = 01.01.1900)
Et les heures, minutes et secondes quant à elles sont identifiées par les décimales de 0 à 0,99999 (exemple: 0.0104166666666667 = 15 minutes)
Conséquence : pour chaque nombre entier le temps sera toujours de 00 :00 :00
Salutations.
Le Pingou
Bonjour,
Essaie comme cela
A+
Essaie comme cela
Function temps_moins_pauses(t As Variant) As Variant
Dim t1 As Variant
'Dim t2 As Variant
Application.Volatile
t1 = Range("E9")
't2 = Range("F9")
If TimeValue("14:00:00") = t1 Then
temps_moins_pauses = t - 0.00694444444
Else
temps_moins_pauses = t
End If
End Function
A+
Ca ne fonctionne pas non plus...
Je pense que Gyrus est proche avec TimeValue("14:00:00")
Je ne sais pas a quoi sert le Application.Volatile...
J'ai aussi essayé en remplacant 0.00694444444 par TimeValue("00:10:00") mais sans résultat.
Si quelqu'un a une autre proposition , je suis preneur...
Je pense que Gyrus est proche avec TimeValue("14:00:00")
Je ne sais pas a quoi sert le Application.Volatile...
J'ai aussi essayé en remplacant 0.00694444444 par TimeValue("00:10:00") mais sans résultat.
Si quelqu'un a une autre proposition , je suis preneur...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonsoir,
Application.Volatile sert à accélérer ou activer le calcul
ensuite il serait bon bon d'avoir un bout de ton fichier anonymisé que l'on voit sa structure, il doit y avoir certainement un problème de format de nombre
pour joindre un fichier, à partir de ce lien
https://www.cjoint.com/
Application.Volatile sert à accélérer ou activer le calcul
ensuite il serait bon bon d'avoir un bout de ton fichier anonymisé que l'on voit sa structure, il doit y avoir certainement un problème de format de nombre
pour joindre un fichier, à partir de ce lien
https://www.cjoint.com/
