Aide sur fichier

Bonjour,

Je suis content d être parmi vous.

J’ai un fichier Excel qui contient des informations pour plusieurs infirmières.

J’ai plusieurs feuilles de calcul au nom de chaque infirmière. Chaque feuilles a une couleur.

J’aimerais que la couleur attribuée à chaque infirmière lorsque je rentres des informations, se retrouve dans une feuille de synthèse que j’ai créé.

J’aimer savoir est-ce que c’est possible?

Merci pour les infos.

Loïc

Slt Loïc,

j'espère que c'est ca ce que tu cherches

Bonjour Loïc

Elmute a écrit :

Bonjour,

Je suis content d être parmi vous.

Nous aussi et

@m3ellem1 tu manques un peu de savoir vivre mon garçon

@Elmute Ignorez s'il vous plaît ma première réponse!

@brunoM45

Merci pour la remarque que je vais utiliser comme boucle d'oreille à partir de maintenant!

Bsr,

Merci de quand même !

Si vous avez des idées 💡 ou une autre proposition à me faire.

Je suis ouvert à toute discussion

Merci

Bonjour Loïc et bien venu sur le forum

Voici une piste à adapter à tes besoins. Chaque saisie dans une feuille autre que la feuille "Synthèse" va inscrire la valeur saisie dans la feuille "Synthèse" en colonne A les unes au dessous des autres. Ceci pour le test car comme tu ne donnes pas plus de précision, je ne peux pas en faire plus pour le moment. Le code est à mettre dans le module du classeur (ThisWorkbook) :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    Dim Fe As Worksheet
    Dim Lig As Long

    If Target.Count > 1 Then Exit Sub
    If Sh.Name = "Synthèse" Then Exit Sub

    Application.EnableEvents = False

    With Worksheets("Synthèse")

        'défini la première ligne disponible
        Lig = .Cells(.Rows.Count, 1).End(xlUp).Row + 1

        'inscrit la valeur entrée dans la feuille des infirmières et colore
        'l'intérieur de la cellule de la couleur de l'onglet correspondant
        .Cells(Lig, 1).Value = Target.Value
        .Cells(Lig, 1).Interior.Color = Sh.Tab.Color

        'avec la ligne ci-dessous, c'est la fonte qui est colorée
        'j'opterai pour ça plutôt que le fond car moins agressif pour les yeux
        '.Cells(Lig, 1).Font.Color = Sh.Tab.Color

    End With

    Application.EnableEvents = True

End Sub

bonjour,

Toute mes excuses. J'ai oublier de joindre mon fichier excel .

Là, je ne saisi pas trop ce que tu veux faire !

Tu concatènes les valeurs de la dimensions z c'est quoi que tu veux colorer, les valeurs dans la même cellule issues des différentes feuilles MS pour Clara, NT (pour l'exemple) pour Carole ?

Dans ce cas, si tu veux conserver tes formules, ce ne sera pas possible, il faudra passer par une procédure événementielle !

En supprimant tes formules et en mettant ce code dans le module du classeur. Les valeurs entrées seront concaténées avec un espace mais tu peux choisir la ligne de code où il n'y aura pas d'espace (supprimer cette inutile) :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    Dim Tbl() As Long
    Dim Cel As Range
    Dim I As Integer

    If Target.Count > 1 Then Exit Sub
    If Sh.Name = "SYNTHESE" Then Exit Sub

    Application.EnableEvents = False

    With Worksheets("SYNTHESE")

        'cellule cible
        Set Cel = .Cells(Target.Row, Target.Column)

        'mémorise les différentes couleur dans un tableau
        For I = 1 To Len(Cel.Value)

            ReDim Preserve Tbl(1 To I): Tbl(I) = Cel.Characters(I, 1).Font.Color

        Next I

        'sépare les valeurs par un espace
        Cel.Value = Cel.Value & IIf(Cel.Value = "", "", " ") & Target.Value

        'ici, sans espace, supprimer la ligne inutile
        'Cel.Value = Cel.Value & Target.Value

        'colore le texte de la cellule de la couleur de l'onglet en cours...
        Cel.Font.Color = Sh.Tab.Color

        '...puis colore les caractères comme à l'origine
        If Not Not Tbl Then For I = 1 To UBound(Tbl): Cel.Characters(I, 1).Font.Color = Tbl(I): Next I

    End With

    Application.EnableEvents = True

End Sub

Bjr.

As tu reçu ma demande part e-mail ?

Cordialement loic

Bonjour,

Je n'ai rien reçu mais je ne vois pas la nécessité de me l'envoyer sur MP, en postant ici, tout le monde peut profiter du résultat et d'autres intervenants peuvent aidés !

Non enfaite. Je demandais si tu pouvais me faire le fichier moyennement finance. Je sens que de truc va m’en prendre choux.

Bonjour Elmute,

Désolé, je ne fais pas ça mais il y a probablement des personnes ici qui seront intéressées, ouvres un autre post avec un titre bien explicite sur le fait que se sera contre rémunération