Macro si on efface une cellule

Résolu
skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   -  
skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,

J'aurai besoin de votre aide sur ce coup !

Est-ce possible d'exécuter une macro si on efface le contenu d'une cellule ? (y mettre une valeur par défaut si elle est vide en faite)

Si vous avez un idée j'aimerais bien voir.

Merci

--
*Pensez mettre vos messages en [Résolu] et cliquer sur le + des conseil qui vous ont été utils"

1 réponse

  1. skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   55
     
    Haha Finalament c'est tout bête, ça marchait pas à cause d'une zone de validation.

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("B11")) Is Nothing Then
    If Cells(11, "B") = "" Then
    Cells(11, "B") = "Cheminée"
    Else
    Application.Run "Marq"
    End If
    End If
    End Sub
    0