Lecture caractère cellule pour programme

**Pignon F.** · 04/08/2013, 22h42

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 :

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

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.

**Philippe Tulliez** · 04/08/2013, 23h05

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

**Pignon F.** · 04/08/2013, 23h29

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 :

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

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

**Philippe Tulliez** · 05/08/2013, 01h22

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 :

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

=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 :

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

Application.WorksheetFunction.SumIf

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

**Pignon F.** · 05/08/2013, 10h01

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 :

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

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 :

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

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