Discussion :

[BoromSikim]

Bonjour,

Soit un fichier Tester_Fonction.xlsm vierge.

Dans Feuil1, je dispose d’un tableau (LISTOBJECT) nommé SEMAINE
De A1 à A8 - - > Num_Jour ,1, 2, 3, 4, 5, 6, 7
De B1 à B8 - - > Jour, Lundi, Mardi, Mercredi, Jeudi, Vendredi, Samedi, Dimanche
A1 et B1 sont les titres.

J’ai créé une fonction utilisateur qui ramène le nom du jour en fonction du N° de jour passé en paramètre :

Code :

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

1
2
3
4
Public Function Jsem(Jour) As String
    On Error Resume Next
    Jsem = Application.WorksheetFunction.VLookup(Jour, Range("Semaine"), 2, False)
End Function

En G5, je saisis donc : =jsem(5) et c’est bien VENDREDI qui s’affiche.

Si je modifie B6 (qui contient Vendredi) en saisissant Friday par exemple, rien en se passe. G5 reste à Vendredi. F9 et Maj+F9 n’ont aucun effet.

J’ai googleisé mon soucis et j’ai trouvé la solution : Application.volatile.

Je modifie ma fonction en :

Code :

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

1
2
3
4
5
Public Function Jsem(Jour) As String
    Application.volatile
    On Error Resume Next
    Jsem = Application.WorksheetFunction.VLookup(Jour, Range("Semaine"), 2, False)
End Function

Le comportement de la fonction est OK. Quand je change une valeur dans mon tableau SEMAINE, le contenu de G5 est bien modifié. Je suis content.

Là où ça pose problème, c’est quand, mon fichier tester_fonction étant ouvert, je crée par exemple un autre tableau (Fichier-Nouveau-Nouveau Classeur) et que j’en modifie une cellule.

Quand je reviens sur TESTER_FONCTION, G5 est vide. Pour ré afficher, je dois faire F9.

Le comportement est identique si j'ouvre un classeur déjà enregistré.

Pouvez-vous m’aider à résoudre ce soucis ?

Merci d'avance.

[Nako_lito]

tu utilise des références relatives, il faut que utilise des références absolues pour appeler tes classeurs, feuilles ou cellules

par exemple, activeworkbook dépend de quel classeur est actif, si tu travaille sur plusieur fichiers en meme temps, ça peu etre très problématique

A la place, il faut utiliser "thisworkbook" qui ciblera le classeur depuis lequel le code est appelé.

Il en est de meme avec les range.
Si tu appele la range "A1" par exemple, il va prendre celle qu'il a sur le classeur en cours d'utilisation sur la feuille en cours d'utilisation

alors que si tu mets "thisworkbook.sheet(1).range ("A1"), il ne fera pas "d'erreur" de référencement.

[Marc-L]

Bonjour.

Il en est de meme avec les range.
Si tu appele la range "A1" par exemple, il va prendre celle qu'il a sur le classeur en cours d'utilisation sur la feuille en cours d'utilisation

Oui sauf si le code est situé dans le module d'une feuille de calculs : dans ce cas,
ce n'est plus la feuille active par défaut mais la feuille de calculs dans laquelle se trouve le code,
même si un autre classeur est actif …

[78chris]

Bonjour

Si Nako-Lito et Marc_L ont raison, je pense que le problème vient de Range("Semaine") associé à la fonction VLOOKUP.


Pas idéal pour une fonction personnalisée : il serait plus logique de gérer les 7 jours dans le code de la fonction que de se référer à une plage du classeur.

Sinon préciser Thisworkbook.Range("Semaine") devrait améliorer mais sans garantie.

[Nako_lito]

exact,

si il veut utiliser thisworkbook.range("semaine"), il doit s'assurer qu'elle existe avant de l'appeler, sinon excel va lui péter à la face

[78chris]

Re

exact,

si il veut utiliser thisworkbook.range("semaine"), il doit s'assurer qu'elle existe avant de l'appeler, sinon excel va lui péter à la face

Oubli de ma part il faut préciser la feuille

Code :

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

ThisWorkbook.Worksheets("NomFeuille").range("semaine")

Le but, sauf erreur de ma part n'est pas d'appliquer la fonction à d'autre classeurs mais d'éviter la perte du résultat et thisworkbook limite au classeur qui contient le code ce qui est bien la question...

[Nako_lito]

tu peux aussi retrouver le classeur voulu avec :

workbooks("leNomDeMonClasseur").sheets(1).Range("A1")

ou

workbooks(variable).sheets(x).Range(maRange)