aide sur formule vba

[pierre4]

bonjour à tous,
ci joint une formule vba, n'étant que novice en vba, pouvez vous m'aider
je veux que la 4ème colonne uniquement passe en arial gras de couleur25
hors actuellement cela s'applique aux 4 premières...
merci d'un coup de pouce
bonne journée
Pierre4


ElseIf txt = "libellé" Then
n3 = n3 + 1
cel = Chr(64 + n1) & n2 & "." & n3
cel.RowHeight = 50
cel.Font.Size = 8
cel.Resize(, 4).Font.Name = "arial"
cel.Resize(, 4).Font.FontStyle = "Gras"
cel.Resize(, 4).Font.ColorIndex = 25

 

[david84]

Re : aide sur formule vba

Bonjour,
peut-être en remplaçant resize par offset :

cel.Offset(, 3).Font.Name = "arial"
cel.Offset(, 3).Font.FontStyle = "Gras"
cel.Offset(, 3).Font.ColorIndex = 25

A+

 

[pierre4]

Re : aide sur formule vba

Merci David,
c'est Ok
merci le forum.
belle journée