Macro qui s'exécute automatiquement

Bonjour à tous,

J'ai une macro qui, en théorie devrait s'exécuter à chaque fois qu'il y a une modification dans la cellule I5, mais qui ne fonctionne pas. Ce qu'il faut, c'est que si la valeur dans la cellule I5 est "cadillac", la valeur dans la cellule F11 est 0,75 et si la valeur dans I5 n'est pas "cadillac", bien la valeur dans F11 est vide. Voici ma macro. Pouvez-vous m'aider (j'en suis certain).

Merci beaucoup et bonne journée

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("I5")) Is Nothing Then

If Cells("I5").Value = "CADILLAC" Then

Cells("F11").Value = 0.75

ElseIf Cells("I5").Value <> "CADILLAC" Then

Cells("F11").Value = ""

End If

End Sub

Bonjour,

Une formule peut faire aussi simplement, sinon, une fonction personnalisée.

Besoin d'une macro?

@+

Bonsoir le forum,

Adaptation de votre code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("I5")) Is Nothing Then
    If Target.Value = "CADILLAC" Then
        Range("F11").Value = 0.75
        ElseIf Target.Value <> "CADILLAC" Then
        Range("F11").Value = ""
    End If
End If
End Sub

Merci pour la macro. J'ai fais les modifications mais elle ne s'exécute toujours pas. Il y a-t'il une chose à faire pour activer les macros "private sub"?

Vous pouvez joindre un fichier anonymisé ?

Merci pour les efforts. J'ai trouvé la solution.

Bonne journée à tous.