Appel d'une macro en VBA

**HABILER** · 01/03/2022, 10h06

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

**Philippe Tulliez** · 01/03/2022, 10h43

Bonjour,

J'essaie d'activiter ue macro lors du changement de valeur d'une formule dans une excel.

La procédure événementielle dans laquelle vous invoquez la procédure nommée ifFileExists ne s'exécutera qu'à condition que l'on modifie le contenu d'une cellule de la feuille et non au recalcul d'une formule qui s'y trouverait;
Je ne sais pas ce que vous voulez faire mais dans votre cas, je créerais une fonction personnalisée utilisable directement dans excel

Quelques liens de tutoriels à lire si vous le souhaitez

**HABILER** · 01/03/2022, 21h20

Le but est effectivement d'activer iffileExists lors d'un changement de valeur dans la feuille.
Mais qu'entendez-vous par "fonction personnalisée utilisable directement dans excel"?

bien à vous

Eric

**HABILER** · 02/03/2022, 00h15

J'ai modifié le code comme suit et maintenant cela fonctionne au changement de valeur de la feuille mais toute la colonne D est rouge alors que seules les cellules dont Songname n'existe pas
dans P:\habiler\ doit ëtre en rouge

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
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    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
        'edit: include artist
        songname = "P:\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