Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel (vba) simplifiction code "with ..."

(vba) simplifiction code "with ..."

2 réponses
Avatar
j-pascal
Bonjour,

Comment puis-je simplifier le code suivant, sachant qu'il n'y a que le
"offset" qui change ?

'-----
With c.Offset(0, -1)
.Font.ColorIndex = Gris_Clair
.Interior.ColorIndex = Gris_Clair
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeTop).ColorIndex = Gris_Clair
.Borders(xlEdgeBottom).Weight = xlThin
.Borders(xlEdgeBottom).ColorIndex = Gris
End With

With c.Offset(0, -2)
.Font.ColorIndex = Gris_Clair
.Interior.ColorIndex = Gris_Clair
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeTop).ColorIndex = Gris_Clair
.Borders(xlEdgeBottom).Weight = xlThin
.Border
End With

With c.Offset(0, -3)
.Font.ColorIndex = Gris_Clair
.Interior.ColorIndex = Gris_Clair
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeTop).ColorIndex = Gris_Clair
.Borders(xlEdgeBottom).Weight = xlThin
.Border
End With
'------

Merci pour vos lumières,

JP
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Modeste
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :

Bonjour,

Comment puis-je simplifier le code suivant, sachant qu'il n'y a que le
"offset" qui change ?



For decalage =1 to 3
With c.Offset(0, -decalage)
.Font.ColorIndex = Gris_Clair
.Interior.ColorIndex = Gris_Clair
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeTop).ColorIndex = Gris_Clair
.Borders(xlEdgeBottom).Weight = xlThin
.Borders(xlEdgeBottom).ColorIndex = Gris
End With
next
--
--
@+
;o)))
Avatar
j-pascal
Modeste a émis l'idée suivante :
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :

Bonjour,

Comment puis-je simplifier le code suivant, sachant qu'il n'y a que le
"offset" qui change ?



For decalage =1 to 3
With c.Offset(0, -decalage)
.Font.ColorIndex = Gris_Clair
.Interior.ColorIndex = Gris_Clair
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeTop).ColorIndex = Gris_Clair
.Borders(xlEdgeBottom).Weight = xlThin
.Borders(xlEdgeBottom).ColorIndex = Gris
End With
next
--



Bonjour,

... et merci beaucoup,

JP