Discussion :

[Benevole V1]

J'ai créé dans VBA la fonction toute simple suivante dans le but de modifier le contenu d'une cellule dans une feuille Excel en fonction d'un code (Obj) donné par une autre cellule sous forme d'une chaîne de caractère (ex "§10 2 102") et d'une valeur (Ga) donné par une troisième cellule :

Code :

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

1
2
3
4
5
6
7
8
9
10
Function Car(Obj As String, Ga As Byte) As Byte
    Dim Go As Byte
    If Obj = "" Then exit Function
    Go = Split(Obj)(1)
    If Go < Ga Then
        Car = 1
    Else
        Car = 2
    End If
End Function

Cette fonction répond parfaitement à mon attente.
Le problème, c'est qu'elle démarre toute seule lorsqu'une procédure VBA modifie le contenu d'une autre cellule de ma feuille qui n'a pourtant rien à voir avec les trois cellules précédentes.
Je précise que ma fonction est dans le même projet VBA, mais dans un module différent de la procédure dont je viens de parler.
Lorsque la fonction est appelée, la pile des appels me donne l'info <Code non basic> comme lors du déclenchement d'une procédure évènementielle lorsque l'on modifie un contrôle dans un formulaire "Userform" par une procédure VBA.
Je précise encore que j'ai bien vérifié que la suite de caractères "CGr" n'apparaît nulle part dans mon code !

Merci à ceux qui pourraient éclairer ma lanterne ...

[unparia]

Bonjour
Lorsque je lis ceci :

Code :

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

Obj As String, Ga As Byte

Code :

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

Dim Go As String

Code :

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

Go = Split(Obj)(1)

et cela :

Code :

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

If Go < Ga

je me dis qu'il est temps de commencer par l'apprentissage des rudiments.
Ton Split retourne un array de chaînes de caractères, dont GO est le 2ème élément. Ga est un numérique.

Pour info et à tout hasard (puisque l'on ignore le contenu de GO). Si Go est une chaîne de caractères représentant une expression numérique, sa conversion en numérique est nécessaire (par Val ou par cdbl selon que le séparateur décimal est un . ou une ,)

[Benevole V1]

Bon OK, je me suis trompé (ça arrive même aux programmeurs confirmés, je crois).
J'ai rectifié ma fonction : Dim Go As Byte.
Mais ça ne change pas mon problème, la fonction continue d'être lancée chaque fois que VBA change quelque chose sur ma feuille...
J'ai pourtant déjà utilisé des fonction personnalisées que j'avais fabriquées moi-même, mais c'était pour compléter les fonctions standard d'Excel, dans le cadre d'un usage normal du logiciel.
Ici, le développe un programme complexe qui devrait permettre aux utilisateurs de gérer un fichier Excel à travers des "Userform".
Donc mon code VBA intervient sans arrêt dans mes feuilles Excel.
Le but de ma fonction était de mettre automatiquement à jour des données pour simplifier et accélérer les procédures déclenchées par l'utilisateur.
Je me dis que c'est incompatible avec des fonctions personnalisées...
Je vais donc remplacer celle-ci par une routine lancée par VBA lorsque j'ai besoin des données...

Merci quand-même pour la réponse rapide ...

[eriiic]

Bonjour,

J'ai remarqué ça, même sur des fonctions non volatiles. Souvent en travaillant sur un autre classeur.
A part tester d'où est appelée la fonction pour essayer d'éliminer les appels intempestifs (tous ceux hors de la feuille et du classeur attendus) je n'ai pas trouvé de parade.

Code :

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

1
2
3
4
5
6
	'Nom classeur :
	    Application.ThisCell.Parent.Parent.Name
	'Nom feuille :
	    Application.ThisCell.Parent.Name
	'Adresse cellule d'appel :
	    Application.ThisCell.Address

eric

[unparia]

Juste une remarque en passant

J'ai rectifié ma fonction : Dim Go As Byte

j'espère que tu ne t'es pas contenté de modifier le typage (relis-moi).
j'ignore par ailleurs ce que veut montrer cette phrase :

Je précise encore que j'ai bien vérifié que la suite de caractères "CGr" n'apparaît nulle part dans mon code !

(dès lors qu'on ne sait pas pourquoi "CGr", ni ce qu'est Cgr.

[kiki29]

Salut, de la lecture :

• Les fonctions personnelles dans Excel
• FAQ

[Benevole V1]

Juste une remarque en passant

j'espère que tu ne t'es pas contenté de modifier le typage (relis-moi).
j'ignore par ailleurs ce que veut montrer cette phrase :

(dès lors qu'on ne sait pas pourquoi "CGr", ni ce qu'est Cgr.

Bonjour Unparia,

Ben voilà, je me suis encore trompé. Je devais écrire "Car" (le nom de la fonction) au lieu de "CGr".
Quant à ta remarque sur le "typage", je n'ai pas trouvé ce mot au dictionnaire de la langue française mais je suppose que tu veut parler de l'attribution d'un type à une variable.
Comme je l'ai déjà écrit, j'ai supposé que une fonction personnalisée ne faisait pas bon ménage avec une procédure VBA qui agit sur la feuille où la fonction est insérée.
Erilc semble avoir fait le même constat...
J'espérais que ma fonction que j'avais installée dans un paquet de cellule ne réagirait que là ou l'un de ses argument (valeur d'une autre cellule) change.
J'ai donc opté pour une autre solution gérée uniquement par mon programme. Avec cela, je ne prends pas de risque.
J'ai donc décidé de fermer cette discussion pour laisser de la place à des sujets plus intéressants.
Merci à toi, Erilc et kiki29