Insérer un tableau récapitulatif provenant d'une autre feuille

Je vais essayer au travail mardi matin car demain je suis en congé ;)

Bon dimanche :-)

Bonjour Al,

En fait, j'insère les 2 macros dans module1 et + les 3 pgmes VBA dans module2, c bien ça ?

Mais c koi cette feuille "3feuil1", elle vient d'où ?

MErci

Bonne journée :-)))))

à+

Bonjour vodoraix, le forum,

Alors, oui, tu insères les 2 macros dans le Module1 et tu insères les 3 autres macros dans le Module de la feuille "Feuil1 (Valeurs éditées)" et pas dans un Module2.

Mais c koi cette feuille "3feuil1", elle vient d'où ?

Erreur de frappe avec le guillemet ! Il s'agit du module de la feuille "Feuil1 (Valeurs éditées)

Est-ce plus clair ?

Bonne journée également.

AL

PArfait merci bcp Al. J'avais même réussi à faire tt ça today en réfléchissant un peu ;)

Encore merci pour ta patience :)

J'ai pensé à un dernier détail :

Si je veux sortir l'historique d'une personne sans que je prenne ses mesures, en cliquant par exemple dans "Historique" (voir encadré en rouge sur la capture ci-dessous, j'aurais une fenêtre qui s'ouvre pour me demander, "Quel prénom ?". Et j'ai le même tableau que tu m'as créé qui apparaîtrait.

Tu crois que tu pourrais, stp, m'écrire les lignes vba nécessaires et me dire à quels endroits, il faudrait que je les insère. Ainsi je pourrai les coller à mon travail.

Merci bcp :-))))))

Bonne soirée :-)))))))

Bonsoir à tous,

Il n'y a qu'à demander !

Dans le module de la Feuil1 (Valeurs éditées), remplace la macro "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" par celle ci :

'---Cache l'image, affiche les tableaux ou permet de consulter l'historique d'un patient-----------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Me.Shapes("Image 1").Visible = False
    Me.Shapes("Image 17").Visible = True
    Me.Shapes("Image 19").Visible = True

    If Not Intersect(Target, Range("O2")) Is Nothing Then
        Prenom = InputBox("Quel prénom ?", "Historique patient", Prenom)
        If Prenom = "" Then Exit Sub
        Feuil3.Range("M2").Value = Prenom

        Extraction_Valeurs
        CreationImage

    Application.EnableEvents = False
    Me.Range("O2").Select
    Application.EnableEvents = True

    End If

End Sub

En cliquant dans la cellule "O2", un "InputBox" s'ouvrira ou il faudra remplir un prénom et en cliquant sur "OK", l'historique de cette personne s'affichera.

C'est ça ?

A+

AL

C'est exactement ça. Je le testerai pour demain et te dirai !!!!!

Trop fort !

Merci bcp :-))))))

Bonne soirée :-)))))

Coucou Al,

Ca marche !!!!!!!!!!!!!!!!!!!

Juste pour être un peu embêtant : Lorsque je protège la feuille en écriture, l'historique bug... Une tite solution ?

Encore merci :-)))))))))))))))))

Bonne soirée :-))))))))))))))))))))

Salut !

Même code qu'hier au même endroit "Feuil1 (Valeurs éditées)" avec l'ajout d'une ligne pour la dé-protection au début du code, puis une autre ligne pour la re-protection à la fin.

'---Cache l'image et affiche les tableaux----------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Me.Shapes("Image 1").Visible = False
    Me.Shapes("Image 17").Visible = True
    Me.Shapes("Image 19").Visible = True

    Feuil1.Unprotect
    If Not Intersect(Target, Range("O2")) Is Nothing Then
        Prenom = InputBox("Consultation de l'historique de :", "Historique patient", Prenom)
        If Prenom = "" Then Exit Sub
        Feuil3.Range("M2").Value = Prenom

        Extraction_Valeurs
        CreationImage

    Application.EnableEvents = False
    Me.Range("O2").Select
    Application.EnableEvents = True

    End If
    Feuil1.Protect

End Sub

Bonne utilisation !

A+

AL

Trop rapide....

C'est pas des patients, juste des personnes sportives ou soucieuses de faire des efforts physiques que j'encadre ;-)))

Merci bcp :-)))))))))))))))))))))))))))))))))))

c t parfait comme d'hab !!!!

Merci bcp Al :-))))))))))))))))))))))))