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 ?
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 ?