yann lucien
XLDnaute Nouveau
Je souhaite utiliser une macro qui efface les couleurs, pour certaines cellules uniquement pas toutes les cellules de mon tableau comment faut-il faire ?
Voici la macro que j'utilise pour effacé les couleurs qui ne marche pas :
Sub effacercouleurs()
'
' Macro4 Macro
'
'
Range("G8:AK13:G15:AK20:G22:AK27:G29:AK34:G36:AK41:G43:AK48:G50:AK55:G57:AK62:G64:AK69:G71:AK76").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
End With
With Selection.Font
.ColorIndex = 1
End With
Range("K2").Select
End Sub
Voici la macro que j'utilise pour effacé les couleurs qui ne marche pas :
Sub effacercouleurs()
'
' Macro4 Macro
'
'
Range("G8:AK13:G15:AK20:G22:AK27:G29:AK34:G36:AK41:G43:AK48:G50:AK55:G57:AK62:G64:AK69:G71:AK76").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
End With
With Selection.Font
.ColorIndex = 1
End With
Range("K2").Select
End Sub
Dernière édition: