Exécuter les macros automatiquement

[KaoutherM]

Hello ,


J'utilise l'option sous Excel > centre de sécurité > Activer les macros automatiquement car mon client ne veut meme pas faire un click

le pb que cette fonction qui permet de remplir des champs ne s'exécute pas , il faut aller sur chaque champ Faire F2 pour afficher la valeur

Function GetParam(mysheet As String, myfield As String, mycol As String) As String

Dim Worksheet As Worksheet
Dim myRange As Range

GetParam = "-"
Set Worksheet = Sheets("C1")
Set myRange = Worksheet.UsedRange

For Each rw In myRange.Rows
If rw.Cells(1, 1).Value = myfield Then
If mycol = "Unit" Then
GetParam = rw.Cells(1, 2).Value
Else
If mycol = "AB" Then
GetParam = rw.Cells(1, 3).Value
Else
If mycol = "BA" Then
GetParam = rw.Cells(1, 4).Value
End If
End If
End If
End If
Next

End Function


y-a-t-il un moyen de rendre son exécution automatique ?

 

[tototiti2008]

Re : Exécuter les macros automatiquement

Bonsoir KaoutherM,

Peut-être en rendant la fonction volatile
Ajoute, juste après la première ligne "Function"
la ligne

Application.Volatile

le soucis est qu'après ça, elle est volatile , c'est à dire se recalcule sur chaque modification de chaque cellule du classeur

 

[KaoutherM]

Re : Exécuter les macros automatiquement

ça l'air d'etre bon !!! merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii