Effacer automatiquement la bordure inf

Mi_

XLDnaute Occasionnel
Bonsoir le forum,

Pour blanchir de l'argent j'utili..., errr pardon je suis sur le mauvais forum, donc pour blanchir automatiquement les cellules de couleur vert clair, j'utilise le code:

Sub BlanchirVert()
For Each ws In Worksheets
macolonne = ws.Range('A1').SpecialCells(xlCellTypeLastCell).Column
maligne = ws.Range('A1').SpecialCells(xlCellTypeLastCell).Row
For x = 1 To maligne
For y = 1 To macolonne
If ws.Cells(x, y).Interior.PatternColorIndex = 35 Then ws.Cells(x, y).Interior.ColorIndex = xlNone
Next
Next
Next
End Sub


Mais dès que j'essaye d'ajouter la fonction 'enlever la bordure inférieure de la cellule verte claire', c'est à dire ws.Cells(x, y).Borders(xlEdgeBottom).LineStyle = xlNone, ça déconne.

Que faire ? Comment cumuler les deux opérations, de blanchissement et d'enlèvement de bordure ?

Merci pour tout conseil,
Mi_
 

ThomasR

XLDnaute Occasionnel
Bonsoir Mi,

si ton code de blanchiement marche je ne voix pas ce qui peux le planter .

peux tu donner le code qui plante . car je pense (sans avoir tester) que si tu l'inclus dans ta condition

avec

If ws.Cells(x, y).Interior.PatternColorIndex = 35 Then
ws.Cells(x, y).Interior.ColorIndex = xlNone
ws.Cells(x, y).Borders(xlEdgeBottom).LineStyle = xlNone
end if

devrait marcher
 

Statistiques des forums

Discussions
300 761
Messages
1 987 017
Membres
209 681
dernier inscrit
Excelcrable