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
Daniel
Bonsoir. Essaie la macro suivante :
Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell)) For Each c In Plage For i = 5 To 12 If c.Borders(i).ColorIndex <> -4142 Then c.Borders(i).ColorIndex = 1 Next i Next c End Sub
Cordialement. Daniel "Gaspareau" a écrit dans le message de news:
Bonjour,
J'ai à mettre à jour un fichier dans lequel il y a des bordures.
Il y a plusieurs type de bordures pas nécessairement alignées par rapport aux colonnes
Est-ce possible de modifier la couleur de ces bordures sans les modifier une à une ?
Donc de mettre la couleur des bordures existantes à noires dans mon cas.
MErci
Bonsoir.
Essaie la macro suivante :
Sub test()
Dim Plage As Range, c As Range
Set Plage = Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell))
For Each c In Plage
For i = 5 To 12
If c.Borders(i).ColorIndex <> -4142 Then c.Borders(i).ColorIndex
= 1
Next i
Next c
End Sub
Cordialement.
Daniel
"Gaspareau" <123@234> a écrit dans le message de news:
O25LbSR9FHA.808@TK2MSFTNGP09.phx.gbl...
Bonjour,
J'ai à mettre à jour un fichier dans lequel il y a des bordures.
Il y a plusieurs type de bordures pas nécessairement alignées
par rapport aux colonnes
Est-ce possible de modifier la couleur de ces bordures sans les
modifier une à une ?
Donc de mettre la couleur des bordures existantes à noires dans mon cas.
Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell)) For Each c In Plage For i = 5 To 12 If c.Borders(i).ColorIndex <> -4142 Then c.Borders(i).ColorIndex = 1 Next i Next c End Sub
Cordialement. Daniel "Gaspareau" a écrit dans le message de news:
Bonjour,
J'ai à mettre à jour un fichier dans lequel il y a des bordures.
Il y a plusieurs type de bordures pas nécessairement alignées par rapport aux colonnes
Est-ce possible de modifier la couleur de ces bordures sans les modifier une à une ?
Donc de mettre la couleur des bordures existantes à noires dans mon cas.
MErci
Daniel
Si seul le tour des cellules est concerné (pas les diagonales), on peut accélérer le processus avec :
Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell)) For Each c In Plage For i = 5 To 12 If c.Borders.ColorIndex = -4142 Then Exit For If c.Borders(i).ColorIndex <> -4142 Then c.Borders(i).ColorIndex = 1 Next i Var = Selection.Borders.ColorIndex Next c End Sub
Daniel "Gaspareau" a écrit dans le message de news:
Bonjour,
J'ai à mettre à jour un fichier dans lequel il y a des bordures.
Il y a plusieurs type de bordures pas nécessairement alignées par rapport aux colonnes
Est-ce possible de modifier la couleur de ces bordures sans les modifier une à une ?
Donc de mettre la couleur des bordures existantes à noires dans mon cas.
MErci
Si seul le tour des cellules est concerné (pas les diagonales), on peut
accélérer le processus avec :
Sub test()
Dim Plage As Range, c As Range
Set Plage = Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell))
For Each c In Plage
For i = 5 To 12
If c.Borders.ColorIndex = -4142 Then Exit For
If c.Borders(i).ColorIndex <> -4142 Then c.Borders(i).ColorIndex
= 1
Next i
Var = Selection.Borders.ColorIndex
Next c
End Sub
Daniel
"Gaspareau" <123@234> a écrit dans le message de news:
O25LbSR9FHA.808@TK2MSFTNGP09.phx.gbl...
Bonjour,
J'ai à mettre à jour un fichier dans lequel il y a des bordures.
Il y a plusieurs type de bordures pas nécessairement alignées
par rapport aux colonnes
Est-ce possible de modifier la couleur de ces bordures sans les
modifier une à une ?
Donc de mettre la couleur des bordures existantes à noires dans mon cas.
Si seul le tour des cellules est concerné (pas les diagonales), on peut accélérer le processus avec :
Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell)) For Each c In Plage For i = 5 To 12 If c.Borders.ColorIndex = -4142 Then Exit For If c.Borders(i).ColorIndex <> -4142 Then c.Borders(i).ColorIndex = 1 Next i Var = Selection.Borders.ColorIndex Next c End Sub
Daniel "Gaspareau" a écrit dans le message de news:
Bonjour,
J'ai à mettre à jour un fichier dans lequel il y a des bordures.
Il y a plusieurs type de bordures pas nécessairement alignées par rapport aux colonnes
Est-ce possible de modifier la couleur de ces bordures sans les modifier une à une ?
Donc de mettre la couleur des bordures existantes à noires dans mon cas.
MErci
Gaspareau
Merci beaucoup Daniel
Je teste tout de go
"Daniel" a écrit dans le message de news:%23rgdB$
Bonsoir. Essaie la macro suivante :
Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell)) For Each c In Plage For i = 5 To 12 If c.Borders(i).ColorIndex <> -4142 Then c.Borders(i).ColorIndex
= 1 Next i Next c End Sub
Cordialement. Daniel "Gaspareau" a écrit dans le message de news:
Bonjour,
J'ai à mettre à jour un fichier dans lequel il y a des bordures.
Il y a plusieurs type de bordures pas nécessairement alignées par rapport aux colonnes
Est-ce possible de modifier la couleur de ces bordures sans les modifier une à une ?
Donc de mettre la couleur des bordures existantes à noires dans mon cas.
MErci
Merci beaucoup Daniel
Je teste tout de go
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de
news:%23rgdB$R9FHA.1148@tk2msftngp13.phx.gbl...
Bonsoir.
Essaie la macro suivante :
Sub test()
Dim Plage As Range, c As Range
Set Plage = Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell))
For Each c In Plage
For i = 5 To 12
If c.Borders(i).ColorIndex <> -4142 Then
c.Borders(i).ColorIndex
= 1
Next i
Next c
End Sub
Cordialement.
Daniel
"Gaspareau" <123@234> a écrit dans le message de news:
O25LbSR9FHA.808@TK2MSFTNGP09.phx.gbl...
Bonjour,
J'ai à mettre à jour un fichier dans lequel il y a des bordures.
Il y a plusieurs type de bordures pas nécessairement alignées
par rapport aux colonnes
Est-ce possible de modifier la couleur de ces bordures sans les
modifier une à une ?
Donc de mettre la couleur des bordures existantes à noires dans mon cas.
Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell)) For Each c In Plage For i = 5 To 12 If c.Borders(i).ColorIndex <> -4142 Then c.Borders(i).ColorIndex
= 1 Next i Next c End Sub
Cordialement. Daniel "Gaspareau" a écrit dans le message de news:
Bonjour,
J'ai à mettre à jour un fichier dans lequel il y a des bordures.
Il y a plusieurs type de bordures pas nécessairement alignées par rapport aux colonnes
Est-ce possible de modifier la couleur de ces bordures sans les modifier une à une ?
Donc de mettre la couleur des bordures existantes à noires dans mon cas.
