XL 2019 vba excel

Wayki

XLDnaute Impliqué

• 4 Août 2021

• #2

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 +

 

Vote positif 0 Vote négatif

M

Mesda

XLDnaute Nouveau

• 4 Août 2021

• #3

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

 

Pièces jointes

• Departement.xlsm

  13.3 KB · Affichages: 11

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 4 Août 2021

• #4

Un exemple un peu tiré par les cheveux

 

Pièces jointes

• Departement.xlsm

  23.2 KB · Affichages: 11

Vote positif 0 Vote négatif

M

Mesda

XLDnaute Nouveau

• 4 Août 2021

• #5

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 5 Août 2021

• #6

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

 

Pièces jointes

• MAJ Bordure V1.xlsm

  22 KB · Affichages: 9

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Août 2021

• #7

Bonjour Mesda, Wayki, Phil69970,

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

VB:

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+

 

Pièces jointes

• Departement(1).xlsm

  20 KB · Affichages: 5

Vote positif 0 Vote négatif

Solution

M

Mesda

XLDnaute Nouveau

• 9 Août 2021

• #8

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
@+

 

Vote positif 0 Vote négatif