Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Mise en forme automatique ligne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Jeremouse1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

Jeremouse1

Guest
Bonjour,

j'ai un fichier avec tout à gauche des références. Entre chaque référence identique il faut que la bordure horizontale soit fine sur toute la longueur et entre deux références différentes il faut une bordure horizontale épaisse.

Comme je suis amené à déplacer souvent des lignes, j'aimerai savoir si il est possible d'automatiser cette mise en forme ? Avec si possible un bouton sur une autre feuille pour lancer cette macro.

Merci d'avance

Jeremouse1
 

Pièces jointes

Trier par date Trier par votes
Re : Mise en forme automatique ligne

Re-bonjour,

Une nouvelle version sans quadrillage vertical :

Code: 
Option Explicit
Sub Quadrillage_particulier_bis()
Dim i As Long
Application.ScreenUpdating = False
Range("a1").CurrentRegion.Resize(, 70).Borders.Value = 0
Range("a1").CurrentRegion.Resize(, 70).Borders(xlInsideHorizontal).Weight = xlThin
For i = 5 To Range("A65536").End(xlUp).Row
    If Range("A" & i) <> Range("A" & i).Offset(1, 0) Then Range("A" & i).Resize(, 70).Borders(xlEdgeBottom).Weight = xlThick
Next
Application.ScreenUpdating = True
End Sub

... et une autre, avec quadrillage vertical :

Code: 
Option Explicit
Sub Quadrillage_particulier_ter()
Dim i As Long
Application.ScreenUpdating = False
Range("a1").CurrentRegion.Resize(, 70).Borders.Value = 0
Range("a1").CurrentRegion.Resize(, 70).Borders.Value = 1
For i = 5 To Range("A65536").End(xlUp).Row
    If Range("A" & i) <> Range("A" & i).Offset(1, 0) Then Range("A" & i).Resize(, 70).Borders(xlEdgeBottom).Weight = xlThick
Next
Application.ScreenUpdating = True
End Sub

A bientôt 🙂
 
Vote positif 0 Vote négatif
Re : Mise en forme automatique ligne

Merci beaucoup pour ta réponse DoubleZero 🙂

j'ai testé ta deuxième macro, il y a bien un quadrillage vertical par contre j'aimerais que la macro ne modifie pas celui qui est existant. En fait, je teste les macros que tu fais sur un autre fichier avec un quadrillage vertical existant, et j'aimerais le conserver tel qu'il est.

Est ce qu'il est possible de modifier la macro pour qu'elle ne modifie pas le quadrillage vertical ? Car pour l'instant, soit le quadrillage est supprimé, soit il est remplacé un quadrillage vertical uniforme.

Merci d'avance pour aide.

Jeremouse1
 
Vote positif 0 Vote négatif
Re : Mise en forme automatique ligne

Très bien merci en tout cas pour ton aide précieuse.

Est ce que tu saurais, par contre, comment faire commencer la macro à la ligne 5 et pas à la première ? Sur le vrai fichier il y a des titres etc... sur les 4 première lignes.

Merci d'avance,

Jeremouse1
 
Vote positif 0 Vote négatif
Re : Mise en forme automatique ligne

Re-bonjour,

Peut-être comme suit :

Code: 
Option Explicit
Sub Quadrillage_particulier_quater()
Dim c As Range
Application.ScreenUpdating = False
Range("a1").CurrentRegion.Resize(, 70).Borders.Value = 0
For Each c In Range("A5", [A65000].End(xlUp)).Resize(, 70)
    c.Borders.Value = 1
    If c <> c.Offset(1, 0) Then c.Resize(, 70).Borders(xlEdgeBottom).Weight = xlThick
Next
Application.ScreenUpdating = True
End Sub

A bientôt 🙂
 
Vote positif 0 Vote négatif
Re : Mise en forme automatique ligne

Merci beaucoup pour ta réponse 🙂

Par contre quand j'execute cette macro, j'ai une erreur "Incompatibilité de type" et dans le débogage, il me surligne la commande "If c<>c.Offset(1,0) Then".

Est ce que tu saurais d'où l'erreur peut venir ?

Merci d'avance,

Jeremouse1
 
Vote positif 0 Vote négatif
Re : Mise en forme automatique ligne

Re-bonjour,

Dans ce cas, tentons de modifier ainsi :

Code: 
Option Explicit
Sub Quadrillage_particulier_quater()
Dim c As Range
Application.ScreenUpdating = False
Range("a1").CurrentRegion.Resize(, 70).Borders.Value = 0
For Each c In Range("A5", [A65000].End(xlUp)).Resize(, 70)
    c.Borders.Value = 1
    If c.Value <> c.Offset(1, 0).Value Then c.Resize(, 70).Borders(xlEdgeBottom).Weight = xlThick
Next
Application.ScreenUpdating = True
End Sub

A bientôt 🙂
 
Vote positif 0 Vote négatif
Re : Mise en forme automatique ligne

Merci beaucoup pour ta réponse,

en réalité j'ai toujours une erreur d'incompatibilité de type et une erreur 2042 sur le c.Value.

Saurais-tu d'où cela peut-il venir ?

Merci d'avance,

Jeremouse1
 
Vote positif 0 Vote négatif
Re : Mise en forme automatique ligne

Bonjour Jeremouse1, Bonjour 00 🙂
En repartant du code de 00, une ou deux modifs qui vont accélerer les choses et, peut-être, éviter les problèmes.


VB: 
Sub Quadrillage_particulier_quater()
Dim c As Range
Application.ScreenUpdating = False
Range("a5").CurrentRegion.Resize(, 70).Borders.Value = 1
For Each c In Range("A5:A" & [A65000].End(xlUp).Row)
    If c.Value < > c.Offset(1, 0).Value Then c.Resize(, 70).Borders(xlEdgeBottom).Weight = xlThick
Next
Application.ScreenUpdating = True
End Sub

Cordialement

EDIT Je n'avais pas vu que Jeremouse1 n'était revenu qu'un mois après....
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Mise en forme automatique ligne

Bonjour Efgé,

merci beaucoup pour ta réponse, en effet tes modifications ont résolu le problème. Maintenant j'aurais une dernière chose à vous demander.

Sur le fichier Excel joint, on peut voir en ligne 4 des celulles colorées, cette ligne est fixe dans le fichier. Je voudrais que la macro que vous m'avez écrite puisse aussi modifier les bordures verticales mais, ici, en fonction des couleurs. En gros lorsque l'on change de couleur il faut mettre un trait gras en vertical tout le long du fichier, sinon ne pas mettre de bordure verticale.

Serait-il possible d'intégrer cette fonction à la macro déjà existante ?

Merci d'avance,

Jeremouse1
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Mise en forme automatique ligne

Ca a l'air de bien marcher sur l'exemple ! 😀 Par contre, sur mon fichier il m'efface toutes les bordures au dessus de la ligne 5, est ce que le fait que les volets soient figés au dessus de la ligne 5 a une incidence ?
 
Vote positif 0 Vote négatif
Re : Mise en forme automatique ligne

Re
Il serait nécessaire d'avoir un fichier exemple réellement représentatif du fichier final!
C'est le ".CurrentRegion" qui pose problème.
Mais comment le savoir ?
Cordialement
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

G
  • Question Question
XL 2016 Calcul en boucle de valeurs cibles
Réponses
6
Affichages
400
job75
L
  • Question Question
XL 2021 RechercheX et Mise en forme conditionnelle
2
Réponses
17
Affichages
401
Lucie85
L
D
  • Résolu(e)
XL 2019 Mise en forme
Réponses
2
Affichages
363
Danyk01
D
  • Résolu(e)
XL 2010 Mise en forme d’un graphique spécifique
Réponses
6
Affichages
263
jeanmi
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
L
  • Question Question
Microsoft 365 mise en forme fichier excel power query
Réponses
1
Affichages
331
vgendron
  • Question Question
XL 2019 Date et mise en forme conditionnelle
Réponses
5
Affichages
914
fanfan38
S
  • Résolu(e)
Microsoft 365 Appliquer par vba une mise en forme conditionnelle d'après une liste de cellules mises en forme
Réponses
9
Affichages
919
Dranreb
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
1 K
Laliepomm
L
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
847
Lu76Fer
D
  • Question Question
XL 2016 Future date la plus proche d'aujourd'hui + mise en forme conditionnelle
Réponses
8
Affichages
547
vgendron
  • Question Question
Microsoft 365 Déplacer cellules en gardant mise en forme source et cible (via VBA)
2 3
Réponses
34
Affichages
2 K
TooFatBoy
H
  • Question Question
XL 2016 Mettre des titres avec une mise en forme spécifique
Réponses
1
Affichages
625
vgendron
S
  • Résolu(e)
XL 2016 Comment faire ressortir la ligne sélectionnée dans un tableau
Réponses
2
Affichages
686
Stéphane_1
S
F
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle selon la référence d'une cellule
Réponses
3
Affichages
784
filiph79
F
M
  • Question Question
XL 2021 Formule SI avec des arrondis ou mise en forme ?
Réponses
3
Affichages
465
Marie1608
M
J
  • Question Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
796
Julien_B
J
B
  • Question Question
Microsoft 365 Mise en forme conditionnelle d'une colonne
Réponses
2
Affichages
704
Ben92290
B
  • Question Question
XL 2016 Mise en forme conditionnelle / Comptage multicritères
Réponses
2
Affichages
577
Wayat
P
  • Résolu(e)
XL 2013 Mise en forme suite à utilisation de UserForm
Réponses
4
Affichages
812
PR.
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…