Mise en page via VBA
Résolu
saxo91
Messages postés
33
Date d'inscription
Statut
Membre
Dernière intervention
-
kikkoCCm Messages postés 71 Date d'inscription Statut Membre Dernière intervention -
kikkoCCm Messages postés 71 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Mise en page via VBA
- Mise en forme conditionnelle excel - Guide
- Supprimer une page word - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise a jour windows 10 - Accueil - Mise à jour
- Mettre google en page d'accueil - Guide
5 réponses
Bonjour Michel,
Non, en fait je récupère les données depuis un autre fichier puis je copie/colle donc la couleur bleue vient du format initial du fichier qui nous est transmis.
Louisa
Non, en fait je récupère les données depuis un autre fichier puis je copie/colle donc la couleur bleue vient du format initial du fichier qui nous est transmis.
Louisa
re,
proposition
Michel
proposition
Option Explicit
'------------------------------------------------------
Sub encadrer()
Dim Derlig As Integer, Dercol As Byte
Dim Nbre As Integer, Cptr As Integer, Lig As Integer, Col As Byte
Application.ScreenUpdating = False
'--------------------------bordures horizontales
'bas du cadre
Derlig = Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row + 1
Range(Cells(Derlig, "A"), Cells(Derlig, "O")).Borders(xlEdgeBottom).Weight = xlMedium
'lignes intermédiaires
Nbre = Application.CountIf(Columns("A"), "*")
Lig = 5
For Cptr = 1 To Nbre
Lig = Columns("A").Find(what:="*", After:=Cells(Lig, "A")).Row
If Cells(Lig, "A").Interior.ColorIndex = 8 Then _
Range(Cells(Lig, "A"), Cells(Lig, "O")).Borders(xlEdgeTop).Weight = xlMedium
Next
'-------------------------bordures verticales
'droite du cadre
Dercol = Rows(5).Find(what:="*", searchdirection:=xlPrevious).Column
Range("O5:O" & Derlig).Borders(xlEdgeRight).Weight = xlMedium
'colonnes intermédiaires
Nbre = Application.CountA(Rows(5)) - 1
Col = 1
For Cptr = 1 To Nbre
Col = Rows(5).Find(what:="*", After:=Cells(5, Col)).Column
Range(Cells(5, Col), Cells(Derlig, Col)).Borders(xlEdgeLeft).Weight = xlMedium
Next
End Sub
Michel
Re bonjour Michel
Merci pour ton temps.
J'ai pas tout compris, en fait tu te base sur les cellules bleues pour les lignes mais pour les colonnes je n'arrive pas a décrypter ...
J'ai une erreur 91
Je te mets le vrai fichier ...
http://www.cjoint.com/doc/17_02/GBqjPP1PWSR_BON-LIVRAISON-UPS.xlsm
@+
Merci pour ton temps.
J'ai pas tout compris, en fait tu te base sur les cellules bleues pour les lignes mais pour les colonnes je n'arrive pas a décrypter ...
J'ai une erreur 91
Je te mets le vrai fichier ...
http://www.cjoint.com/doc/17_02/GBqjPP1PWSR_BON-LIVRAISON-UPS.xlsm
@+
mettre ton classeur sur https://mon-partage.fr/ car cjoint n'accapte pas les classeurs avec macro et il faut faire des "renommer" pour ouvrir
Nota: j'avais testé comme d'hab et ca fonctionnait....
Nota: j'avais testé comme d'hab et ca fonctionnait....
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question