Macro : bordure cellule haut et bas

Bonsoir,

Je développe une macro qui dessine des équipements dans une armoire.

chacun des équipements est représenté par une ou plusieurs cellules encadré d'une bordure.

hors, si je souhaite supprimer un équipement (le 2 par exemple), j'ai tendance à :

_____supprimer le texte,

_____supprimer toutes les de la cellule,

_____supprimer la couleur de fond,

mais la ligne inférieure de l'équipement 1 a disparu (tout comme celle du coté)

Si je me rappelle bien, dans une très vieille version d'excel, chaque cellule avait sa bordure haute et basse (ce qui entraînait souvent des désagréments, j'en conviens)

Ce système existe-t-il toujours? Ainsi, je pourrais supprimer des bordures d'une cellule sans toucher à celle contiguës.

est-ce faisable en macro?

bonjour GUIGOL

comme tu ne précise pas comment est structurer ton fichier essaie ceci

with sheets("Feuil1")
   .Cells(lig, "C").Borders(xlEdgeLeft).LineStyle = xlContinuous
   .Range(.Cells(lig, "I"), .Cells(lig, "P")).Borders(xlEdgeLeft).LineStyle = xlContinuous
   .Range(.Cells(lig, "C"), .Cells(lig, "M")).Borders(xlEdgeTop).LineStyle = xlNone
    .Range(.Cells(lig, "O"), .Cells(lig, "P")).Borders(xlEdgeTop).LineStyle = xlNone
  end with
end sub

a arranger pour ton besoin et sert de F1 qui est la pour ca

Pascal

Merci