Gérer ses analyses de sang

Bonjour,

Suite à ma recherche pour trouver un fichier EXCEL "tout fait" pour enregistrer les résultats des mes bilans sanguins, j'ai eu le plaisir de télécharger votre fichier "Analyses de Sang.xls". Je remercie Picsou59gg pour ce partage.

J'ai pu rentrer mes résultats sans aucun problème. Par contre, rien ne s'affiche sur les deux possibilités de graphes. Je ne sais pas comment :

- mes données sont prises en compte dans les graphiques,

- choisir un élément à visualiser sur le graphique,

- faire apparaître les dates sur l'axe des abscisses...

J'utilise Excel 2010. Pouvez-vous m'aider ? je vous en remercie d'avance,

Sylvie

Bonjour,

Pour cela il faut surtout pas renommer le fichier.

Dans le cas contraire il faudra changer l'adressage de chaque bouton au dessus de la colonne concernée

@+

Amicalement

Noel

Bonsoir,

Merci pour cette info. Je vais réouvrir le fichier d'origine et copier mes resultats.

Bonne soirée.

Bonjour"

je suis nouveau sur ce site , et je remercie Picsou99gg pour" l'Analyse de sang"ayant chercher a gauche et a droite pour une gestion des Analyses , c'est lui qui a fait le plus beau travail.j'ai du modifier le systeme de visualisation des graphs car chez moi chaque graph mettait entre 10 et 15 secondes pour s'afficher. etant nul en vba j'ai fait comme j'ai pu en lien hypertexte .je suis arrivé a un resultat qui ne me satisfait qu'a moitié. donc je demande de l'aide .

1) j'aimerai avec une amelioration de ce code pouvoir cliquer avec le ToggleButton1 (qui est sur la page Accueil)

faire apparaitre des graphs situer en feuille (graphe Hématologie) sur la feuille ( Analyses) en pouvant situer l'endroit sur cette feuille et aussi en pouvant lui donner une certaine dimention

et en appuyant sur le toggle button 1 (cliquer pour vue normal)de la feuille (Analyses) je revienne sur la feuille Accueil et que la feuille Analyses revienne a un etat normal , sans vue de graph

voici la macro du toggle1 page Accueil

Private Sub ToggleButton1_Click()
    ActiveCell.Activate
    If NoEvents Then Exit Sub Else NoEvents = True
    Application.ScreenUpdating = False
    With Worksheets("Analyses")
        .Select
        .Columns("c:cy").Hidden = Me.ToggleButton1.Value
        .Columns("dz:hw").Hidden = Me.ToggleButton1.Value
        .Outline.ShowLevels columnlevels:=1
        With .ToggleButton1
            .Value = Me.ToggleButton1.Value
            .Caption = IIf(.Value, "Cliquer pour Vue Normal", "Cliquer pour Vue Diabéte")

        End With
    End With
    With Worksheets("Accueil")
        With .ToggleButton1
            .Value = Me.ToggleButton1.Value
            .Caption = IIf(.Value, "Cliquer pour Vue Normal", "Cliquer pour Vue Diabéte")
        End With
    End With
    NoEvents = False
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
    Application.ScreenUpdating = True

End Sub

la macro de feuille Analyses

Private Sub ToggleButton1_Click()
    ActiveCell.Activate
    If NoEvents Then Exit Sub Else NoEvents = True
    Application.ScreenUpdating = False
    With Worksheets("Analyses")
        .Select
        .Columns("c:cy").Hidden = Me.ToggleButton1.Value
        .Columns("dz:hw").Hidden = Me.ToggleButton1.Value
        .Outline.ShowLevels columnlevels:=1
        With .ToggleButton1
            .Value = Me.ToggleButton1.Value
            .Caption = IIf(.Value, "Cliquer pour Vue Normal", "Cliquer pour Vue Diabéte")

        End With
    End With
    With Worksheets("Accueil")
        With .ToggleButton1
            .Value = Me.ToggleButton1.Value
            .Caption = IIf(.Value, "Cliquer pour Vue Normal", "Cliquer pour Vue Diabéte")
        End With
    End With
    NoEvents = False
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
    Application.ScreenUpdating = True
  Sheets("Accueil").Activate
End Sub

ce code marche bien sur un essai ,mais n'arrive pas a l'orienter ou je veux

Private Sub CommandButton1_Click()
With Worksheets("Feuil1")
.Select
ActiveSheet.ChartObjects("Graphique 1").Visible = True
ActiveSheet.ChartObjects("Graphique 3").Visible = True
ActiveSheet.ChartObjects("Graphique 2").Visible = False
End With
End Sub

Private Sub CommandButton2_Click()
ActiveSheet.ChartObjects("Graphique 2").Visible = True
ActiveSheet.ChartObjects("Graphique 1").Visible = False
ActiveSheet.ChartObjects("Graphique 3").Visible = False
End Sub

Merci d'avance je veux bien envoyer mon fichier mais je ne sais pas a combien est limité le poids d'un fichier sur ce site

bonsoir tu peut partager ton fichier,;?

je sais qu'il y a une macro qui empêche de bien couper /coller

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 Calculate
End Sub

souvent je suis obligé de la desactiver pour travailler

Bonjour et super ce fichier. Mais pour ma part voici ce que j'ai sur mes résultas:

Bonjour voici ma requête j'ai trouvé sur le site un fichier excel mais vu sur mes analyses il y a quelque titre qui m'intrique pour que je puisse m'en servir.

Voici

Hématies x1000 /mm3 j'ai Tera/L

Leucocytes /mm3 j'ai G/L

Num. Plaquette X1000 /mm3

Neutrophiles /mm3 j'ai G/L

Eosinophiles /mm3 j'ai G/L

Et autres comme ceci comment dois faire et est ce possible modifier comme écrit sur feuille analyse

Merci pour votre aide précieuse et si une personne peut apporter les améliorations d'avance merci.

Cordialement

bonjour

en fait T = juste mettre une virgule avant les 6 derniers chiffres

et G = juste mettre une virgule avant les 3 derniers chiffres

sinon si vous voulez changer les mini maxi il faut juste cliquer sur le + au dessus de l'analyse qui va ouvrir

les colonnes du mini maxi et dans la colonne c4 et d4 mettre votre virgule après le 4 en mini et le 5 en maxi

mais peut être attendre un petit peu car j'ai une nouvelle version plus élaboré qui prend en compte femme ,homme,enfant et vieux

et recherche par maladie (juste 3 pour l'instant)

au plaisir

Bonjour et merci. Pas de problème pour attendre.

Meilleurs voeux pour 2017 et surtout la santé

Bonjour je passe pour vous dire bonjour et éventuellement avancé du fichier. D'avance un grand merci

Bonjour,

Est-il possible de rajouter des examens, et comment?

Macros?

Et suivant l'âge, certains résultats apparaissent en rouge, alors qu'ils sont normaux. Comment changer ça?

Merci beaucoup !

Bonjour,

Cela dépend de ce que tu veux faire?

Pour changer la couleur il suffit d'augmenter dans la macro avec le signe > ou plus petit

@+

Bonjour, Je voudrais rajouter des colonnes, comme la bilirubine ( libre, totale et conjuguée)? Fer, chlore, saturation ferrique etc...

Puis-je avoir le texte de la macro de base?

Merci d'avance.

Bonjour,

Il faudrai que tu me poste la version que tu possèdes.

@+

Bonjour, Je te la poste par mail.

Merci.

Bonjour,

Je voudrais juste de vous remercier, les tableaux excel pour resumer mes analyses de sang, il marchent ok

ET JE VOUDRAIS VOUS REMERCIER

Bon continuation

Cordialement