Discussion :

[francoisvba]

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 :

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
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??

[pgz]

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 :

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

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

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

Code :

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

For i = ligne + 1 To i + nb

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

[wilfried_42]

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 :

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

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

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

aucun problème de récurcivité

[francoisvba]

Il n'y a qu'à demander :

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

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

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

[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.....
Merci à tous les autres bien sûr également!

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