Planning de prise de médicament
Bonjour
Je découvre les macro...
J'aimerai pouvoir en double cliquant sur n'importe quelle cellule d'une même ligne pouvoir colorier la cellule sur laquelle je clique et les 20 autres qui se trouvent à sa droite. L'objectif étant de pouvoir réaliser des plannings de prise de médicament.
Je,me positionnerai sur le premier jour de prise et la totalité des 21 jours de prise se colorierai dans le calendrier.
J'espère avoir été clair sur,ma demande... N'hésitez pas à me demander des précisions si besoin.
Merci par avance pour les patients
Jean Marc
Bonsoir,
a tester.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Interior.Color = vbRed
For i = 1 To 20
Target.Offset(0, i).Interior.Color = vbRed
Next i
End SubCordialement.
Je ne m'en sors pas...
à partir de la colonne B: chaque colonne de mon fichier représente un jour de l'année.
colonne A
ligne 2 : médicament 1 (se prend 21 jour sur 28)
ligne 3: médicament 2 (se prend à J1,J8, J15 et J22)
ligne 4 médicament 3 (se prend de J1 à J4)
le premier jour de prise varie d'un patient à l'autre en fonction de la date de son rendez-vous. chaque patient ne prend pas obligatoirement les trois médicaments.
successivement, pour chaque médicament j'aimerai pouvoir double cliquer soit sur le premier jour de prise, soit me positionner sur le premier jour de prise puis cliquer sur un bouton pour que les jours de prise se colorent dans le calendrier.
afin de pouvoir fournir rapidement un planning plus lisible au patient.
je ne sais pas si c'est réalisable??
merci par avance
jean-Marc
Je ne m'en sors pas...
à partir de la colonne B: chaque colonne de mon fichier représente un jour de l'année.
colonne A
ligne 2 : médicament 1 (se prend 21 jour sur 28)
ligne 3: médicament 2 (se prend à J1,J8, J15 et J22)
ligne 4 médicament 3 (se prend de J1 à J4)
le premier jour de prise varie d'un patient à l'autre en fonction de la date de son rendez-vous. chaque patient ne prend pas obligatoirement les trois médicaments.
successivement, pour chaque médicament j'aimerai pouvoir double cliquer soit sur le premier jour de prise, soit me positionner sur le premier jour de prise puis cliquer sur un bouton pour que les jours de prise se colorent dans le calendrier.
afin de pouvoir fournir rapidement un planning plus lisible au patient.
je ne sais pas si c'est réalisable??
merci par avance
jean-Marc
Merci bigdaddy je crois que je suis un peu nul sur excel
Cordialement
JM
Bonsoir,
fournis nous un fichier avec des données anonymes à titre d'exemple pour que l'on puisse te faire quelque chose mais sans lui dur dur de répondre à ton attente.
Cordialement.
bonjour
je vous ai joint un fichier, Ctrl r déclanche une macro, Ctrl d une autre macro.
je cherche à lancer sur chaque ligne concernée cette la macro en double cliquant sur une date de début de traitement avec affichage du schéma thérapeutique à compter de cette date.
évidement la date varie pour chaque patient.
après impression le shéma de prise est remis au patient pour plus de clarté.
merci par avance, avez-vous des idées sachant que je suis pas le champion de la macro...
amicalement
Jean-marc
Bonjour,
Pas de fichier.
Cordialement.
impossible d'envoyer le fichier avec mes pauvres macro
celui-ci devrait donner une idée de ce que je souhaite faire
bon courage et merci par avance pour votre aide
cordialement
jean-marc
Bonjour
En cherchant j'ai trouvé la solution
J'enregistre la macro en utilisant les références relatives et j'ai créé un bouton correspondant à la macro.
Tout fonctionne.
Un grand merci à bigdaddy pour ton soutien.
A bientôt pour des macro plus complexes
Amicalement
Jean Marc
Bonjour
j'ai réussi à bricoler la macro suivante pour effacer le passé dans mes fichiers.
j'aimerai me positionner en E13 à la fin de cette macro.
Savez-vous comment je dois la finir? je sais: je suis pas très doué....
Merci par avance.
Très cordialement
Jean-Marc
Sub deleteAdvanceDate()
Dim varDate As Date
varDate = Range("C13").Value
Range("C13").Select ' la première date est en A2
Do While Not (IsEmpty(ActiveCell)) ' tant que la cellule active est non vide
If (DateDiff("d", Now, ActiveCell.Value) < 0) Then ' si l'écart entre la date d'aujourd'hui et celle de la cellule active est supérieur à 120 j
ActiveCell.EntireRow.Delete ' suppression de la ligne correspondante
Else
ActiveCell.Offset(1, 0).Select ' on passe à la ligne suivante
End If
Loop ' et on reboucle
End Sub