paramètre string fonction -> fonctionne pas toujours?!

**francoisvba** · 11/12/2008, 17h10

Bonjour à tous,

Sans transition, voici ma question!

-> J'ai un fichier avec un seul onglet ("feuil1").
-> Dans cet onglet, les cellules F1 à F9 sont (ou non) une à une remplies et c'est tout "l'enjeu" de ma discussion.
-> Je veux concaténer le contenu de ces mêmes cellules dans une autre cellule (A3) uniquement lorsqu'elles sont non vides (de F1 à F9).
Ex : F1 est vide, F3 est vide ainsi que F9 --> je concatène F2, F4, F5, F6, F7, F8 uniquement

Le code que j'ai fait marche SAUF lorsque F1 est vide. Je ne comprends pas la raison. Le voici : (sorti de son contexte et donc simplifié afin d'avoir vos lumières plus rapidement!) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Function ConcatenationLR(ligne As Integer, counter As Integer) As String
 
Dim lignef As Integer
Dim expression As String
Dim counterf As Integer
 
lignef = ligne
counterf = counter
expression = Range("F" & lignef).Value
 
'Test si champs vide
If expression <> "" Then
    ' concaténer valeurs des cellules si non vides
    For m = lignef + 1 To lignef + counterf
        If Range("F" & m) <> "" Then
        expression = expression & ", " & Range("F" & m)
        End If
    Next
Else: Call ConcatenationLR(lignef + 1, counterf - 1)
End If
'test de la valeur d'expression -> prend bien la bonne valeur même quand F1 est vide!
A = MsgBox(expression, vbDefaultButton2)
ConcatenationLR = expression
 
-------------------------------------------------------------------------
End Function
Sub ok()
 
Sheets("Feuil1").Select
'Range("A3").Value ne prend pas la bonne valeur quand F1 est vide.....!
Range("A3").Value = ConcatenationLR(1, 8)
 
End Sub

Voilà, je suis nouveau sur le forum mais crois pourtant beaucoup en lui!

Merci à tous et n'hésitez pas à donner votre avis!

Ciao!

**FcL.Laplace** · 11/12/2008, 17h23

Sans transition, j'apporte une réponse qui me semble correcte :

Code :

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

1
2
3
4
expression = Range("F" & lignef).Value
'Test si champs vide
If expression <> "" Then....

Ce premier test signifie que tu ne fais pas le calcul si Expression est vide.
Or tu as mis dans expression le contenu de F1...

Donc si F1 est vide, pas de calcul. Je pense que retirer ce premier test t'apportera ta réponse.

**francoisvba** · 12/12/2008, 14h28

Bonjour

A votre idée :

Ce premier test signifie que tu ne fais pas le calcul si Expression est vide.
Or tu as mis dans expression le contenu de F1...

Donc si F1 est vide, pas de calcul. Je pense que retirer ce premier test t'apportera ta réponse.

Je réponds que non puisque si F1 est vide, alors on rentre dans le :
Else: Call ConcatenationLR(lignef + 1, counterf - 1)

En fait, le problème c'est que ça marche si je demande d'afficher expression via une boîte de dialogue. Mais quand je demande d'écrire expression dans une cellule (c.f. A3 dans notre cas) ça ne marche pas!

Merci de m'aider!!!

**pgz** · 12/12/2008, 14h43

Bonjour.

Je pense que c'est la structure de ta fonction récursive qui ne va pas. 'Expresion' est une variable locale de la fonction. DOnc à chaque appel, une nouvelle variable est crée. Quand tu reviens dans la fonction appelante expression est la variable initiale (vide) et non pas la variable que tu a renseignée dans la fonction appelée.

Si c'est un exercice sur les fonctions récursives, ça peut s'arranger : passer Expression dans les arguments ByRef de la fonction.

Sinon une méthode itérative pose moins de problème...

PGZ