[VBA-E]données d'une cellule, utilisant une fonction créée, non mise à jour

Version imprimable

15/01/2007, 16h41
dimitrios

[VBA-E]données d'une cellule, utilisant une fonction créée, non mise à jour

Bonjour à tous

J'ai un petit problème, j'ai créer une fonction que j'utilise dans des cellules d'un classeur Excel.

A coté de ca j'ai une macro qui recupere des données d'un autre classeur

Le probleme, est que lorsque je met a jour mes données grace à ma macro, les cellules contenant la fonction ne se mettent pas a jour, pour cel je suis obligé de rentrer dans chacune des cellules pour que les données soient mises a jour.

Par avance merci
15/01/2007, 17h11
SfJ5Rpw8

ben c'est quoi ta fonction ..?
15/01/2007, 17h14
dimitrios

c'est une fonction que j'ai créée

elle permet de recuperer un montant dans un tableau qui est alimenter par la macro
15/01/2007, 17h32
SfJ5Rpw8

Citation:

Envoyé par dimitrios

c'est une fonction que j'ai créée

elle permet de recuperer un montant dans un tableau qui est alimenter par la macro

cela tu nous l'avais déjà dis ... mais montre nous comment est déclarée cette fonction , quels sont ces paramétres .. et les liens entre ces paramétres et les données modifiées...

Voila la fonction

Code:

1
2
3
4
5
6
7
8
9
10
Public Function DerniereCelluleVide(Colonne As Integer, Onglet As String, DécalageLigne As Integer) As Double
Dim Compteur As Integer, j As Integer, Ligne As Integer
For j = 0 To 35
    If Worksheets(Onglet).Cells(j + 5, 3).Value <> "" Then
        Compteur = Compteur + 1
    End If
Next j
Ligne = Compteur + DécalageLigne
DerniereCelluleVide = Worksheets(Onglet).Cells(Ligne + 4, Colonne).Value
End Function

15/01/2007, 17h37
SfJ5Rpw8

et tu l'appelle comment cette fonction ..?

si c'est par une formule dans une feuille excel ... "re-pense" ta fonction en lui donnat comme paramétre un "range" ( une plage de cellule) , la colonne surveillée, à la place des paramétres Numéro de colonne et onglet...
15/01/2007, 17h40
dimitrios

Dans une cellule

=DerniereCelluleVide(5;"Encaissements";0)
ce qui veut dire qu'il va chercher le le montant correspondant dans l'onglet Encaissements, à la colonne 5 sans décalage de ligne
15/01/2007, 18h18
mortalino

Salut,

dans

Code:

Public Function DerniereCelluleVide(Colonne As Integer, Onglet As String, DécalageLigne ...

Il faut des ByVal. Si il n'y a rien, c'est ByRef par défaut :

Code:

Public Function DerniereCelluleVide(ByVal Colonne As Integer, ByVal Onglet As String, ByVal DécalageLigne As Integer) As Double

@++