Format de ligne suivant plusieurs cellules

G

Guest

Guest

• 11 Septembre 2009

• #2

Re : Format de ligne suivant plusieurs cellules

Bonjour Mimic, le forum,

A tester, une macro nommée 'InsererLignes'

A+

 

Vote positif 0 Vote négatif

M

mimic44

Guest

• 11 Septembre 2009

• #3

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...😀

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 11 Septembre 2009

• #4

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 :

Code:

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

Par

Code:

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+

 

Vote positif 0 Vote négatif

M

mimic44

Guest

• 11 Septembre 2009

• #5

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 ?

 

Vote positif 0 Vote négatif

M

mimic44

Guest

• 17 Septembre 2009

• #6

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.

 

Vote positif 0 Vote négatif

cibleo

XLDnaute Impliqué

• 28 Octobre 2009

• #7

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

 

Pièces jointes

• Hasco.jpg

  22.6 KB · Affichages: 78
• Hasco.jpg

  22.6 KB · Affichages: 79

Vote positif 0 Vote négatif

cibleo

XLDnaute Impliqué

• 31 Octobre 2009

• #8

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.

Code:

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

 

Vote positif 0 Vote négatif

cibleo

XLDnaute Impliqué

• 11 Novembre 2009

• #9

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

 

Pièces jointes

• ToggleButton.xls

  45.5 KB · Affichages: 58
• ToggleButton.xls

  45.5 KB · Affichages: 57
• ToggleButton.xls

  45.5 KB · Affichages: 52

Vote positif 0 Vote négatif