Discussion :

[dimitrios]

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

[SfJ5Rpw8]

ben c'est quoi ta fonction ..?

[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

[SfJ5Rpw8]

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

[dimitrios]

Voila la fonction

Code :

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

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

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

[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

[mortalino]

Salut,

dans

Code :

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

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 :

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

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

@++