XL 2016 Résolu- problème sur macro

[crown54]

Bonsoir,
j'ai un petit souci dans ce fichier qui je l'espère sera réglé par vos connaissances et compétences car là je bloque.
J'ai créé sous excel 2016 un fichier en 2018 avec la maintenance d'automates. Maintenance prévisionnelle de l'année et une fois qu'elle est faite, je rentre la date dans la colonne M et la date en rouge dans la colonne L passe en vert automatiquement pour indiquer qu'elle est faite, ce qui permet de repérer facilement les maintenances qui n'ont pas encore été faites.
La macro à fonctionner sans souci en 2018. Pour 2019 j'ai inséré de nouvelles colonnes et tenté de modifier la macro mais ça ne fonctionne plus. Pouvez-vous me dire ce qui cloche svp?
D'avance merci pour vos réponses.

 

[vgendron]

Bonsoir

Tu as oublié le fichier :-D

 

[crown54]

oups dsl

 

[vgendron]

euh.. es tu sur d'avoir posté le bon fichier? le code présent semble
1) incomplèt
2) pas dans la bonne feuille (donc aucune chance qu'il se déclenche

et ce code "corrigé" ne semble que colorer en vert la colonne L si la colonne N est vide...N ne semblant pas appartenir à ton tableau

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ligne As Byte, colonne As Byte
Application.EnableEvents = False
With ActiveSheet
    Fin = .Range("L" & .Rows.Count).End(xlUp).Row
    If Not Application.Intersect(Target, Range("M2:M" & Fin)) Is Nothing Then
   
        If Target.Offset(0, 1) = "" Then
            Target.Offset(0, -1).Font.ColorIndex = 4
        End If
    End If
   
End With
Application.EnableEvents = True
End Sub

 

[crown54]

oui je suis parti du fichier qui fonctionnait en 2018 et juste modifié les colonnes.
C'est pas ce code qui fait ce que je veux dans This Workbook

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Byte, colonne As Byte


If Not Application.Intersect(Target, Range("M02:M142")) Is Nothing Then
ligne = ActiveCell.Row
colonne = ActiveCell.Column
If Cells(ligne, colonne + 1) = "" Then
With ActiveCell.Offset(0, -1)
.Font.ColorIndex = 4
End With
End If

 

[vgendron]

c'est bien ce que je disais:
ton code que tu viens de reposter est incomplet.. il manque au moins le "End Sub"
et ce qu'il fait c'est:
si tu cliques dans M2:M142
si en colonne N c'est vide. alors, met vert en colonne L

 

[crown54]

c'est bizarre j'ai repris le fichier d'origine de 2018 sans modif qui fonctionne et pas de End Sub non plus

 

[crown54]

le voici

 

[vgendron]

dans ton nouveau fichier.
aucune des deux macros
ChangeCouleur définie dans le code de la feuille plutot que dans un module standard
NI
la macro évènementielle incomplète définie par erreur dans le thisworkbook
ne sont lancées.
ce qui colore en vert ta colonne J, c'est une MFC (Mise en Forme Conditionnelle)

 

[crown54]

ah ben mince alors c'est juste une histoire de MFC je vais voir cela alors dsl

 

[crown54]

effectivement tu as raison j'étais persuadé que les macros étaient responsables de cela. Merci d'avoir pris de temps pour me répondre.
Autre question, est-ce possible depuis la colonne de maintenance prévisionnelle de générer un rendez-vous outlook avec rappels pour ne pas la zapper

 

[vgendron]

voir PJ avec les deux possibilités
une simple MFC
OU une macro

note; les deux ne travaillent pas sur les meme colonnes..

 

[vgendron]

pour Outlook, c'est très certainement possible, mai la.. je ne connais pas
fais une recherche sur le forum, tu devrais trouver ton bonheur

 

[crown54]

merci pour tes réponses j'irai voir si je trouve mon bonheur alors