Bonsoir,
J'ai bien trouvé des exemples sur le forum, mais je n'arrive pas à adapter à mon cas.
Voilà, j'utilise le code ci-dessous pour fusionner des cellules de la première colonne de mon tableau.
Ce tableau est l'extraction de données d'une BD, à la fin de cette procédure des bordures standards sont appliquées, le fusionnage s'effectue en seconde étape.
Option Explicit
Sub merge()
Dim i As Integer, m As Integer, DerLig As Integer
Application.DisplayAlerts = False
i = 5
Do While Cells(i, 2) <> ""
m = i
Do While Cells(i, 2) = Cells(m, 2)
i = i + 1
Loop
Cells(m, 2).Resize(i - m).MergeCells = True
Cells(m, 2).Resize(i - m).VerticalAlignment = xlCenter
Loop
End Sub
Je voudrais compléter ce code qui fusionne ou bien une autre procédure, pour appliquer une bordure épaisse de la première colonne à la dernière, et dont la hauteur sera celle des cellules fusionnées. la 1ère colonne est la B et la dernière est la M.
J'ai mis le résultat escompté dans le fichier. En vous remerciant par avance. Bonne année à tous.