Format de ligne suivant plusieurs cellules

[mimic44]

Bonjour les pro du VBA,

voila, pour le boulot j'extrais régulièrement les lignes d'un tableau de base pour en faire un planning recentré par semaine pour le diffuser largement.

Maintenant pour aller plus vite et pour y voir plus clair je souhaite, insérer à chaque changement de date une ligne du type "Lundi 14 septembre 2009" (voir la L2 de ma pièce jointe) et souligner les lignes (en gras) entre chaque changement de moyen (MC1, MC2, MC3).

Merci d'avance !

 

[Guest]

Re : Format de ligne suivant plusieurs cellules

Bonjour Mimic, le forum,

A tester, une macro nommée 'InsererLignes'

A+

 

[mimic44]

Re : Format de ligne suivant plusieurs cellules

Bonjour Hasco,

super !!
par contre, je me suis mal exprimé j'aurai voulu les lignes soulignées en gras et pas les caractères...😀

 

[Guest]

Re : Format de ligne suivant plusieurs cellules

Re,

mimic c'est quoi les lignes soulignées en gras. Des lignes avec une bordure inférieure un peu épaisse?

Si c'est ça,

remplace la ligne :

Cells(r, 1).Resize(, 4).Font.Bold = True

Par

With Cells(r, 1).Resize(, 4).Borders(xlEdgeBottom)
       .LineStyle = xlContinuous
       .Weight = xlMedium
       .ColorIndex = xlAutomatic
 End With

mais cela mettra une bordure inférieure à chaque cassure de MC?
Ne vaudrait-il pas mieux une bordure supérieure?
Auquel cas dans les lignes précédentes remplace 'xlEdgeBottom' par 'xlEdgeTop'.

A+

 

[mimic44]

Re : Format de ligne suivant plusieurs cellules

c'est nickel !!
et effectivement il faut bien souligner au dessus du changement de MC.
Par contre je comptais incorporer ces codes dans une macro déjà existante mais j'ai bien peur que cela dépasse mes modestes connaissances et malheureusement la taille de mon fichier ne me permet pas de l'envoyer sur le forum.
y' a til moyen de le faire facilement ?

 

[mimic44]

Re : Format de ligne suivant plusieurs cellules

C'est bon j'ai trouvé comment incorporer les codes.

Maintenant je me pose la question de la taille de ma macro (~560 lignes), existe t-il un optimiseur de macro ou un truc dans le genre pour faire cela ?😕

merci.

 

[cibleo]

Re : Format de ligne suivant plusieurs cellules

Bonjour à tous,
Bonjour Hasco,

La macro créée par Hasco m'intéresse beaucoup et j'aurais aimé apporter une petite amélioration.

2 clics successifs insèrent 2 en-têtes (voir l'image ci-dessous).



J'aimerais placer un ToggleButton qui viendrait effectuer l'action inverse lors du second clic. (soit supprimer l'en-tête insérée)

Est-ce réalisable ?

Merci de votre aide
Cibleo

 

[cibleo]

Re : Format de ligne suivant plusieurs cellules

Bonsoir le forum,

Voilà, j'ai trouvé la macro qui peut être associée au 2ème clic sur le ToggleButton.
Elle supprime les en-têtes en vert.

Sub SupprimerLignesVertes()
Dim lignes As Long
Dim i As Long
lignes = Range("A1").CurrentRegion.Rows.Count
Application.ScreenUpdating = False
For i = lignes To 1 Step -1
If Cells(i, 1).Interior.ColorIndex = 35 Then
Cells(i, 1).EntireRow.Delete
End If
Next
Application.ScreenUpdating = True
End Sub

Donc je reprends :
Comment associé la macro d'Hasco au 1er clic et celle-ci au 2ème clic sur le ToggleButton.

Merci de votre aide

Cibleo

 

[cibleo]

Re : Format de ligne suivant plusieurs cellules

Bonsoir le forum,

Voilà ce que j'ai réalisé à partir du fichier d'Hasco.

Dans le 1er fichier, j'aurais aussi aimé modifier la procédure "InsererLignes" afin d'éviter les insertions multiples d'en-têtes lors de clics successifs sur le commandButton.

Cibleo