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

Version imprimable

Voir 40 message(s) de cette discussion en une page

Citation:
Envoyé par pgz
Je crois que tout a été expliqué.
D'ailleurs tu te trompes parce que si tu fais dans ton code initial le changement que je t'ai indiqué cela marche très bien.

EN quelque sorte je te défie;) à mon tour de prouver que le code suivant ne marche pas
Code:

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 34 Dim m As Integer 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: expression = ConcatenationLR(lignef + 1, counterf - 1) End If 'test de la valeur d'expression -> prend bien la bonne valeur même quand F1 est vide! 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
La raison du dysfonctionnement est trouvée. Tous les symptômes sont expliqués. On fait marcher le code en changeant 1 ligne : celle qui pose problème. Je ne vois pas ce que l'on peut faire de plus clair.

PGZ
Exact tu as raison (encore une fois) pgz! Mais je ne comprends vraiment pas parce que mettre expression = .... dans l'appel récursif je l'avais fait et ça ne marchait pas......

Reste un problème majeur : si les cellules de F1 à F9 sont vides alors cela me fait un espace pile insuffisant.... en fait il faudrait que je puisse arrêter le traitement dès que les 9 cellules ont été parcourues.... ce n'est pas le cas jusqu'à présent..... une idée??

Citation:

Envoyé par francoisvba

Reste un problème majeur : si les cellules de F1 à F9 sont vides alors cela me fait un espace pile insuffisant.... en fait il faudrait que je puisse arrêter le traitement dès que les 9 cellules ont été parcourues.... ce n'est pas le cas jusqu'à présent..... une idée??

Il n'y a qu'à demander :
Code:

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 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 If counter < 0 Then Exit Function '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: expression = ConcatenationLR(lignef + 1, counterf - 1) End If 'test de la valeur d'expression -> prend bien la bonne valeur même quand F1 est vide! MsgBox expression, vbDefaultButton2 ConcatenationLR = expression End Function
@Wilfried

Citation:

m'enfin je raconte peut être une bêtise !

Tu sais très bien que tu as raison...

Code:

For i = ligne + 1 To i + nb

engage une boucle jusqu'au dépassement de capacité de i.

re:

la gestion des piles, voici un problème du à la recurcivité
empilage des functions , mais 9 cela me parait peu pour arriver au bout de la pile

voici une autre fonction de concaténation qui concatene à peu pret tout et est utilisable aussi en Formule pour concatener des matrices

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function Matrice_Concatener(valeur As Variant, Optional separator As String = "", Optional vide As Boolean = False) As String
    Dim c As Variant
    Application.Volatile
    For Each c In valeur
        If vide = False Then
            If c > "" Then
                Matrice_Concatener = Matrice_Concatener & c
                If separator > "" Then Matrice_Concatener = Matrice_Concatener & separator
            End If
        Else
            Matrice_Concatener = Matrice_Concatener & c
            If separator > "" Then Matrice_Concatener = Matrice_Concatener & separator
        End If
    Next
    If separator > "" And Matrice_Concatener > "" Then Matrice_Concatener = Left(Matrice_Concatener, Len(Matrice_Concatener) - Len(separator))
End Function

utilisation :

Code:

expression = Matrice_Concatener(Range("F1:F9"),",")

aucun problème de récurcivité

Citation:
Envoyé par pgz
Il n'y a qu'à demander :
Code:

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 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 If counter < 0 Then Exit Function '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: expression = ConcatenationLR(lignef + 1, counterf - 1) End If 'test de la valeur d'expression -> prend bien la bonne valeur même quand F1 est vide! MsgBox expression, vbDefaultButton2 ConcatenationLR = expression End Function
@Wilfried
Tu sais très bien que tu as raison...

Code:

For i = ligne + 1 To i + nb

engage une boucle jusqu'au dépassement de capacité de i.
Bon.... Merci pgz j'étais en train de poster la même chose haha! Par contre j'ai mis counterf < 0 et non counter (je ne sais pas si ça change grand chose.... En tout cas un grand merci à toi pgz car ce petit programme vient s'inscrire dans un truc bien plus long et lourd....

12/12/2008, 18h08
francoisvba

Ca faisait un bout de temps que je n'avais pas codé. Je n'ai codé qu'en C de toute ma vie (aussi html, sql mais bon ce n'est pas la même chose....).

Donc là je me suis mis au vba par nécessité pour le boulot...

UN GRAND MERCI pgz! Vraiment merci tu m'as ouvert les yeux alors que la solution était devant mon nez..... :bug:
Merci à tous les autres bien sûr également!

Très bon week-end à vous tous et peut-être à bientôt!
Françoisvba

Voir 40 message(s) de cette discussion en une page