Inserer ligne avec le fond de cellule noir
Résolu
Gael444
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Inserer ligne avec le fond de cellule noir
- Partage de photos en ligne - Guide
- Insérer video powerpoint - Guide
- Aller à la ligne dans une cellule excel - Guide
- Insérer signature word - Guide
- Google fond noir - Guide
7 réponses
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
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
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
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
De rien
Un détail, tu peux aller un peu plus vite comme ça pour le tri
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
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