j'ai une fichier où le terme "entité" est répété plusieurs fois mais sur des
lignes qui peuvent varier d'un onglet à l'autre
je voudrais mettre en forme toute la ligne en gras et bordure (bas gras et
haut fin) à chaque fois que le terme "entité" est cité en colonne A.
macro ou format conditionnel ?
merci bcp
daille
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pounet95
Bonjour,
selectionner la feuille en entier MEFC choisir "la formule est" saisir =si($A1="entité";vrai;faux) bouton Format et sélectionner Police, Motif et bordure ( limité / demande )
VBA A mettre dans le module ThisWorkbook pour que ce soit sur toutes les feuilles Attention : ne fonctionne pas en cas de copie en sélection multiple ou incrémentée !
Private Sub Worksheet_Change(ByVal Target As Range) If Range("A" & Target.Row) = "entité" Then Rows(Target.Row).EntireRow.Select With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThick .ColorIndex = xlAutomatic End With Else Rows(Target.Row).EntireRow.Select Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone End If End Sub
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"daille" a écrit dans le message de news:
Hello,
j'ai une fichier où le terme "entité" est répété plusieurs fois mais sur des lignes qui peuvent varier d'un onglet à l'autre je voudrais mettre en forme toute la ligne en gras et bordure (bas gras et haut fin) à chaque fois que le terme "entité" est cité en colonne A. macro ou format conditionnel ? merci bcp daille
Bonjour,
selectionner la feuille en entier
MEFC
choisir "la formule est"
saisir =si($A1="entité";vrai;faux)
bouton Format et sélectionner Police, Motif et bordure ( limité / demande )
VBA
A mettre dans le module ThisWorkbook pour que ce soit sur toutes les
feuilles
Attention : ne fonctionne pas en cas de copie en sélection multiple ou
incrémentée !
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A" & Target.Row) = "entité" Then
Rows(Target.Row).EntireRow.Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Else
Rows(Target.Row).EntireRow.Select
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
End If
End Sub
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)
"daille" <daille@discussions.microsoft.com> a écrit dans le message de news:
E8027B91-3CF9-4896-A017-01ED5A1ABA58@microsoft.com...
Hello,
j'ai une fichier où le terme "entité" est répété plusieurs fois mais sur
des
lignes qui peuvent varier d'un onglet à l'autre
je voudrais mettre en forme toute la ligne en gras et bordure (bas gras et
haut fin) à chaque fois que le terme "entité" est cité en colonne A.
macro ou format conditionnel ?
merci bcp
daille
selectionner la feuille en entier MEFC choisir "la formule est" saisir =si($A1="entité";vrai;faux) bouton Format et sélectionner Police, Motif et bordure ( limité / demande )
VBA A mettre dans le module ThisWorkbook pour que ce soit sur toutes les feuilles Attention : ne fonctionne pas en cas de copie en sélection multiple ou incrémentée !
Private Sub Worksheet_Change(ByVal Target As Range) If Range("A" & Target.Row) = "entité" Then Rows(Target.Row).EntireRow.Select With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThick .ColorIndex = xlAutomatic End With Else Rows(Target.Row).EntireRow.Select Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone End If End Sub
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"daille" a écrit dans le message de news:
Hello,
j'ai une fichier où le terme "entité" est répété plusieurs fois mais sur des lignes qui peuvent varier d'un onglet à l'autre je voudrais mettre en forme toute la ligne en gras et bordure (bas gras et haut fin) à chaque fois que le terme "entité" est cité en colonne A. macro ou format conditionnel ? merci bcp daille
JB
Bonjour,
http://cjoint.com/?bhgVZ1R4o5
-Sélectionner les lignes -Format/Mise en forme Cond/Laformule est
=$A1="Entité" -Choisir le format
Cordialement JB
Bonjour,
http://cjoint.com/?bhgVZ1R4o5
-Sélectionner les lignes
-Format/Mise en forme Cond/Laformule est
