Discussion :

[leloup84]

Bonjour,

Dans la formule ci-dessous je fais un cumul d'heure.
Le résultat me pose un souci à chaque fois que l'on tombe sur un multiple de 24h.
Quand je tombe sur 24h il affiche 00:00:00 puis il enchaine bien 25:00:00, 26:00:00...
Puis idem à 48h, 72h...

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim ligne_BDD As Integer
Dim heure As Date
 
nb_ligne_BDD = BDD.UsedRange.Rows.Count
 
For ligne_BDD = 3 To nb_ligne_BDD
        heure = heure + BDD.Cells(ligne_BDD, 4)
        BDD.Cells(ligne_BDD, 18).Value = heure
    End If
Next

[Philippe Tulliez]

Bonjour,
Cela provient du formatage de la cellule : Il faut entourer les "h" par un crochet ouvert et fermé soit [hh]:mm

[Docmarti]

Bonjour.
Remplace

Code :

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

Dim heure As Date

par

Code :

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

Dim heure As Double

[leloup84]

Non si je mets un Double mon cumul n'est pas correct.

Philippe Tulliez où je mets dans mon code ce que tu dis ?

[Philippe Tulliez]

Bonjour,

Philippe Tulliez où je mets dans mon code ce que tu dis ?

Tu peux le faire manuellement en allant dans le formatage des cellules et en VBA, c'est la propriété NumberFormat de l'objet Range

Code :

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

Range("A2").NumberFormat = "[hh]:mm"

Attention que ma réponse concerne uniquement le formatage des heures lorsque l'affichage de celles-ci est le reste de tranche de 24h. Je n'ai pas examiné ton code et il possible que la réponse de Docmarti que je salue soit également à prendre en compte.

[Invité]

Bonjour,

Entièrement d'accord avec Philippe que je salut!

https://www.developpez.net/forums/d1...a/#post9972572

[leloup84]

A mon code je dois ajouter la dernière ligne dans le For/Next car çà ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim ligne_BDD As Integer
Dim heure As Date
 
nb_ligne_BDD = BDD.UsedRange.Rows.Count
 
For ligne_BDD = 3 To nb_ligne_BDD
        heure = heure + BDD.Cells(ligne_BDD, 4)
        BDD.Cells(ligne_BDD, 18).Value = heure
        Range(BDD.Cells(ligne_BDD, 18)).NumberFormat = "[hh]:mm"
Next

[Docmarti]

@Philippe : Salut a toi Philippe .

[Docmarti]

A mon code je dois ajouter la dernière ligne dans le For/Next car çà ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim ligne_BDD As Integer
Dim heure As Date
 
nb_ligne_BDD = BDD.UsedRange.Rows.Count
 
For ligne_BDD = 3 To nb_ligne_BDD
        heure = heure + BDD.Cells(ligne_BDD, 4)
        BDD.Cells(ligne_BDD, 18).Value = heure
        Range(BDD.Cells(ligne_BDD, 18)).NumberFormat = "[hh]:mm"
Next

Tu as trouve la solution.

Tu peux aussi tester comme ceci:

Code :

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

1
2
3
 
        BDD.Cells(ligne_BDD, 18).NumberFormat = "[hh]:mm"
        BDD.Cells(ligne_BDD, 18).FormulaLocal = heure

Il est generalement preferable de definir la propriete NumberFormat de la cellule avant d'y ecrire la valeur.

[Philippe Tulliez]

Bonjour,

je dois ajouter la dernière ligne dans le For/Next car çà ne fonctionne pas

Au lieu d'écrire cela ne fonctionne pas, il eut été plus clair de signaler que cette ligne de code renvoyait une erreur et nous donner le numéro de celle-ci.
La ligne 4 doit également être modifiée car je doute que tu aies le nombre de lignes attendues.

Code :

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

nb_ligne_BDD = BDD.UsedRange.Rows.Count

Imagions que UsedRange renvoie la plage A2:R20. La variable nb_ligne_BDD aura comme valeur 19 donc la boucle ira de 3 à 19 sans écrire à la ligne 20

Code :

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

1
2
3
 With BDD.UsedRange
  nb_ligne_BDD = .Row + .Rows.Count - 1
 End With

[leloup84]

Merci pour vos conseils.