Bonjour le forum,
J'aurais besoin de votreaide pour mon code "bordures"... qui est censé faire ceci:
Dans ma feuille, les données sont entrées par macro (depuis UserForm) et viennent se coller en A32:E32 et en dessous. J'aimerais par mon code que si A32 (et les "A" suivants sont pleins, alors une bordure entoure chaque cellule de A32 à E32. Mais si c'est vide, pas de bordure! Car ensuite une macro vient vider les données de la feuille pour pouvoir accueillir de nouvelles données et du coup, j'aimerai que ces cellules n'aient plus de bordures avant d'être à nouveau remplie...
Petite complication et raison pour laquelle je procède avec ce code, c'est que "E" n'est pas systématiquement rempli..
Merci d'avance!
A +
pnlop
J'aurais besoin de votreaide pour mon code "bordures"... qui est censé faire ceci:
Dans ma feuille, les données sont entrées par macro (depuis UserForm) et viennent se coller en A32:E32 et en dessous. J'aimerais par mon code que si A32 (et les "A" suivants sont pleins, alors une bordure entoure chaque cellule de A32 à E32. Mais si c'est vide, pas de bordure! Car ensuite une macro vient vider les données de la feuille pour pouvoir accueillir de nouvelles données et du coup, j'aimerai que ces cellules n'aient plus de bordures avant d'être à nouveau remplie...
Petite complication et raison pour laquelle je procède avec ce code, c'est que "E" n'est pas systématiquement rempli..
J'ai mis la feuille de mon fichier en PJ, juste pour la mise en forme et visualisation car je ne peux pas mettre tout le classeur...Private Sub Borders()
Dim i As Long, Fin As Long
With Worksheets("visualisation")
Fin = .Range("A" & Rows.Count).End(xlUp).Row
For i = 32 To Fin
.Range("A" & i & ":E" & i).Borders.LineStyle = xlContinuous
Next i
End With
End Sub
Merci d'avance!
A +
pnlop