Microsoft 365 mise à jour d'un Planning Maintenance

[gothc]

Bonjour le forum j'ai besoin de votre aide pour faire une macro pour mettre à jour un Planning chaque jour avec des nouvelles données ( données qui changent la date de la maintenance en U ; le Technicien en V ; état en R

j'ai des informations sur onglet Paramètres_Application qui s'alimente chaque jour le numéro de la Machine en S ; la date de la maintenance en U ; le Technicien en V ; état en R
je souhaite mettre à jour l'onglet Planning Perpétuel avec une macro pour uniquement mettre à jour la date du jour sur mon planning Perpétuel
je laisse un exemple sur mon fichier avec des couleurs
vous pouvez modifier le planning Perpétuel pour info si problème avec la date

Merci de votre aide

 

[sylvanu]

Bonjour Gothc,
Un essai en PJ si j'ai bien tout compris.
On prend la nouvelle entrée et on l'inscrit dans le calendrier, uniquement date et technicien en colonne B et D. Avec :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("S2:V1000")) Is Nothing Then
        Dim NoMachine%, Technicien$, NoLigne%, Maintenance As Date, f
        Application.ScreenUpdating = False
        If Target.Column = 20 Then Exit Sub ' colonne "T" non concernée
        If Cells(Target.Row, "S") = "" Or Cells(Target.Row, "U") = "" Or Cells(Target.Row, "V") = "" Then Exit Sub ' car tout n'est pas rempli
        Set f = Sheets("Paramètres_Application")
        With Sheets("Planning Perpétuel")
            NoLigne = Application.Match(Cells(Target.Row, "S"), .Range("A:A"), 0) ' Recherche ligne de la machine
            .Cells(NoLigne, "B") = f.Cells(Target.Row, "V") 'Technicien
            .Cells(NoLigne, "D") = f.Cells(Target.Row, "U") 'Maintenance
        End With
    End If
Fin:
End Sub

Il y a une erreur à l'ouverture dans Workbook_Open, j'ai mis en commentaires les deux lignes car pas envie d'approfondir, ils concernent ComboBox1.

 

[gothc]

Merci pour ton aide j'ai du mal interprété ma demande car je cherche juste à mettre à jour l'onglet planning Perpétuel avec les informations sur l'onglet Paramètres_Application
pour info sur l'onglet Paramètres_Application la colonne R et S les valeurs ne bouge pas
la colonne R correspond à la colonne A (Machine) de l'onglet planning Perpétuel

je veux juste mettre a jour la colonne D (uniquement les dates du jour) de planning Perpétuel avec les infos dans U de l'onglet Paramètres_Application

mettre à jour la colonne B de planning Perpétuel avec les infos dans V de l'onglet Paramètres_Application

mettre a jour la colonne R de planning Perpétuel avec la date du jour example aujourd'hui 16/02/2021 de l'onglet Paramètres_Application je laisse un example avec la 1 er ligne
Merci
J'ai dû mal à m'expliquer J'espère avoir été plus clair

 

[sylvanu]

mettre a jour la colonne R de planning Perpétuel avec la date du jour example aujourd'hui 16/02/2021

J'ai du mal à comprendre.
Je fais déjà les points 1 et 2 ( colonnes B et D ). Vous avez testé ? Ca marche ?

Point 3 : Dans votre fichier les cellules R1 à R4 et suivantes ont des formules. Si j'écris en dur en R1 la formule disparaitra.

 

[gothc]

Bonsoir Oui je viens de voir ça fonctionne pour b et D

 

[sylvanu]

Oui je viens de voir ça fonctionne pour b et D

Vous ne l'aviez pas testé ?

Et pour le point 3 ?

 

[gothc]

Oui pas grave pour la formule Sylvanu

 

[gothc]

Normalement il commence en r6 le tableau

 

[gothc]

je fais un fichier avec un exemple

 

[sylvanu]

Essayez d'être explicite.
Le tableau commence en Q5;
Que dois je mettre en R6 ? La date comme en D ?
Mais dans ce cas le planning glissant ne reflétera pas le mois écrit en R1.

 

[gothc]

Je viens de faire un exemple avec des couleurs correspondante

 

[gothc]

Je laisse en autre exemple

 

[sylvanu]

Franchement je ne comprends pas.
Je comprends ce qu'il faut faire, mais dans ce cas rien n'est synchronisé avec le planning en ligne 3 et 4.
Si on bouge le curseur on modifie les dates mais le tableau ne bouge pas.

 

[gothc]

Franchement je ne comprends pas.
Je comprends ce qu'il faut faire, mais dans ce cas rien n'est synchronisé avec le planning en ligne 3 et 4.
Si on bouge le curseur on modifie les dates mais le tableau ne bouge pas.

Comment je peux faire pour te faire parvenir le fichier complet en priver tu vas mieux comprendre je pense

 

[sylvanu]

Il faut mettre une MFC sur le tableau, sans rien mettre dans les cellules. Voir PJ.
Ainsi planning et calendrier sont en phase.

Mais mon dieu, pourquoi avoir 64 MFC dans le tableau, en Q6 par ex. Cela vous set à quoi ?