Bonjour la Communauté,

J'essaie d'activiter ue macro lors du changement de valeur d'une formule dans une excel. Mais je dois a chaque fois lancer le module par la fenêtre VBE.
Ensuite il effectue le changement et revient à chaque fois dans la fenêtre VBE au lieu de rester dans la feuille où a lieu le changement
Quelqu'un pourrait-il m'aider svp?

Un grand merci d'avance

Habiler

Sous module1 j'ai :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Worksheet_Change()
Call ifFileExists 
End Sub
et en module 2 j'ai :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub ifFileExists()
 
    Dim RangeOfCells As Range
    Dim Cell As Range
    Dim songname As String
    Dim Nom As Range
 
    Dim TotalRow As Long
 
    TotalRow = Range("D" & Rows.Count).End(xlUp).Row
 
    Set RangeOfCells = Range("D2:D" & TotalRow)
 ' If Not Application.Intersect(Target, Range("A:l")) Is Nothing Then
    For Each Cell In RangeOfCells
 
        songname = "c:\Habiler\" & _
                   Cell & "\" & Cell.Offset(0, 5) & "_" & Cell.Offset(0, -2) & ".Pdf"
        Debug.Print "Checking: " & songname
        Cell.Font.Color = IIf(Len(Dir(songname)) = 0, vbRed, vbBlack)
 
    Next Cell
  '  End If
    MsgBox "Done, verify data first time"
 
End Sub