VBA - Problème lors de la création d'une nouvelle fonction

Bonjour à toutes et à tous,

nouvellement employé au sein d'une association en tant qu'administrateur de bases de données, mon premier axe de travail concerne l'harmonisation des méthodes de travail de mes collègues.

Dans ce cadre, et afin de leur rendre mes "exigences" plus faciles à digérer, je planche sur la création d'une nouvelle fonction à intégrer dans leurs travaux pour être sûr du bon remplissage d'un champs (pour moi) et leur éviter une charge de travail supplémentaire.

Novice en matière de programmation VBA, j'ai suivi plusieurs tutoriels trouvés sur ce site et d'autres afin de mettre au point ma fonction et de m'assurer de pouvoir la partager (passage par le .xla, ...).

Venons en à mon problème :

Ma fonction doit récupérer pour chaque entrée trois valeurs de champs grâce au code "ActiveSheet.UsedRange.Cells(x, x)".

Ensuite, ces trois valeurs sont comparées à des "seuils" propres à chacune à l'aide d'un code de comparaison basique "If / Then / Elseif / ...".

Quand le bon critère est rempli, je demande à la fonction d'attribuer un code à la cellule active, de A à F suivant le critère rempli avec le code "ActiveCell.Value = "x" ".

Lors de l'utilisation de la formule sur un classeur "test", aucun message d'erreur ne m'est renvoyé mais la cellule se remplit invariablement d'un "0". Je n'ai donc pas fait d'erreur en codant, mais ma formule ne fonctionne pas.

Pour moi, le problème peut venir de deux points :

- la récupération des valeurs ne fonctionne pas en raison d'un mauvais choix de code

- l'écriture du code attribué pose problème, mais là je ne vois pas pourquoi.

Une troisième possibilité serait que l'erreur soit dans mes comparaisons, mais je n'ai utilisé que du "=" ou du ">=", donc je ne pense pas que le problème vienne de là.

Voilà, je tiens à vous remercier d'avance de vous intéresser à mon petit problème et vous souhaite une bonne journée à tous.

Simon

bonjour,

le bouton : http://www.developpez.net/forums/images/editor/code.gif au dessus de la zone d'édition du forum devrais te permettre de mettre entre balise de code : [Code] [/Code] la petite partie de ton code concernant ton problème et que tu vas rajouté à la suite de cette discussion ...

sinon pour le peu de code que tu as poster dans la plupart des cas mieux vaux spécifié explicitement la feuille concernée qu'utiliser l'objet ActiveSheet suivant source de bug..(car dépendant des manipulations de l'opérateur)

Merci bbil de cette réponse rapide.

Concernant le code, voilà je pense la source du problème :

Code:

---

1 2 3 4 5

Function Classif(stot1, stot2, stot2)   stot1 = ActiveSheet.UsedRange.Cells(2, 6) stot2 = ActiveSheet.UsedRange.Cells(2, 13) stot3 = ActiveSheet.UsedRange.Cells(2, 17)

---

Je ne sais pas si je peux changer le "ActiveSheet" du fait justement que le principe est de mettre à disposition cette fonction des autres utilisateurs et que je ne suis malheureusement pas à l'abri qu'un(e) collègue ait nommé sa feuille de façon totalement extravagante. Néanmoins, je teste ça de suite sur mon propre poste au moins pour être fixé.

Je ne savais pas si mettre mon petit code en entier ici pouvait être intéressant, mais apparemment oui donc le voilà :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Function Classif(stot1, stot2, stot2)   stot1 = ActiveSheet.UsedRange.Cells(2, 6) stot2 = ActiveSheet.UsedRange.Cells(2, 13) stot3 = ActiveSheet.UsedRange.Cells(2, 17)   If stot1 >= 5 and (stot2>=5 or (4>=stot2>=2 and stot3>=2)) Then ActiveCell.Value = "A" Elseif stot1>=5 and (1>=stot2 or (4>=stot2>=2 and 1>=stot3)) Then ActiveCell.Value = "B" Elseif 4 >= stot1 >= 2 and (stot2>=5 or (4>=stot2>=2 and stot3>=2)) Then ActiveCell.Value = "C" Elseif 4 >= stot1 >= 2 and (1>=stot2 or (4>=stot2>=2 and 1>=stot3)) Then ActiveCell.Value = "D" Elseif 1 >= stot1 and (stot2>=5 or (4>=stot2>=2 and stot3>=2)) Then ActiveCell.Value = "E" Elseif 1 >= stot1 and (1>=stot2 or (4>=stot2>=2 and 1>=stot3)) Then ActiveCell.Value = "F" End If   End Function

---

Toujours, pas clair ..

c'est quoi ces paramètres ?

tu définit 3 paramètres à ta fonction mais tu les modifies dés la première ligne de code ..!!!

comment appelle tu ta fonction ? montre la ligne de code VBA ou la formule ?

bonjour Bbil,

c'est la première fois que je vois la formulation ci-dessous dans Excel.

Code:

---

4 >= stot1 >= 2

---

Pour ma gouverne : VBA est-il vraiment capable de l'interpréter ?

cordialement.

Citation:

---

Envoyé par nibledispo

bonjour Bbil,

c'est la première fois que je vois la formulation ci-dessous dans Excel.

Code:

---

4 >= stot1 >= 2

---

Pour ma gouverne : VBA est-il vraiment capable de l'interpréter ?

cordialement.

---

non ... cela s'écrit :

Code:

---

(4 >= stot1) And (stot1 >= 2)

---

Je reprend depuis le début mon raisonnement :

- Je crée une fonction Classif qui renvoie une lettre, donc un string et qui nécessite 3 entiers

Code:

---

Function Classif(stot1 as Integer, stot2 as Integer, stot3 as Integer) as String

---

- je définis la valeurs de ces entiers en demandant à la fonction d'aller les chercher dans 3 cellules

Code:

---

1 2 3

stot1 = ActiveSheet.UsedRange.Cells(2, 6) stot2 = ActiveSheet.UsedRange.Cells(2, 13) stot3 = ActiveSheet.UsedRange.Cells(2, 17)

---

- Je fais ma chaîne de vérification, en modifiant donc la formulation (merci déjà pour cette erreur)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

If stot1 >= 5 and (stot2>=5 or ((4>=stot2) And (stot2>=2) and stot3>=2)) Then ActiveCell.Value = "A" Elseif stot1>=5 and (1>=stot2 or ((4>=stot2) And (stot2>=2) and 1>=stot3)) Then ActiveCell.Value = "B" Elseif (4 >= stot1) and (stot1 >= 2) and (stot2>=5 or ((4>=stot2) And (stot2>=2) and stot3>=2)) Then ActiveCell.Value = "C" Elseif (4 >= stot1) and (stot1 >= 2) and (1>=stot2 or ((4>=stot2) And (stot2>=2) and 1>=stot3)) Then ActiveCell.Value = "D" Elseif 1 >= stot1 and (stot2>=5 or ((4>=stot2) And (stot2>=2) and stot3>=2)) Then ActiveCell.Value = "E" Elseif 1 >= stot1 and (1>=stot2 or ((4>=stot2) And (stot2>=2) and 1>=stot3)) Then ActiveCell.Value = "F"

---

- Je sors de la comparaison et je met fin à la fonction.

Edit : j'avais effectivement oublié d'appeler la fonction, je modifie donc "ActiveCell.Value" par "Classif", et ça fonctionne !

Merci à vous, il ne me reste plus qu'à modifié la définition pour que la comparaison se fasse toujours avec le même champs mais selon le numéro de ligne et ça sera tout bon.

Encore merci !