elwinner08
XLDnaute Nouveau
Bonjour à tous,
J'ai cherché sur divers forums en trouvant des réponses approchées mais qui ne marchaient pas chez moi .
J'ai un test sur une cellule, si la cellule est renseignée, la macro doit sélectionner les cases de cette ligne des colonnes A à AV pour mettre en forme un tableau. J'ai testé plusieurs choses et rien ne marche
Merci pour le temps que vous allez passer à m'aider
Dim l As Integer
For l = 1 To 500
If Cells(l, 2) <> "" Then
Range("A" & l:"AV" & l).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
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
End If
Next l
Edit : le "For l = 1 to 500" n'est là que pour faire le test sur les 500 lignes
PS : Je viens de me rendre compte qu'en plus de ça je ne sais pas insérer un cadre "code" dans mon post pour y mettre la macro
J'ai cherché sur divers forums en trouvant des réponses approchées mais qui ne marchaient pas chez moi .
J'ai un test sur une cellule, si la cellule est renseignée, la macro doit sélectionner les cases de cette ligne des colonnes A à AV pour mettre en forme un tableau. J'ai testé plusieurs choses et rien ne marche
Merci pour le temps que vous allez passer à m'aider
Dim l As Integer
For l = 1 To 500
If Cells(l, 2) <> "" Then
Range("A" & l:"AV" & l).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
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
End If
Next l
Edit : le "For l = 1 to 500" n'est là que pour faire le test sur les 500 lignes
PS : Je viens de me rendre compte qu'en plus de ça je ne sais pas insérer un cadre "code" dans mon post pour y mettre la macro
Dernière édition: