Macro si on efface une cellule

Résolu/Fermé
skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 - 15 mars 2014 à 18:23
skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 - 15 mars 2014 à 18:33
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
A voir également:

1 réponse

skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
15 mars 2014 à 18:33
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