heure et colonne

[wrndid]

bonjour
voici la fonction que je voudrais faire
de la colonne C9 a AI9 j'ai rentré les heure de 5:00 a 21:00 toute les 30mm
ex 5:00 5:30 ect...
quand je lance le calcul debut = Range("heure")Formula - 1 cela ne va pas
exp l'heure de 5h est 0.21 et 5h30 0.23 ect
je voudrais que 0.21 designe la colone C9 et 0.23 colonne D9 ect
merci de votre aide

 

[pascal21]

Re : heure et colonne

bonjour
un ptit fichier stp parceque là .......😕

 

[pierrejean]

Re : heure et colonne

bonjour wrndid

Salut Pascal21

sauf erreur la bonne formule devrait etre :

= Range("heure").Formula - 1 /24

ceci est du au fait qu'excel note les dates et heures en unité =jour
1 heure vaut 1/24 de jour

 

[wrndid]

Re : heure et colonne

un peut plus de detail
je rentre 6:00 dans la colonne "heure" je voudrais colorer E9 qui est 6:00 quand je lance ma macro mais dans la macro il me converti les heure en decimal au lieu de 6:00 je suis egal a 0.25
merci didier

 

[pierrejean]

Re : heure et colonne

re

oui c'est cela

0.25*24=6

si donc tu veux avoir 6 il te faut multiplier le nombre donné par 24

mais attention ! si tu le reportes dans une cellule formatée en heures cela representera 6 jours

il serait beaucoup plus simple de nous faire parvenir ton fichier et de nous expliquer ce que tu souhaites

 

[wrndid]

Re : heure et colonne

le fichier est trop grand je l'ai mis sur mon site
index
regarder dans la feuille janvier entrez heure dans le menu
jour debut fin et rt ou autre
didier

 

[jeanpierre]

Re : heure et colonne

Bonjour,

Salut mon contraire... pierrejean,

Je suis en colère là....

Je ne comprends pas, ce calendrier perpétuel, a été dénaturé du nom de son créateur et cela n'est PAS NORMAL.... la raison de ce post....

Oui, évidemment, on entend ensuite : "suis pas responsable, l'ai récupéré d'un copain qui connaissait bien l'amie du gardien du phare...."

Sur un post un peu ancien, j'avais refusé de répondre, car à l'époque, je ne me souvenais pas si le fichier en question était libre de droit et j'avais donc recherché....

Le problème n'est pas là.... le problème, c'est supprimer toutes traces du créateur et de dire ensuite.... là j'arrive pas...

Je vais donc faire une nouvelle recherche sur AltCal, si mes souvenirs sont bons... et je reviens...

Bonne journée à tous et bonne réflexion aussi.

 

[jeanpierre]

Re : heure et colonne

Re tous,

Re encore moi....

L'adresse du site... Ce lien n'existe plus

Donc, rendons à César.... et après on discute....

 

[pierrejean]

Re : heure et colonne

re

il y a probleme a l'ouverture et par ailleurs l'ensemble est trop complexe a detailler pour pouvoir travailler en toute connaissance de cause

désolé

je souhaite qu'un autre forumeur puisse te venir en aide

edit:

de tout coeur avec mon contraire (lol)

 

[wrndid]

Re : heure et colonne

bonjour
il y a pas de probleme le caledrier est telecharger sur le net et je l'ai adapter il reste juste les case des heures a adapter
didier

 

[wrndid]

Re : heure et colonne

j ai mis a jour le site
index
rgarder dans la feuille janvier

 

[JYLL]

Re : heure et colonne

Bonsoir wrndid, salut PierreJean, JeanPierre et le Forum,

Je me suis amusé à décoder la macro et voilà la nouvelle mouture qui fonction. Il y avait un mélange dans le contenu et le numéro ce colonne à trouver avec l'heure.

Sub question()
Dim I As Integer
Dim Debut As Integer
Dim Fin As Integer
'[COLOR="Red"] Formule Explication : (CSng(Range("debut") pour tranformer le texte en valeur décimale
'                      (1 / 24 * 5) pour retirer les 5:00 d'offset
'                      (1 / 24 * 0.5) pour diviver par 30 mn trouver le nombre de 1/2 heure
'                      (1 / 24 * 0.5) + 2, ajouter l'offset de la zone d'heure
'                       Round((CSng(Range("debut")) - (1 / 24 * 5)) / (1 / 24 * 0.5) + 2, 0) pour arrondir
'                                  du fait de la précison de calcul à l'entier le plus proche[/COLOR]'
Debut = Ccur(Range("debut")) - (1 / 24 * 5) / (1 / 24 * 0.5) + 2
Fin = CCur(Range("fin")) - (1 / 24 * 5) / (1 / 24 * 0.5) + 2
For I = Debut To Fin
    Range("A1").Select
    ActiveCell.Offset(Range("jour") + 8, I).Select
    With Selection.Interior
            .ColorIndex = Range("color").Interior.ColorIndex
           .Pattern = xlSolid
    End With
Next I
End Sub

Bon test.