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

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

  • 1707898375182.png
    1707898375182.png
    30.6 KB · Affichages: 3
  • Distance + carte.xlsm
    818.8 KB · Affichages: 5

chris

XLDnaute Barbatruc
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

  • Distance + carte2.xlsm
    722.9 KB · Affichages: 3

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

  • Distance + carte (1).xlsm
    814 KB · Affichages: 4

Discussions similaires

Réponses
2
Affichages
378

Statistiques des forums

Discussions
315 167
Messages
2 116 924
Membres
112 915
dernier inscrit
Ludof