Effacer cellules au changement d'une autre cellule

Bonjour

J'aimerais que lorsque je change la date de la cellule C2, les cellules B7 à H28 s'effacent. Merci.

16classeur1.xlsm (18.06 Ko)

Bonjour Poupamac32 et bienvenue

Copiez le code suivant dans la feuil1

Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Application.Intersect(Target, Range("C2")) Is Nothing Then
            Range("B7:H28").ClearContents
     End If
End Sub

Désolé BrunoM45- et bonsoir
Cdt
Papy Henri

Merci beaucoup AFEH, la macro fonctionne parfaitement. Bonsoir.

Rechercher des sujets similaires à "effacer changement"