Discussion :

[patricktoulon]

bonjour a tous


en aidant plusieur forumeur sur diverses question

je me pose une question sur comment référencer une cellule

j'explique:


a suposer que je créé une fonction exemple "mafonction"

et je la met dans une cellule exemple "=Mafonction"


dans la fonction elle meme n'ya t-il pas un moyen de référencer cette cellule

du genre "thiscells"

exemple d'utilisation

Code :

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

1
2
3
4
5
6
7
public function mafonction()
 dim cel1 as range,cel2 as range,cel3 as range
 
cel3=thiscell 'designe la cellule ou est inscrite "=mafonction"
 
mafonction=cel3.offset(0,-2)-cell3.offset(0,-1)'bien sur ca n'est pas l'operation qu'il y aura c'est juste un exemple 
end function

il va y avoir plusieurs cellule qui auront cette fonction


une idée ?????

au plaisir

[SfJ5Rpw8]

Tiens une fonction qui te permettra d'y voir plus clair

Code :

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

1
2
3
4
5
Function MaFonction() As String
Dim r As Range
Set r = Application.Caller
    MaFonction = r.Address
End Function

mais attention aux limites des fonctions personnalisés d'Excel :

http://support.microsoft.com/kb/170787/fr

[patricktoulon]

bonjour bbil

si je comprend bien pour ma fonction je n'est besoins que de ca

Code :

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

Set r = Application.Caller

si je met cette fonction dans plusieur cellule n'y a t-il pas des risque de redondance????

je te remercie

au plaisir

[SfJ5Rpw8]

...
si je met cette fonction dans plusieurs cellules n'y a t-il pas des risque de redondance????
..

je vois pas ce que tu veux dire...

[patricktoulon]

re je fesais allusion au fait que plusieurs cellules aurnt cette fonction
donc n'y a t-il pas un risque que la cellule soit mal identifiée

voila l'ebauche de ma fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public Function difftemps() 
Dim S As Long, H As Long, M As Long
Dim cellule As Range
Set cellule = Application.Caller
 S = DateDiff("s", r.Offset(0, -2), r.Offset(0, -1))
    H = Int(S / 3600)
    M = Int((S - 3600 * H) / 60)
    S = S - 3600 * H - 60 * M
        durrée = TimeSerial(H, M, S)
    difftemps = durrée
End Function
 
mais ca me marque "?NOM":aie:

heu!!...... moi pas comprendre

EDIT!!!!!!!!!

oupss j'ai oublé de changer le nom de variable
voici le bon code j'ai meme ajouter un e condition

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
Public Function difftemps()
Dim S As Long, H As Long, M As Long
Dim cellule As Range
 
Set cellule = Application.Caller
 If cellule > cellule.Offset(0, 1) Then
 S = DateDiff("s", cellule.Offset(0, -2), cellule.Offset(0, -1))
  ElseIf cellule < cellule.Offset(0, 1) Then
  S = DateDiff("s", cellule.Offset(0, -1), cellule.Offset(0, -2))
 End If
 
    H = Int(S / 3600)
    M = Int((S - 3600 * H) / 60)
    S = S - 3600 * H - 60 * M
        'durrée = TimeSerial(H, M, S)
    difftemps = H & ":" & M & ":" & S
End Function

je suis en train de realiser cette fonction pour "lyonnaisdu26" je trouvait le sujet interressant
un peu d'aide me serait grand utile je crois

au plaisir

[SfJ5Rpw8]

Je n'ai pas tous relu .. mais dans ton cas Application.Caller ne me semble pas intéressante .. il vaudrait mieux donner 2 paramètres à ta fonction du genre :

Code :

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

Public Function difftemps( rDateDeb as range, rDateFin as range )

ces histoire d'Offset qui oblige à ce que la formule soit placé dans une positon définie en fonction de ces paramètres c'est pas la joie ...