Discussion :

[avyrex]

Bonjour a tous,

Voici ce que je voudrai faire avec ce fichier.
Dans la colonne C, nous avons l’heure d’ouverture. Dans la colonne D, ce trouve l’heure de fermeture.

Maintenant, je voudrais que dans la colonne E, qu’il calcule le nombre d’heures entre l’heure d’ouverture et l’heure de fermeture.

Ensuite, dans la colonne F, qu’il me calcule l’heure de la colonne E divisée par 2 et ensuite qu’il additionne la réponse a l’heure de la colonne C.

Finalement, dans la colonne G, qu’il calcule calcule l’heure de la colonne E divisé par 2 et ensuite et la réponse doit êtres inscrite en minutes et non en heure.
Ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1 :00 égale 60; 2 :00 égale 120 et, ainsi de suite

.

Si c’est possible en macro au lieu de formule, ça serait apprécié, car mon fichier est énorme ce qui ralentiré tout.

P.-S. Je vous envoie un échantillon du fichier à la ligne 2, vous avez le résultat final et sur la ligne 4, vous avez l’explication complète.

Merci pour votre aide.

[pgz]

Bonsoir,

Si j'ai bien compris, et si SH est ton objet feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
'colonne E
sh.Range("En") = sh.range("Dn") -Sh.Range("Cn") 
'colonne F
sh.Range("Fn") = (sh.range("Dn") +Sh.Range("Cn") )/2
'colonne G
sh.Range("Gn") = DateDiff("n", SH.Range("Cn"), SH.Range("Dn")) / 2

C, D, E et F contiennent des valeurs de type DateHeure et ont pour format "hh:mm"
G est de type réel, le format décide du nombre de décimales.

Cordialement,

PGZ

[avyrex]

Bonjour pgz,

Avec se code, j'ai l'erreur: Run time erreur 424
object required

Quest-ce que ça veut dire?

[casefayere]

bonsoir,
essaye çà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
Dim x As Integer
Range("G3:g" & Range("c10000").End(xlUp).Row).NumberFormat = "[mm]" 'format de la colonne G
For x = 3 To Range("c10000").End(xlUp).Row
If Range("d" & x) > Range("c" & x) Then
Range("e" & x) = Range("d" & x) - Range("c" & x)
Else
Range("e" & x) = (24 - Range("c" & x)) + Range("d" & x)
End If
Range("f" & x) = Range("c" & x) + (Range("e" & x) / 2)
Range("g" & x) = Range("e" & x) / 2
Next x
End Sub

[casefayere]

j'ai revu certains trucs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
Dim x As Integer
Range("G3:g" & Range("c10000").End(xlUp).Row).NumberFormat = "[mm]" 'format de la colonne G
For x = 3 To Range("c10000").End(xlUp).Row
Range("e3:e" & Range("c10000").End(xlUp).Row).NumberFormat = "hh:mm" 'format de la colonne e
 
If Range("d" & x) > Range("c" & x) Then
Range("e" & x) = Range("d" & x) - Range("c" & x)
Else
Range("e" & x) = Format((24 - Range("c" & x)) + Range("d" & x), "hh:mm:ss") 'j'ai corrigé
End If
Range("f" & x) = Format(Range("c" & x) + (Range("e" & x)) / 2, "hh:mm:ss") 'j'ai corrigé
Range("g" & x) = Range("e" & x) / 2
Next x
End Sub

[avyrex]

Un très grand merci casefayere, ça fonctionne no1.

Mon fichier sera ultra léger avec cette macro.

Merci aussi à pgz.