Bordures selon la date
Résolu/Fermé
Newbeee
Messages postés
2
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
3 juillet 2018
-
Modifié le 2 juil. 2018 à 22:44
Newbeee Messages postés 2 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 3 juillet 2018 - 3 juil. 2018 à 22:05
Newbeee Messages postés 2 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 3 juillet 2018 - 3 juil. 2018 à 22:05
A voir également:
- Bordures selon la date
- Trier par date excel - Guide
- Airpods 3 date de sortie - Guide
- Trouver une date de naissance gratuit ✓ - Forum Google Chrome
- Jm date désabonnement - Forum Consommation & Internet
1 réponse
M-12
Messages postés
1331
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 avril 2023
284
Modifié le 4 juil. 2018 à 00:28
Modifié le 4 juil. 2018 à 00:28
Bonjour
A tester, (cadre sur 20 lignes, à modifier selon besoin)
A tester, (cadre sur 20 lignes, à modifier selon besoin)
Sub Cadre() Dim i%, Dc% Dc = Cells(1, Columns.Count).End(xlToLeft).Column 'n° de la dernière colonne non vide de la ligne 1 For i = 5 To Dc If Day(Cells(1, i)) = 1 Or Day(Cells(1, i)) = 8 Or Day(Cells(1, i)) = 15 Or Day(Cells(1, i)) = 22 Then Range(Cells(1, i), Cells(20, i)).Select With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlMedium End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlMedium End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlMedium End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlMedium End With End If Next i End Sub
3 juil. 2018 à 22:05