Effacer automatiquement la bordure inf

[Mi_]

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]

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

 

[Mi_]

Bonsoir Thomas®,

Meuh c'est injuste, tu me dis que j'ai perdu 2 heures parce que j'avais oublié d'y mettre un banal End If ??? :angry:



Merci, maintenant ça marcheu ! Youpie.

 

[ThomasR]

re,

C'est tres bien ainsi car cela veux dire que tu avais réussi le plus dur.

@+