Problème de mise en forme d'une cellule par macro
Bonsoir à tous,
La macro ci-dessous me permet d'éffacer le contenu des cellules sélectionnées, de supprimer la couleur de remplissage et les motifs, d'inscrire le caractère "1" en blanc et mettre les bordures fines en noir.
Cette macro marche lorsque je sélectionne plusieurs cellules mais indique une erreur lorsque je l'applique à une seule cellule, au niveau de la ligne:
Oriez vous une solution.
Merci pour votre aide.
Nagrom
Bonsoir à tous,
La macro ci-dessous me permet d'éffacer le contenu des cellules sélectionnées, de supprimer la couleur de remplissage et les motifs, d'inscrire le caractère "1" en blanc et mettre les bordures fines en noir.
Code:
Sub Macro6()
Selection.ClearContents
Selection.FormulaR1C1 = "1"
Selection.Font.ColorIndex = 2
Selection.Font.Bold = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Interior.ColorIndex = xlNone
End Sub
Cette macro marche lorsque je sélectionne plusieurs cellules mais indique une erreur lorsque je l'applique à une seule cellule, au niveau de la ligne:
Code:
.LineStyle = xlContinuous
Oriez vous une solution.
Merci pour votre aide.
Nagrom
Dernière édition: