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_
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_