Inserer ligne avec le fond de cellule noir Résolu

Question

Bonjour,

J'ai deux macros qui me permette d'inserer des ligne enter mes différentes essences et mes diférent fournisseur
mais j'aimerais reunir ces deux la
et egalement mettre les ligne inserer entre les different fournisseur en noir et en petite taille
.
Sub InsLigne()
Dim L As Integer, Ligne As Integer
L = 2
Do While Cells(L, "A") <> ""
If Cells(L, "A").Value <> Cells(L + 1, "A").Value Then
Ligne = Cells(L + 1, "A").Row
Rows(Ligne).Insert
Rows(Ligne).Insert
L = L + 2
End If
L = L + 1
Loop
End Sub

Sub InsLigneF()
Dim L As Integer, Ligne As Integer
L = 2
Do While Cells(L, "B") <> ""
If Cells(L, "B").Value <> Cells(L + 1, "B").Value Then
Ligne = Cells(L + 1, "B").Row
Rows(Ligne).Insert
L = L + 1
End If
L = L + 1
Loop
End Sub
.
Je fais sa pour facilité la lecture du tableau

ccm81 · Answer

Bonjour

Pour insérer des lignes, il vaudrait mieux commencer par la fin
Peux tu envoyer un bout de ton fichier, sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu

1) Tu vas dans https://www.cjoint.com/ 
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier 
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint] 
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien 
   en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse  tu fais "Coller"

Cdlmnt

Gael444 · Answer

http://www.cjoint.com/c/FIdlRsdvReW

Voici mon fichier 

ou si c'est pas possible d'inserer un ligne avec les cellule grise ou noire
es ce possible de noircir la ligne entière SI la case A est vide

ccm81 · Answer

A tester
http://www.cjoint.com/c/FIdmOUH2quq 

Cdlmnt

Gael444 · Answer

Ca fonctionne très bien mais régulièrement je suis obliger de re trier ce tableau et lorsque je retrie le ligne reste petite c'est genant

est t'il possible a la place de mettre la ligne en grise et petit
de faire un bordure inférieur fine pour les fournisseur
et une epaisse pour les essences

Je n'arrive pas a réinitialiser le format des cellule quand je reeffectue un tri sinon

Sub TriPerso()
    
    Columns("A:N").Select
        Selection.Sort Key1:="Essence", Order1:=xlAscending, Header:=xlGuess, _
        Key2:="Fournisseur", Order2:=xlAscending, Header:=xlGuess, _
        Key3:="Qualité", Order3:=xlAscending, Header:=xlNo

End Sub

Gael444 · Answer

inserer un ligne vierge avec une bordure inférieur
et lors du trie enlever ces bordure

ccm81 · Answer

est t'il possible a la place de mettre la ligne en grise et petit 
de faire un bordure inférieur fine pour les fournisseur 
et une epaisse pour les essences 
c'est beaucoup plus simple
http://www.cjoint.com/c/FIdq1fC6ZQq 

Cdlmnt

ccm81 · Answer

De rien

Un détail, tu peux aller un peu plus vite comme ça pour le tri
Sub TriPerso()
Dim lifin As Long, li As Long, plage As Range
lifin = Cells(Rows.Count, 1).End(xlUp).Row
Columns("A:N").Select
Selection.Sort Key1:="Essence", Order1:=xlAscending, Header:=xlGuess, _
Key2:="Fournisseur", Order2:=xlAscending, Header:=xlGuess, _
Key3:="Qualité", Order3:=xlAscending, Header:=xlNo
Application.ScreenUpdating = False
Set plage = Range(Cells(lideb, 1), Cells(lifin, cofin))
plage.Borders(xlEdgeBottom).LineStyle = xlNone
Call OK
Application.ScreenUpdating = True
End Sub
Si c'est fini, peux tu mettre le sujet à Résolu (en haut au dessous du titre de ton premier message)

Bonne fin de journée

Inserer ligne avec le fond de cellule noir

7 réponses

Newsletters