Bonjour
Je cherches à faire boucler la procédure suivante pour chaque ligne d'un classeur excel.
Mon but est qu'en fonction de la date saisie dans la colonne A, j'obtiennes la mise en gras des infos jusqu'à la colonne N incluse.
Si la date est inferieure à la date du jour aucune modif à faire.
Voici mon code qui fonctionne, mais que sur la ligne 1:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Sub CellulesEnGras() If Not IsEmpty(Range("A1")) Then If Range("A1") = Date Then With Range("A1:N1") .Font.Bold = True End With Else With Range("A1:N1") .Font.Bold = False End With End If End If End Sub![]()
Partager