XL 2019 vba excel

[Mesda]

Bonjour,

je cherche à écrire un code VBA pour Excel :
j'ai un tableau avec des données qui sont extraites chaque jour et qui changes, je voudrais sélectionner des plages de cellule en automatique pour mettre des bordures épaisses pour chaque département.
voici mon tb (avec les bordures que je désire) :

chaque jour (l'extraction excel) la colonne B et différente, sur cette exemple j'ai 13 "MONTAGE", mais je voudrais que les bordures épaisses soient automatisées en fonction du département.

Daniel

Pièces jointes​

 

[Wayki]

Hello,
Est-ce que les départements sont susceptibles de changer ou ils sont toujours les mêmes ?
Peux-tu glisser un fichier pour nous faciliter le travail et répondre au plus près à tes attentes ?
A +

 

[Mesda]

Hello Wayki,

oui, les départements peuvent changer chaque jour lors de l'extraction Excel que je fais.
Pas de soucis le fichier est en PJ.
Merci

 

[Wayki]

Un exemple un peu tiré par les cheveux

 

[Mesda]

ok, il faut que je me pause pour comprendre le code (je suis vraiment débutant ), je te dirai si ça fonctionne.

Mais pas avant début de semaine prochaine, départ en wk demain matin.

merci pour ton retour.


Daniel

 

[Phil69970]

Bonjour @Mesda, Wayki

Je te propose ce fichier :
*J'ai commenté tout le code pour que tu puisse le comprendre

Merci de ton retour.

@Phil69970

 

[job75]

Bonjour Mesda, Wayki, Phil69970,

Commençons par trier le tableau et effacer toutes les bordures :

Sub Bordures()
'se lance par les touches Ctrl+B
Dim tablo, i&
Application.ScreenUpdating = False
ActiveSheet.UsedRange.Sort Columns(2), xlAscending, Header:=True 'tri sur la colonne B
Cells.Borders.LineStyle = xlNone 'efface toutes les bordures
With [A1].CurrentRegion
    tablo = .Resize(, 2) 'matrice, plus rapide
    For i = 2 To UBound(tablo)
        If tablo(i, 2) <> tablo(i - 1, 2) Then .Rows(i).Borders(xlEdgeTop).Weight = xlMedium 'bordure supérieure
    Next
    .BorderAround Weight:=xlMedium 'pourtour
End With
End Sub

A+

 

[Mesda]

bonjour Wayki, Phil69970, job75,

Merci pour vos réponses,
j'ai testé les lignes de Phil69970 et job75, pour Wayki le programme me paraissait un peu trop compliqué.
les 2 autres fonctionnent bien, le programme de Phil69970 et plus compréhensible pour un débutant et celui de job75, ben on voit l'expert !
Mais c'est très formateur de voir plusieurs possibilités
@+