Guillaumega
XLDnaute Impliqué
Bonjour,
J'essaie de faire une MFC >3 avec la macro de pierrejean (font+couleur) et ça ne marche pas (il ne se passe rien quand j'active la sheet)
Est-ce que vous pourriez m'aider s'il vous plait?
J'ai posté le fichier qui pèse 100kb à Lien supprimé
Merci à vous,
Guillaume
J'essaie de faire une MFC >3 avec la macro de pierrejean (font+couleur) et ça ne marche pas (il ne se passe rien quand j'active la sheet)
Code:
Private Sub Worksheet_Activate()
If flag Then Exit Sub
flag = True
Application.ScreenUpdating = False
Dim cel As Range
Dim cell As Range
Dim ad As String
Set couleurs = Sheets("MFC").Range("A8:A" & Sheets("MFC").Range("A65536").End(xlUp).Row)
derlin = Range("A65536").End(xlUp).Row
dercol = Range("IV1").End(xlUp).Column
Set tableau = Range("$A$2:" & Cells(derlin, dercol).Address)
For Each cel In tableau
If Not IsError(cel.Value) Then
For Each cell In couleurs
If cell.Value = UCase(cel.Value) Then
cell.Copy
cel.PasteSpecial Paste:=xlFormats
End If
Next cell
End If
Next cel
flag = False
Application.ScreenUpdating = True
End Sub
Est-ce que vous pourriez m'aider s'il vous plait?
J'ai posté le fichier qui pèse 100kb à Lien supprimé
Merci à vous,
Guillaume
Dernière édition: