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

1 réponse

skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   54
 
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