Macro automatique

Question

Bonjour,

Après quelques recherches j'ai écris ces quelques lignes

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$D$5" Then
        Call VRAIFAUX
    End If

End Sub

Sub VRAIFAUX()

Dim Ligne As Integer

Ligne = Application.Match(Range("D5").Value, Columns(1), 0)
Range("E5").Value = Range("B" & Ligne).Value
Range("F5").Value = Range("C" & Ligne).Value

End Sub

La Macro VRAIFAUX fait exactement ce que je veux.
Par contre j'aimerais qu'elle s'exécute automatiquement lorsque je change la valeur dans la cellule D5.
J'ai donc écris la première partie de ma macro avec Private Sub mais cela ne fonctionne pas. Qu'est ce que je fait de mal?

5test.xlsm (16.87 Ko)

saboh12617 · Accepted Answer

Le code défini dans Worksheet_Change(ByVal Target As Range) sert à implémenter la gestion d'un évènement d'une feuille (worksheet). Il doit donc se trouver dans le module de code de ladite feuille. Il faut le déplacer, comme indiqué sur le screenshot ci-dessous (Double cliquez sur "Feuil1 (Feuil1)" pour ouvrir son module de code.) Je vous laisse effectuer vous-même la manipulation afin que vous le mémorisiez...