Bonjour le forum,
Me voici de retour vers vous.
J'ai une formule qui fonctionne, je l'ai trouvé sur Google et ensuite adaptée mais elle ne me plaît pas car je ne l'a comprend pas!
Dans cellule C3.
J'ai une macro dans le nom de la feuille:
Code : Sélectionner tout - Visualiser dans une fenêtre à part =SI(EQUIV(RECHERCHE(9^9;B:B);B:B;0)=LIGNE();AUJOURDHUI()-A3;"")
Le fonctionnement et le suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Private Sub Worksheet_Change(ByVal Target As Range) 'Cette Macro inscrit la date Automatiquement en tapant le taux d'INR If Target.Count > 1 Then Exit Sub If Not Intersect(Range("B3:B" & Rows.Count), Target) Is Nothing Then Range("A" & Target.Row) = IIf(Target = "", "", Date) ElseIf Not Intersect(Range("D3:D" & Rows.Count), Target) Is Nothing Then Range("A" & Target.Row) = IIf(Target = "", "", Date) End If End Sub
Lorsque je tape un nombre (exemple 2.23) dans cellule B3 ça met la date dans cellule A3. Et tous les jours je peux voir le nombre de jours depuis la dernière prise de sang.
Mais il peut y avoir entre 2 prises de sang un prélèvement d'une autre nature dans cellule D3 et ça met la date dans cellule A3 aussi mais je n'ai plus le nombre de jours entre les 2 prises de sang! Ça repart à 0 et c'es Normal.
Quelqu'un aurait-il une autre astuce pour que ça fonctionne également?
Merci pour vos éventuelles lumières.
Bonne journée à vous
Bien cordialement
Partager