Inserer ligne avec le fond de cellule noir

Résolu/Fermé

Gael444 - Modifié par Gael444 le 2/09/2016 à 15:41
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 4 sept. 2016 à 17:41

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

A voir également:

Inserer ligne avec le fond de cellule noir
Aller à la ligne dans une cellule excel - Guide
Ecran noir pc - Guide
Insérer signature word - Guide
Site de vente en ligne particulier - Guide
Insérer liste déroulante excel - Guide

7 réponses

Réponse 1 / 7

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
3 sept. 2016 à 14:41

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

Cdlmnt

Réponse 2 / 7

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
2 sept. 2016 à 17:46

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

Réponse 3 / 7

Gael444
3 sept. 2016 à 13:45

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

Réponse 4 / 7

Gael444
3 sept. 2016 à 15:59

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

Gael444
3 sept. 2016 à 16:14

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

Réponse 6 / 7

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
3 sept. 2016 à 18:53

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

gael444
4 sept. 2016 à 17:06

Merci beaucoup ca fonction super comme ca

Réponse 7 / 7

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
4 sept. 2016 à 17:41

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

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

Fond d'écran qui devient noir

Discussions similaires

Newsletters