jcproperty
XLDnaute Nouveau
Bonjour,
Je sollicite votre aide, après m'être arraché les cheveux sur ce problème. Je souhaite, à chaque itération d'une boucle For, en profiter pour formater 2 cellules. Pour ce faire, je tente un range dynamique, et je me fais systématiquement jeter avec une erreur 400 en exécution (erreur 1004 en pas à pas). Voici mon code:
Quelqu'un peut-il m'aider à corriger ce problème ?
Merci !
jcproperty
Je sollicite votre aide, après m'être arraché les cheveux sur ce problème. Je souhaite, à chaque itération d'une boucle For, en profiter pour formater 2 cellules. Pour ce faire, je tente un range dynamique, et je me fais systématiquement jeter avec une erreur 400 en exécution (erreur 1004 en pas à pas). Voici mon code:
Code:
Dim k As Integer
Dim l As Integer
Dim FICHE_ELEVE As Worksheet
Dim Cases As Range
Set FICHE_ELEVE = ThisWorkbook.Worksheets("Fiche élève")
l = FICHE_ELEVE.UsedRange.Rows.Count
For k = 4 To l + 1
[ ... traitement de données ... ]
Set Cases = FICHE_ELEVE.Range(Cells(k, 2), Cells(k, 3))
Cases.Borders(xlDiagonalDown).LineStyle = xlNone
Cases.Borders(xlDiagonalUp).LineStyle = xlNone
With Cases.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Cases.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Cases.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Cases.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Cases.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Cases.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Next k
FICHE_ELEVE.Activate
Quelqu'un peut-il m'aider à corriger ce problème ?
Merci !
jcproperty
Dernière édition: