ajouter des Heures

[sonskriverez]

Bonsoir le forum,

Encore un pbl de temps, j'ai besoin de rajouter 4 hrs a des cellules bien précises:

toutes les cellules qui ont une information date et heures ex :
15/02/2007 14:00:00 après calcul 15/02/2007 18:00:00 le prbl est que l'emplacement des cellules est variables.

Une petite macro serait la bienvenue

merci de votre aide

 

[ERIC S]

Re : ajouter des Heures

Bonjour

un essai. Attention, champs 4 et 5 que faut'il faire?

Sub ajout()
Dim c As Range
derligne = Range("A65536").End(xlUp).Row
dercol = Range("IV1").End(xlToLeft).Column
For Each c In Range(Cells(1, 1), Cells(derligne, dercol))
Range(c.Address).Select
'cellules "date"
If IsDate(c) Then
c.Value = c.Value + (4 / 24)
End If
'Cellules "heures"
If c.NumberFormat = "h:mm:ss" Then
c.Value = c.Value + (4 / 24)
'dépassement minuit (exemple sur champ5 entraine +1 jour champ 4)
If c.Value > 1 Then
c.Value = c.Value - 1
c.Offset(0, -1).Value = c.Offset(0, -1).Value + 1
End If
End If
Next

End Sub

 

[sonskriverez]

Re : ajouter des Heures

Super Eric, cela me semble bon je vais mouliner un gros fichier et je te le confirme.
Pour le champ 4 et 5 tu as bien "percuter" il faut effectivement incrementer la date du champ 4 si le calcul dépasse 24:00

du bon boulot

merci

 

[ERIC S]

Re : ajouter des Heures

re

si ton fichier est gros vérifie bien alors

par contre ton champ 4 passe en jj/mm/aaa 04:00:00 mais à l'écran rien ne change

on pourrait éviter cela en ne faisant rien si l'heure d'un champ date est 00:00:00 mais si tu as une donnée utile à minuit cela te génèrerait une erreur

 

[sonskriverez]

Re : ajouter des Heures

Slt Eric,

oui tu as raison il ne faut pas que le champ 4 soit incrémenté, il faut juste que la date s'incrémente si le champ 5 est > à minuit.

par contre cela marche bien sur le champ 13 qui est en fait la concatenation du Champ 4 et 5

merci de ton aide

 

[ERIC S]

Re : ajouter des Heures

re

si c'est spécifique aux colonnes 4 et 5

'cellules "date"
If IsDate(c) And Not c.Column = 4 Then
...
End If
'Cellules "heures"
If c.NumberFormat = "h:mm:ss" Then
c.Value = c.Value + (4 / 24)
'dépassement minuit (exemple sur champ5 entraine +1 jour champ 4)
If c.Value > 1 And c.Column = 5 Then
...

pour l'ereur générée par les x, je ne sais pas ce que contiennent tes cellules, il faudrait les passer en format standard

 

[sonskriverez]

Re : ajouter des Heures

Non c'est pas spécique à la colonne 4 et 5 c'est chaque fois qu'il y a ce type de colone, colonne 1 format date et colonne 2 format heure

 

[ERIC S]

Re : ajouter des Heures

re

donc on peut faire un truc du genre:

'cellules "date" non suivie de cellule heure
If IsDate(c) and not c.NumberFormat = "h:mm:ss" Then
c.Value = c.Value + (4 / 24)
End If
'Cellules "heures"
If c.NumberFormat = "h:mm:ss" Then
c.Value = c.Value + (4 / 24)
'dépassement minuit (exemple sur champ5 entraine +1 jour champ 4)
If c.Value > 1 Then
c.Value = c.Value - 1
'vérif cellule précédente est de type heure
if C.offset(0,-1).NumberFormat = "h:mm:ss" Then
c.Offset(0, -1).Value = c.Offset(0, -1).Value + 1
end if
End If
End If

Question : tu as des cellules date ou heures avec formules?

 

[sonskriverez]

Re : ajouter des Heures

ok j'essaye ce soir, pour répondre à ta question :non c'est un import de value uniquement

 

[sonskriverez]

Re : ajouter des Heures

non ca marche pas, lorsque le champ est

22/05/2007 la condition ci-dessous est respecté et il rajoute 4 Hrs. Dans ce cas il ne faut pas

If IsDate(c) And Not c.NumberFormat = "h:mm:ss" Then
c.Value = c.Value + (4 / 24)
End If

par contre si le champ est 22/05/2007 14:00:01, il faut incrémenter de 4 Hrs

 

[ERIC S]

Re : ajouter des Heures

Re

Désolé pour l'erreur

fichier à tester

 

[sonskriverez]

Re : ajouter des Heures

Slt Eric,

Désolé pour ma réponse tardive...

bon j'ai testé ta macro sur 3245 lignes et c'est tout bon cela règle mon pbl N°1 je vais très certainement poster pour un calcul entre des des heures suivant un certain critère.

En tout cas je te remercie de ton aide, surtout que tu appliques des commentaires dans tes macros et c'est très formateur.