Mon médecin m'a demander delui préparer un fichier à distribuer à ces
patients avec un problème de tension (comme moi)
J'ai déjà bricolé certains petits trucs, mais maintenant je bloque sur une
bétise
Dans la colonne B je mets l'heure de la prise de tension
Dans les colonnes C,D,E les hauts, bas et pouls
Le but et de créer un graphique pour la tension du matin et une pour celle
du soir
Bien sur je pourrais créer d'office deux colonnes séparées, mais pour des
raison de facilité il faudrait une seule colonne pour l'heure
Donc dans une colonne G je voudrais une fonction qui me donne l'heure
uniquement si elle est prise entre 5 H du mat ou midi
Et dans la colonne H si elle est prise entre midi et une miniute et 4H59 du
mat
Je ne peu pas utiliser les AM et PM car certaines personnes devront prendre
leur tension après une sortie qui peut se terminer au petites heures du
matin
Si quelqu'un à une idée
Et bien sur si quelqu'un a déjà créer un truc similaire je suis preneur
Chose promise chose due J'ai fait tourner ta macro ce matin et elle fonctionne impeccable
L'avantage de recevoir des trucs comme ça, est que l'on peut les analyser et s'en servir pour faire d'autre trucs aussi
Décidément ces macro cela devient réellement une drogue
Encore merci et à plus tard
Rex
"michdenis" wrote in message news:
Bonjour Teapot,
Tu peux essayer ceci que tu copieras dans le module code de ta feuille où l'action se déroulera. Et, à chaque fois que
l'usager entrera la donne en colonne D (son pouls), l'heure s'inscrira soit en colonne G ou H se l'heure de la journée.
'----------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim B As Long, A As Double If Not Intersect(Target, Columns("D:D")) Is Nothing Then B = Target.Row If Range("G" & B) = "" And Range("H" & B) = "" Then A = Val("0." & Replace(Timer, ".", "")) Application.EnableEvents = False If A > 0.2083333 And A < 0.5006944 Then Range("G" & B).NumberFormat = "HH:MM" Range("G" & B) = Format(Now, "HH:MM") Range("H" & B) = "" Else Range("H" & B).NumberFormat = "HH:MM" Range("H" & B) = Format(Now, "HH:MM") Range("G" & B) = "" End If Application.EnableEvents = True Else MsgBox "Si vous désirez modifier l'heure affichée dans" & _ vbCrLf & " dans le tableau, effacez d'abord l'heure existante " & _
vbCrLf & " dans la colonne H ou G et entrer de nouveau votre pouls."
End If End If
End Sub '-----------------------------------------
Salutations!
"teapot" a écrit dans le message de news:
Bonjour
Mon médecin m'a demander delui préparer un fichier à distribuer à ces patients avec un problème de tension (comme moi)
J'ai déjà bricolé certains petits trucs, mais maintenant je bloque sur une bétise
Dans la colonne B je mets l'heure de la prise de tension Dans les colonnes C,D,E les hauts, bas et pouls
Le but et de créer un graphique pour la tension du matin et une pour celle du soir
Bien sur je pourrais créer d'office deux colonnes séparées, mais pour des raison de facilité il faudrait une seule colonne pour l'heure
Donc dans une colonne G je voudrais une fonction qui me donne l'heure uniquement si elle est prise entre 5 H du mat ou midi Et dans la colonne H si elle est prise entre midi et une miniute et 4H59 du
mat
Je ne peu pas utiliser les AM et PM car certaines personnes devront prendre
leur tension après une sortie qui peut se terminer au petites heures du matin
Si quelqu'un à une idée
Et bien sur si quelqu'un a déjà créer un truc similaire je suis preneur
Un grand merci à tous Et à bientôt
Rex
Bonjour
Chose promise chose due
J'ai fait tourner ta macro ce matin et elle fonctionne impeccable
L'avantage de recevoir des trucs comme ça, est que l'on peut les analyser et
s'en servir pour faire d'autre trucs aussi
Décidément ces macro cela devient réellement une drogue
Encore merci et à plus tard
Rex
"michdenis" <michdenis@hotmail.com> wrote in message
news:OOdrM8MmEHA.2968@TK2MSFTNGP14.phx.gbl...
Bonjour Teapot,
Tu peux essayer ceci que tu copieras dans le module code de ta feuille où
l'action se déroulera. Et, à chaque fois que
l'usager entrera la donne en colonne D (son pouls), l'heure s'inscrira
soit en colonne G ou H se l'heure de la journée.
'-----------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim B As Long, A As Double
If Not Intersect(Target, Columns("D:D")) Is Nothing Then
B = Target.Row
If Range("G" & B) = "" And Range("H" & B) = "" Then
A = Val("0." & Replace(Timer, ".", ""))
Application.EnableEvents = False
If A > 0.2083333 And A < 0.5006944 Then
Range("G" & B).NumberFormat = "HH:MM"
Range("G" & B) = Format(Now, "HH:MM")
Range("H" & B) = ""
Else
Range("H" & B).NumberFormat = "HH:MM"
Range("H" & B) = Format(Now, "HH:MM")
Range("G" & B) = ""
End If
Application.EnableEvents = True
Else
MsgBox "Si vous désirez modifier l'heure affichée dans" & _
vbCrLf & " dans le tableau, effacez d'abord l'heure existante " &
_
vbCrLf & " dans la colonne H ou G et entrer de nouveau votre
pouls."
End If
End If
End Sub
'-----------------------------------------
Salutations!
"teapot" <rthompsonretirezceci@skynet.be> a écrit dans le message de
news:euIxDDMmEHA.596@TK2MSFTNGP11.phx.gbl...
Bonjour
Mon médecin m'a demander delui préparer un fichier à distribuer à ces
patients avec un problème de tension (comme moi)
J'ai déjà bricolé certains petits trucs, mais maintenant je bloque sur une
bétise
Dans la colonne B je mets l'heure de la prise de tension
Dans les colonnes C,D,E les hauts, bas et pouls
Le but et de créer un graphique pour la tension du matin et une pour celle
du soir
Bien sur je pourrais créer d'office deux colonnes séparées, mais pour des
raison de facilité il faudrait une seule colonne pour l'heure
Donc dans une colonne G je voudrais une fonction qui me donne l'heure
uniquement si elle est prise entre 5 H du mat ou midi
Et dans la colonne H si elle est prise entre midi et une miniute et 4H59
du
mat
Je ne peu pas utiliser les AM et PM car certaines personnes devront
prendre
leur tension après une sortie qui peut se terminer au petites heures du
matin
Si quelqu'un à une idée
Et bien sur si quelqu'un a déjà créer un truc similaire je suis preneur
Chose promise chose due J'ai fait tourner ta macro ce matin et elle fonctionne impeccable
L'avantage de recevoir des trucs comme ça, est que l'on peut les analyser et s'en servir pour faire d'autre trucs aussi
Décidément ces macro cela devient réellement une drogue
Encore merci et à plus tard
Rex
"michdenis" wrote in message news:
Bonjour Teapot,
Tu peux essayer ceci que tu copieras dans le module code de ta feuille où l'action se déroulera. Et, à chaque fois que
l'usager entrera la donne en colonne D (son pouls), l'heure s'inscrira soit en colonne G ou H se l'heure de la journée.
'----------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim B As Long, A As Double If Not Intersect(Target, Columns("D:D")) Is Nothing Then B = Target.Row If Range("G" & B) = "" And Range("H" & B) = "" Then A = Val("0." & Replace(Timer, ".", "")) Application.EnableEvents = False If A > 0.2083333 And A < 0.5006944 Then Range("G" & B).NumberFormat = "HH:MM" Range("G" & B) = Format(Now, "HH:MM") Range("H" & B) = "" Else Range("H" & B).NumberFormat = "HH:MM" Range("H" & B) = Format(Now, "HH:MM") Range("G" & B) = "" End If Application.EnableEvents = True Else MsgBox "Si vous désirez modifier l'heure affichée dans" & _ vbCrLf & " dans le tableau, effacez d'abord l'heure existante " & _
vbCrLf & " dans la colonne H ou G et entrer de nouveau votre pouls."
End If End If
End Sub '-----------------------------------------
Salutations!
"teapot" a écrit dans le message de news:
Bonjour
Mon médecin m'a demander delui préparer un fichier à distribuer à ces patients avec un problème de tension (comme moi)
J'ai déjà bricolé certains petits trucs, mais maintenant je bloque sur une bétise
Dans la colonne B je mets l'heure de la prise de tension Dans les colonnes C,D,E les hauts, bas et pouls
Le but et de créer un graphique pour la tension du matin et une pour celle du soir
Bien sur je pourrais créer d'office deux colonnes séparées, mais pour des raison de facilité il faudrait une seule colonne pour l'heure
Donc dans une colonne G je voudrais une fonction qui me donne l'heure uniquement si elle est prise entre 5 H du mat ou midi Et dans la colonne H si elle est prise entre midi et une miniute et 4H59 du
mat
Je ne peu pas utiliser les AM et PM car certaines personnes devront prendre
leur tension après une sortie qui peut se terminer au petites heures du matin
Si quelqu'un à une idée
Et bien sur si quelqu'un a déjà créer un truc similaire je suis preneur
