probleme de recalcul

camarchepas à dit:

Et oui , c'est pour cela que j'ai modifié la procédure effacement

Bizard que cela ne fonctionne pas avec le fichier envoyé , ici cela fonctionne trés bien,

Code:

Sub effacement()
'
' effacement Macro
'

'
    Range("b14:b17,b19:b21").Select
    Selection.ClearContents
        Range("B14:b17,b19:b21,b31:b32").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 15773696
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Cliquez pour agrandir...