Discussion :

[Barjabulle]

Bonjour!

Je voudrais écrire une fonction (f1) qui prenne en argument la référence à une cellule et qui soit ensuite appelée dans une autre fonction (f2) en tant qu'argument.
Le pb que je rencontre c que je n'arrive pas réutiliser cette cellule dans la fonction f2 car je ne sais pas si je doit déclarer cette cellule comme un objet Range, ou en tant que chaîne de caractère (référence) . En gros, la fonction f2 doit pouvoir utiliser cette cellule car je voudrais me déplacer dans les cellules voisines. Il faut absolument que je passe en argument une référence à une cellule car je manipule des formules de maths derrière.

Pouvez-vous m'aider svp?

Merci de votre aide.

[ouskel'n'or]

Montre ce que tu as fait, ça aidera à résoudre ton pb

[AlainTech]

Il vaut toujours mieux utiliser un objet qu'une string permettant de le retrouver.

[ouskel'n'or]

J'essaie de décortiquer ton problème comme tu le ferais pour un problème de math

Je voudrais écrire une fonction (f1) qui prenne en argument la référence à une cellule

L'adresse de la cellule ?

qui soit ensuite appelée dans une autre fonction (f2)

La cellule ou la fonction ? Je suppose "la fonction"

en tant qu'argument.

Non, ce doit être la cellule. Non, on appelle pas une cellule, on la lit, donc la fonction.

Le pb que je rencontre c que je n'arrive pas réutiliser cette cellule

Bon, alors c'est la valeur de la cellulequi t'intéresse.

dans la fonction f2

C'est clair

car je ne sais pas si je doit déclarer cette cellule comme un objet Range, ou en tant que chaîne de caractère (référence)

Donc, l'adresse de la cellule...
Et là, j'ai oublié le début
Désolé, mais si tu pouvais reformuler, on pourrait t'aider.
Donc, à tout hasard

Code :

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

1
2
3
4
Set LaCellule = ActiveSheet.Range("A1")
LaCellule.Value = 25
LaValeur = LaCellule.value
msgbox LaValeur

A+

Edit
Mais tu ne pourras pas passer LaCellule en argument mais LaCellule.address... ou .value

[Barjabulle]

Bonjour

Tout d'abord, merci de vos réponses.
Je vais reformuler ce que je veux faire, cela vous aidera à comprendre ma démarche.
1.Je manipule une feuille de calcul excel, dans laquelle je commence par écrire dans la première cellule une formule qui appelle une fonction f1 en VB. Cette fonction f1 prend en argument l'adresse (ou référence) de la cellule courante.
2.Cette fonction f1 effectue un certain nombre de calculs... et appelle une fonction f2 dans son code, qui elle va utiliser l'adresse de la cellule que j'avais passée en argument à f1. La fonction f2 utilise en faite cette adresse de cellule pour ajouter des résultats de calculs dans les cellules voisines (à la cellule passée en argument).
3. Je fais ensuite un autofill que me remplit la formule écrite en 1. à toute la colonne.

En résumé, lorsque mon code s'exécute dans l'ordre:
J'écris la formule dans la première cellule appellant la fonction f1; f1 appelle à son tour la fonction f2. Le autofill que j'ai fait m'assure qu'il va me faire cela sur toutes les cellules de ma colonne.


Code simplifié:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Initialisation()
 
' Ecriture de la formule dans la première cellule
MaFeuille.Range("A1") = "Prime de l'option"
Range("A2").Select
ActiveCell.Formula = "=f1('$A2 ')"
 
 
'Remplissage des formules dans toute la colonne
 
Dim fin As String
Dim MonTab() As String
Dim MaPlagePremium As Range
 
Range("A1").Select
Selection.End(xlDown).Select
 
fin = ActiveCell.Address
MonTab = Split(fin, "$")
 
Set MaPlagePremium = ActiveSheet.Range("A3:S" & MonTab(2))
MaPlagePremium.Formula = MaPlagePremium.Cells(1).Formula
 
End sub
 
Function f1(cellule as Range)
Dim delta
....
....
delta=...
f2(cellule, delta)
End Function 
 
Function f2(cellule As Range, Valeur as Double)
cellule.Select
ActiveCell.Offset(0, 1).Value = Valeur
End Sub

N'hésitez pas si vous avez des questions.

Merci de votre aide.

[SfJ5Rpw8]

pour résumer tu veux qu'en plaçant une fonction dans une cellule... sur modification des valeurs en paramétres de cette cellule .. non seulement celle-ci si soit modifier mais aussi une autre cellule donnée en paramétre de la fonction... !
pour ma part j'en étais resté sur le fait qu'une fonction appellé dans une cellule excel ne pouvais agir que sur le résultat retourné.. et en aucun cas sur autre chose... ( autre cellule...msgbox....) ..

je crois que la solution à ton probléme et l'utilisation des procédure évenementielle ... (Worksheet_change...)

[Barjabulle]

Salut Bbil,

Non c pas cela mon pb: je ne cherche pas répercuter une modification des valeurs de ma cellule sur mes autres cellules. Ce que je veux faire c'est que je parcoure une colone excel; dans chaque cellule de cette colonne, j'appelle une fonction f1, qui va prendre en argument l'adresse de cette cellule, qui à son tour sera passée en argument d'une fonction f2.

Par exemple, visuellement,
colomne A colomne B
1 =f1($A1)
2 =f2($A2)
3 =f1($A3)
...

f1($A1) va appeler f2 qui va afficher un résultat dans $B1.
f2($A2) va appeler f2 qui va afficher un résultat dans $B2.
etc...

Le pb que je rencontre c que quand je transmet $A1 à f2 en argument, VB renvoie #VALEUR dand $B1 .
Voilà, j'espère que cela va vous aider.

A bientôt.

[SfJ5Rpw8]

Salut Bbil,

Non c pas cela mon pb: je ne cherche pas répercuter une modification des valeurs de ma cellule ,(....)
f1($A1) va appeler f2 qui va afficher un résultat dans $B1.
(...)

c'est bien "qu'est ce je dis" tu veux mettre en A1 une formule qui doit modifier le contenu de la cellule B1 ..!

[Barjabulle]

Salut Bbil,

Autant pour moi. Tu as compris mon pb.
Je vois la solution que tu me proposes mais je sais pas comment la mettre en oeuvre.

@+.

[ouskel'n'or]

Une indication :
Si tu sélectionnes une cellule, par soft ou manuellement, tu peux mettre du code dans la feuille de code de la feuille de calcul
Donc si tu fais par soft
LaCellule.select, si tu as une macro qui repère la cellule sélectionnée, dans la feuille de code de la feuille de calcul, tu peux générer une action.
Est-ce que ça t'ouvre des horizons ?
Tu dis

[Barjabulle]

Re salut,

Voici le code de ma fonction Initialisation ()

Code :

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

1
2
3
4
5
6
Sub initialiser ()
Range("A2").Select
  
(*)  ActiveCell.FormulaR1C1 = "=f1(RC19)"

End Sub

Ma question: quel doit être le prototype de ma fonction f1?

Function f1(cellule as Range)? -> ça ne marche pas! Je crois qu'il ne comprend pas ce que c'est que RC19 dans f1.
Function f1(cellule as String)? en modifiant alors la ligne (*) par
ActiveCell.FormulaR1C1 = "=f1(ActiveCell.Adress)" -> ça ne marche pas! Error 2029.
Function f1(cellule as Variant)? -> ça ne marche pas non plus! Error 2009.

Je sais plus quoi faire.

[SfJ5Rpw8]

change le nom de ta fonction ... fct1 par exemple...

[ouskel'n'or]

Pas

ActiveCell.FormulaR1C1 = "=f1(ActiveCell.Adress)"

mais

Code :

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

ActiveCell.Formula = "=f1(" & ActiveCell.Address & ")"

pas testé mais sinon, utilise une variable pour ActiveCell.Address
Tu dis

NB - Pour utiliser FormulaR1C1, tu dois indique Row+NoLigneColonne+NoColonne -> R5C3
Avec formulaLocal, tu peux mettre ta formule en français
Avec formula tu insères un string et bbil te dira comment elle doit être validée pour fonctionner (il a dit ça il y a quelques jours mais j'ai oubli

[Barjabulle]

Ok pour ActiveCell.Address. C'est juste une petite coquille.
J'ai effectivement testé avec une variable mais ça ne marche pas non plus.

Une petire remarque: quand le lance la fenêtre variable locales avec la première solution (ie je passe en argument RC19 dans la fonction f1) la colonne valeur est vide. Autrement dit, l'argument RC19 est "vide" qd f1 s'execute.

[SfJ5Rpw8]

change le nom de ta fonction ... fct1 par exemple...

[ouskel'n'or]

Pour utiliser ActiveCell.Address, il n'y a pas qu'un d à ajouter, tu dois l'écrire

Code :

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

"=f1(" & ActiveCell.Address & ")"

[Barjabulle]

Oui je sais, j'ai essayé ça déjà mais ça ne résout pas mon pb.
Ah il est corriace ce pb!

[ouskel'n'or]

Bon j'ai fait ce que tu as dit :
Dans un module, tu mets ces deux procédures

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
Sub Initialisation()
 
' Ecriture de la formule dans la première cellule
Set MaFeuille = ActiveWorkbook.Sheets("Feuil1")
MaFeuille.Select
MaFeuille.Range("A1") = "Prime de l'option"
MaFeuille.Range("A2").Select
 
End Sub
 
Function fct1(Adresse As Range)
    '...
    '...
    'ftc1 = ......
End Function

dans la feuille de code de la feuille de calculs, tu mets

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$2" Then
        ActiveCell.Formula = "=fct1($A19)"
    End If
End Sub

Tu obtiens bien "=fct1($A19)" dans A2

Maintenant, dans ta fonction, tu mets ce que tu veux.
Moi, je n'obtiens rien ou zéro ou #VALEUR# comme si la fonction ne ... fonctionnait pas
Ce qui me rassure c'est #VALEUR# qui signifie qu'on passe bien par la fonction
A toi...