XL 2016 Résolu- problème sur macro

vgendron

XLDnaute Barbatruc

• 12 Janvier 2019

• #2

Bonsoir

Tu as oublié le fichier :-D

 

Vote positif 0 Vote négatif

C

crown54

XLDnaute Junior

• 12 Janvier 2019

• #3

oups dsl

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 12 Janvier 2019

• #4

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

VB:

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

 

Vote positif 0 Vote négatif

C

crown54

XLDnaute Junior

• 12 Janvier 2019

• #5

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 12 Janvier 2019

• #6

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

 

Vote positif 0 Vote négatif

C

crown54

XLDnaute Junior

• 12 Janvier 2019

• #7

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

 

Vote positif 0 Vote négatif

C

crown54

XLDnaute Junior

• 12 Janvier 2019

• #8

le voici

 

Pièces jointes

• Classeur2.xlsm

  13.9 KB · Affichages: 12

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 12 Janvier 2019

• #9

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)

 

Vote positif 0 Vote négatif

C

crown54

XLDnaute Junior

• 13 Janvier 2019

• #10

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

 

Vote positif 0 Vote négatif

C

crown54

XLDnaute Junior

• 13 Janvier 2019

• #11

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 13 Janvier 2019

• #12

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

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

 

Pièces jointes

• Classeur2.xlsm

  19.5 KB · Affichages: 13

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 13 Janvier 2019

• #13

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

 

Vote positif 0 Vote négatif

C

crown54

XLDnaute Junior

• 13 Janvier 2019

• #14

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

 

Vote positif 0 Vote négatif