heure et colonne

pascal21

XLDnaute Barbatruc

• 26 Mai 2007

• #2

Re : heure et colonne

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Mai 2007

• #3

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

 

Vote positif 0 Vote négatif

W

wrndid

XLDnaute Occasionnel

• 26 Mai 2007

• #4

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Mai 2007

• #5

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

 

Vote positif 0 Vote négatif

W

wrndid

XLDnaute Occasionnel

• 26 Mai 2007

• #6

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

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 26 Mai 2007

• #7

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.

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 26 Mai 2007

• #8

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....

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Mai 2007

• #9

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)

 

Vote positif 0 Vote négatif

W

wrndid

XLDnaute Occasionnel

• 26 Mai 2007

• #10

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

 

Vote positif 0 Vote négatif

W

wrndid

XLDnaute Occasionnel

• 26 Mai 2007

• #11

Re : heure et colonne

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

 

Vote positif 0 Vote négatif

JYLL

Nous a quitté

Repose en paix

• 27 Mai 2007

• #12

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.

Code:

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.

 

Dernière édition: 28 Mai 2007

Vote positif 0 Vote négatif