Appel d'une macro en VBA

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:

1 2 3 Private Sub Worksheet_Change() Call ifFileExists End Sub
et en module 2 j'ai :
Code:

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

Bonjour,

Citation:

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

Les fonctions personnelles dans Excel
Les évènements dans la feuille de calcul Excel
Les évènements du module objet ThisWorkbook, dans Excel

èmjhhjm

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

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:

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

Bonjour,

Citation:

Mais qu'entendez-vous par "fonction personnalisée utilisable directement dans excel"?

Si vous aviez consulté les tutoriels que je vous ai conseillé de lire et tout particulièrement le premier, vous auriez la réponse à votre question.

Bizarre,

Hier cela ne fonctionnenait pas je voulais et aujourd'hui sans rien faire cela fonctionne??

Bizarre, bizarre

Merci encore

Habiler