[Toutes versions] reference a une cellule dans une fonction

[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 :

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

[bbil]

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

Code :

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 :

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

[bbil]

Envoyé par patricktoulon

...
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 :

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 :

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

[bbil]

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 :

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

[Qwazerty]

Salut
J'ai lu en diagonal mais juste un détail, la fonction placée dans une cellule a pour but de modifier le contenu de celle ci. Donc quel pourrait bien être l’intérêt de connaitre le contenu de ta cellule à l’intérieur de la fonction quelle contient?
Le code va en effet se mordre la queue, tu cherches à modifier un contenu en prenant ce contenu comme base. Tu crées donc une ref circulaire en faisant cela.
L’intérêt de Caller à mon sens est plus de connaitre par exemple les coordonnées ou des caracteristiques de la cellule.
++
Qwaz

[patricktoulon]

bonjour bill et qwazerty

oui j'avais penser a ajouter les référence au cellule

il faudra alors mettre dans la cellule par exemple

Code :

=difftemps(a1:b1)

ça me permettrait finalement de ne pas utiliser le "application.caller"

qwazerty :c'est de ca que je parlais quand je parlais de redondance

mais finalement je vais adopter la solution de bill

merci a tout les deux


au plaisir

[bbil]

Envoyé par patricktoulon

...
il faudra alors mettre dans la cellule par exemple

Code :

=difftemps(a1:b1)

...

point-virgule (;) pas deux points (:)

[patricktoulon]

oui j'avais un doute merci

je viens de comprendre la reaction de qwazerty

par erreur dans la fonction je met

"if cellule > que " alors que je voulais dire " if cellule.offset(0.2)je me sert donc bien de la reference (address)

voila le code final pour le moment mais j'ai un petit souci avec le vice et versa

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Public Function difftemps() As String
Dim S As Long, H As Long, M As Long
Dim cellule As Range
 
Set cellule = Application.Caller
 
 S = DateDiff("s", cellule.Offset(0, -2), cellule.Offset(0, -1))
 
    H = Int(S / 3600)
    M = Int((S - 3600 * H) / 60)
    S = S - 3600 * H - 60 * M
 
  If Left(cellule.Offset(0, -2).Value, 2) < Left(cellule.Offset(0, 1).Value, 2) Then
    difftemps = H + 24 & ":" & M & ":" & S
Else
difftemps = H + 24 & ":" & M & ":" & S
End If
End Function

et voila selon ton idée

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Public Function difftemps(cel1 As Range, cel2 As Range) As String
Dim S As Long, H As Long, M As Long
 
 S = DateDiff("s", cel1, cel2)
 
    H = Int(S / 3600)
    M = Int((S - 3600 * H) / 60)
    S = S - 3600 * H - 60 * M
 
 
  If Left(cel1, 2) < Left(cel2, 2) Then
    difftemps = H + 24 & ":" & M & ":" & S
Else
difftemps = H + 24 & ":" & M & ":" & S
End If
End Function

au plaisir