Discussion :

[will Igetit]

bonjour j'ai une foncction rien de plus simple seulemetn je ne vois pas le mosmatch??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 
 Private Function absolute(k)
 
 absolute(k) = Worksheets("Contacts").Cells(k, 7) * (-1)
 
 End Function

[Godzestla]

Bonjour,

plutot comme ceci je pense.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Private Function absolute(k)
 
 absolute = Worksheets("Contacts").Cells(k, 7) * (-1)
 
 End Function

mais pour être propre, il faudrait définir K avec un type et Absolute également

Du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 Private Function absolute(k as long) as long
 
 absolute = Worksheets("Contacts").Cells(k, 7) * (-1)
 
 End Function