Bonsoir le forum, ou bonjour peut-être.
J'ai plusieurs cellules à mettre en gras et entourer selon des conditions dans mes colonnes T à V.
Je me suis dit que générer des variables pour mes groupes de cellules seraient plus rapide, mais ça bugue.
Pourriez-vous m'expliquer ou je me suis planté s'il vous plaît ?
Voici mon code actuel :
H = Range("AB65536").End(xlUp).Row
For i = 1 To H
za = Range("AB" & i & ",AD" & i & ":AE" & i & ",AG" & i & ":AH" & i)
zc = Range("W" & i & ":AH" & i)
If Range("T" & i & ":V" & i).Font.Bold = False Then
Range(zc).Borders(xlEdgeLeft).LineStyle = xlContinuous
Range(zc).Borders(xlEdgeTop).LineStyle = xlContinuous
Range(zc).Borders(xlEdgeBottom).LineStyle = xlContinuous
Range(zc).Borders(xlEdgeRight).LineStyle = xlContinuous
Range(zc).Borders(xlInsideVertical).LineStyle = xlContinuous
Else
Range(za).Font.Bold = True
Range(za).Borders(xlEdgeLeft).LineStyle = xlContinuous
Range(za).Borders(xlEdgeTop).LineStyle = xlContinuous
Range(za).Borders(xlEdgeBottom).LineStyle = xlContinuous
Range(za).Borders(xlEdgeRight).LineStyle = xlContinuous
Range(za).Borders(xlInsideVertical).LineStyle = xlContinuous
End If
Next i
Je ne sais pas si ça vient de mon compte i ou des ranges que je fais avec.
Merci de votre aide.
Batiscaf.
J'ai plusieurs cellules à mettre en gras et entourer selon des conditions dans mes colonnes T à V.
Je me suis dit que générer des variables pour mes groupes de cellules seraient plus rapide, mais ça bugue.
Pourriez-vous m'expliquer ou je me suis planté s'il vous plaît ?
Voici mon code actuel :
H = Range("AB65536").End(xlUp).Row
For i = 1 To H
za = Range("AB" & i & ",AD" & i & ":AE" & i & ",AG" & i & ":AH" & i)
zc = Range("W" & i & ":AH" & i)
If Range("T" & i & ":V" & i).Font.Bold = False Then
Range(zc).Borders(xlEdgeLeft).LineStyle = xlContinuous
Range(zc).Borders(xlEdgeTop).LineStyle = xlContinuous
Range(zc).Borders(xlEdgeBottom).LineStyle = xlContinuous
Range(zc).Borders(xlEdgeRight).LineStyle = xlContinuous
Range(zc).Borders(xlInsideVertical).LineStyle = xlContinuous
Else
Range(za).Font.Bold = True
Range(za).Borders(xlEdgeLeft).LineStyle = xlContinuous
Range(za).Borders(xlEdgeTop).LineStyle = xlContinuous
Range(za).Borders(xlEdgeBottom).LineStyle = xlContinuous
Range(za).Borders(xlEdgeRight).LineStyle = xlContinuous
Range(za).Borders(xlInsideVertical).LineStyle = xlContinuous
End If
Next i
Je ne sais pas si ça vient de mon compte i ou des ranges que je fais avec.
Merci de votre aide.
Batiscaf.