Affichage de résultat

[franckylecake]

Bonjour à tous,

Je suis un débutant en VBA et j'ai une question concernant une fonction. J'appelle une fonction dans une cellule et je voudrais que le résultat de cette foncton s'affiche dans la cellule dans laquelle j'ai utilisé cette fonction.
Merci d'avance 😛

Public Function encours_tréso(C)
Dim L As Long
L = 3
Do While C <> Sheets("Financements").Cells(L, 2)
L = L + 1
Loop
'Le résultat à afficher est Sheets("Financements").Cells(L, 10)
End Function

 

[pierrejean]

Re : Affichage de résultat

bonjour franckylecake

et bienvenue sur XLD

Si j'ai bien compris

Public Function encours_tréso(C)
Dim L As Long
L = 3
Do While C <> Sheets("Financements").Cells(L, 2)
L = L + 1
Loop
'Le résultat à afficher est Sheets("Financements").Cells(L, 10)
[COLOR=red]Function encours_tréso=L
[/COLOR]End Function

le resultat d'une fonction s'affiche toujours dans la cellule ou elle est ecrite

 

[tototiti2008]

Re : Affichage de résultat

Bonjour à tous,

petite correction, je crois que PierreJean a répondu un peu vite :

Public Function encours_tréso(C) [COLOR=red]as long[/COLOR]
Dim L As Long
L = 3
Do While C <> Sheets("Financements").Cells(L, 2)
L = L + 1
Loop
'Le résultat à afficher est Sheets("Financements").Cells(L, 10)
[COLOR=red]encours_tréso=L
[/COLOR]End Function

 

[pierrejean]

Re : Affichage de résultat

Re

Merci Tototi

J'ai eu le copier/coller trop rapide !!!
Et je ne me suis pas relu
cela fait 2 manquements et c'est beaucoup
qu'XLD me pardonne !!

 

[tototiti2008]

Re : Affichage de résultat

je suis persuadé qu'au vu de ton glorieux passé, les dieux du royaume d'XLD sauront se montrer cléments 😉