Macro si on efface une cellule [Résolu/Fermé]

Signaler
Messages postés
938
Date d'inscription
jeudi 11 septembre 2008
Statut
Membre
Dernière intervention
16 octobre 2016
-
Messages postés
938
Date d'inscription
jeudi 11 septembre 2008
Statut
Membre
Dernière intervention
16 octobre 2016
-
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

1 réponse

Messages postés
938
Date d'inscription
jeudi 11 septembre 2008
Statut
Membre
Dernière intervention
16 octobre 2016
49
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