Bonjour,
Je suis en train d'apprendre le VBA. Essentiellement pour pouvoir mettre automatiquement en forme.
J'ai un soucis quand à la coloration conditionnelle de la cellule en fonction de la date qu'elle contient.
En effet, dans une colonne j'ai des dates de naissance. Je souhaite colorer toutes les cellules qui ont une date de naissance supérieure (plus jeune) au 1/12/56. L'idéal serait supérieure à la date du jour moins 55ans.
Voici actuellement mon code:
Petite question optionnelle: comment enregistrer cette macro de façon à pouvoir l'appeler sur n'importe quel classeur?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub MizEnForm() Range("D:D,I:I,O:O,T:U,W:X").Delete Shift:=xlToLeft Sheets("Feuil1").Range("H:H").Select Application.ScreenUpdating = 0 If Cell.Value > Format("20790", "dd/mm/yy") Then Cell.Select With Selection.Interior .ColorIndex = 7 .Pattern = xlSolid End With End If End Sub
Merci par avance pour votre aide.
Rahan
Partager