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
Afficher la suite

1 réponse

Réponse 1 / 1
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
Posez votre question