Microsoft 365 Programme quotidien affichage automatique suite à la saisie de données

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Zohra66

XLDnaute Nouveau
Bonjour,

Pouvez vous m'aider à afficher dans la feuilles planification les données saisies comme l'exemple ci dessous :

1707898558506.png

1707898601406.png

J'ai besoin de le faire aussi en fonction de à "QUI" est attribué la taches.

Et petit plus me faire afficher la somme des frais Km selon la date exemple ci dessous :
1707898724727.png


Merci à vous
 

Pièces jointes

Bonjour
Règle numéro 1 un tableau structuré ne doit jamais contenir de lignes vides
Règle numéro 2 utiliser la ligne de total des tableaux structurés plutôt qu'une autre plage...
Règle numéro 3 placer le sources de listes déroulantes dans des tableaux structurés sur un autre onglet, pas caché dans des cellules des onglets de travail...

Même ans activer les macros ton fichier rame anormalement
 

Pièces jointes

Bonjour Zohra, et bienvenue sur XLD, bonjour Chris,
Même sans activer les macros ton fichier rame anormalement
C'est normal, le tableau Saisie est bourré de formules matricielles. Une fois le tableau restreint comme vous le suggérez, ça accélèrera.
Comme je viens de le terminé, je le livre. 🙂 Un essai en PJ avec :
VB:
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [G3:H3]) Is Nothing Then
        Application.ScreenUpdating = False: Application.EnableEvents = False
        [C7:I35].ClearContents: T = [tblDonnées]
        For i = 1 To UBound(T)
            If IsEmpty(T(i, 1)) Then Exit For
            If T(i, 1) >= [SemaineDu] And T(i, 1) <= [SemaineDu] + 6 And T(i, 4) = [AfficherNom] Then ' Si date et nom concernés.
                C = T(i, 1) - [SemaineDu] + 3 ' Calcul colonne
                For L = 7 To 35                 ' Cherche lignes concernées
                    If Cells(L, "B") >= T(i, 2) And Cells(L, "B") <= T(i, 3) Then Cells(L, C) = T(i, 5) ' Ecrit tache
                Next L
            End If
        Next i
    End If
Fin:
Application.ScreenUpdating = True: Application.EnableEvents = True
End Sub
La macro s'active automatiquement lorsqu'on change "SemaineDu" ou "AfficherNom"
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
109
Retour