Lecture caractère cellule pour programme

Bonjour à tous,

je vais essayer d'être clair, mais rien n'est moins sur.

Je souhaite que la fonction que j'ai créée fonctionne à l'aide de différentes variables.
Les différentes propositions d'une des variables sont les captions des optionbutton que j'ai mis dans une userform.
La fonction devrait donc prendre une valeur différente selon la variable indiquée. (Mais la pratique s'éloigne parfois de la théorie...)

Pour me faciliter la tache, j'ai décidé de faire ça indirectement en faisant apparaitre le caption de mon optionbutton dans une cellule excel.
La fonction que j'ai créée dépend donc d'une commande "If". Seulement je n'arrive pas à ce que mon programme reconnaisse le mot de la cellule mentionnée précédemment (qui est donc aussi le caption de l'optionbutton et une des variables de la fonction) pour prendre la valeur voulue.

Ce que j'ai essayé (entre autre) :

Code:

---

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

Function Fonction(Nbligne As Integer, CaptionOptbutton As String) As Single Dim i As Integer Fonction = 0 For i = 3 To Nbligne If Worksheets("feuil1").Cells(i, 2) = CaptionOptbutton Then (c'est cette condition que vba ne comprend pas, du moins je pense!) Fonction = Worksheets("feuil1").Cells(i, 3).Value + Fonction Else: Fonction = Fonction End If Next End Function

---

Dans mon programme, j'appelle alors ma fonction en écrivant dans les variables directement le nom qui se trouve dans la cellule (celle qui correspond au caption de mon optionbutton) et le résultat trouvé est systématiquement 0...

Si vous avez compris ce long charabia et que vous avez une idée, je suis toute ouïe.

Bonjour,
Quelle est la finalité de cette fonction que tu nommes Fonction (lui donner un autre nom serait peut-être déjà plus parlant) ?
Tu dis que tu penses que c'est sur la ligne contenant le IF que le problème aurait lieu. Tu penses ou tu es certain ?
En principe le programme s'arrête là où il y a un problème avec la ligne en jaune. Sinon il faut pratiquer le pas à pas (la touche F8).
Placer l'instruction STOP à la première ligne de la fonction et ensuite F8
Tu types les variables Nbligne et i comme des entiers or les lignes dans une feuille Excel excèdent le maximum qu'autorise un entier. Il est préférable de les typer comme Long (Entier long).
Je sais que le problème ne vient pas de là mais il est inutile d'initialiser (Fonction = 0) le nom de la fonction (par défaut sa valeur sera nulle).

En fait je veux faire la somme des montants des cellules affichées à coté des cellules "Guillaume". (C'est le nom d'un des optbutton.)
"Guillaume" n'apparait pas à chaque lignes, je ne peux donc pas faire une simple somme de chaque ligne, il faut que j'arrive à sélectionner les montants qui intéressent Guillaume uniquement.

Je n'ai pas de bug dans mon programme donc pas de ligne surlignée, mais au lieu de m'afficher la somme des montants à cotés des cellules "Guillaume", la cellule affiche 0.

Voici ma fonction plus clairement écrite.

Code:

---

1 2 3 4 5 6 7 8 9 10

Function Somme(Nbligne As Integer, Acheteur As String) As Single 'Acheteur étant la variable que je remplace par guillaume dans le programme   Dim i As Long For i = 3 To Nbligne If Worksheets("feuil1").Cells(i, 2) = "Acheteur" Then Somme = Worksheets("feuil1").Cells(i, 3).Value + Somme Else: Somme = Somme End If Next End Function

---

Bonsoir,
Utiliser comme nom de fonction le nom de la formule SOMME d'excel (version française) n'est pas le meilleur choix.
Manifestement, tu cultives l'ambiguïté des noms "Acheteur"comme valeur pour le nom d'une d'une variable dont le nom est similaire, Fonction pour le nom d'une fonction dans ton premier message etc...
Pour ton information, il existe nativement dans excel une formule nommée SOMME.SI qui peut te donner le même résultat que cette fonction VBA

Code:

---

=SOMME.SI($A$2:$A$50;"Guillaume";$B$2:$B$50)

---

Cette formule donnera la somme des valeurs se trouvant dans la plage B2:B50 à chaque ligne de la plage A2:A50 si la valeur "Guillaume" s'y trouve.
Mais bien entendu, il est également possible par VBA d'utiliser la même fonction avec l'instruction

Code:

---

Application.WorksheetFunction.SumIf

---

Mais j'imagine que le pseudo F.PIGNON est une bonne blague.

Il est vrai que somme n'est pas le meilleur nom pour une fonction. (La première fois j'ai remplacé somme par fonction pour ne pas s'attarder sur ce détail, mais dans mon programme je n'avais pas écris fonction).

Ensuite l'ambiguité que tu soulèves pour acheteur est peut etre le problème de mon programme.

Je veux pouvoir changer de nom en utilisant la même formule.

Voici ce que je tape ensuite dans mon programme:

Code:

---

1 2 3 4 5 6 7 8

Dim Depenseguillaume as Single Dim Depensemartin as Single   Depenseguillaume = Somme(Ligne, Guillaume) Depensemartin = Somme(Ligne, Martin)   Worksheets("Feuil1").Cells(3, 5) = "Guillaume a dépensé " & Depenseguillaume & " €." Worksheets("Feuil1").Cells(3, 5) = "Martin a dépensé " & Depensemartin & " €."

---

J'ai déja essayé de changer ma fonction en :

Code:

---

1 2 3 4 5 6 7 8 9

Function Somme(Nbligne As Long, Acheteur As String) As Single Dim i As Long For i = 3 To Nbligne If Worksheets("Feuil1").Cells(i, 2) = Acheteur Then 'J'ai enlevé les guillemets à acheteur Somme = Worksheets("Feuil1").Cells(i, 3).Value + Somme Else: Somme = Somme End If Next End Function

---

Mais j'ai toujours le même problème.

Je vais essayer avec SumIf, mais j'aimerais beaucoup comprendre ce qui ne va pas dans mon programme...

J'ai résolu mon problème, il me manquait:

Code:

---

Guillaume="Guillaume"

---

Mais j'avoue me considérer comme le François Pignon du vba parfois.