[VBA-E] Bug dans la concaténation de String

Version imprimable

Bonjour à tous,
Je cherche un work-around pour un probleme apparaissant dans la concaténation de chaine. Le code suivant construit itérativement une chaine de caracteres. Seul les 255 premiers caracteres sont lu dans le résultat. La mesure de la taille de la chaine retourne pourtant une valeur supérieur (fonction Len). Il semblerait que ce soit dans les operation d'acces a la valeur de la chaine qu'il y un probleme, plus que dans la concatenation elle meme. J'ai essaye d'utiliser Left pour lire la chaine autrement, mais cela ne corrige pas le probleme.

Voici le code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Function SelectDataSeriesFromCategory(columnSerie As Range, selectColumn As Range, value As Variant) As String Dim RetString As String Dim cell As Range first = True For Each cell In columnSerie If (selectColumn.Cells(cell.Row) = value) Then If (first) Then RetString = CellR1C1AdressString(cell) first = False Else RetString = RetString & "," & CellR1C1AdressString(cell) End If End If Next cell SelectDataSeriesFromCategory = Left(RetString, Len(RetString)) End Function Private Function CellR1C1AdressString(cell As Range) As String CellR1C1AdressString = cell.Parent.Name & "R" & cell.Row & "C" & cell.Column End Function
A noter si j'utilise la fonction dans une cellule, le probleme ne se pose pas.
J'aimerai trouver un autre Work around que celui d'utiliser une cellule pour evaluer la fonction (je n'ai pas encore pleinement tester ceci d'ailleurs).

Quelqu'un a t-il déja rencontre ce type de probleme et si oui, existe-t-il une solution ?

En passant, ce sont les premieres lignes de code que j'ecris en VBA pour XL... Pas joyeux...:cry:

En utilisant la fonction Join, cela ne marche pas non plus.

Voila un autre essais... En passant par un array de String et en les concaténant avec la fonction Join. Cela ne fonctionne pas non plus

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function SelectDataSeriesFromCategory(columnSerie As Range, selectColumn As Range, value As Variant) As String
    Dim RetString() As String
    Dim cell As Range
    i = 1
    For Each cell In columnSerie
        If (selectColumn.Cells(cell.Row) = value) Then
            ReDim Preserve RetString(1 To i) As String
            RetString(i) = CellR1C1AdressString(cell)
            i = i + 1
        End If
    Next cell
    Let SelectDataSeriesFromCategory = Join(RetString, ",")
End Function

31/05/2006, 13h14
ThierryAIM

est-il possible que tu ais de caractères nuls dans tes strings ?

Non, elles sont toutes calculés par la fonction :

Code:

1
2
3
Function CellR1C1AdressString(cell As Range) As String
    CellR1C1AdressString = cell.Parent.Name & "R" & cell.Row & "C" & cell.Column
End Function

J'ai remplacé par :

Code:

1
2
3
Function CellR1C1AdressString(cell As Range) As String
    CellR1C1AdressString = "Sheet1!R255C1"
End Function

et j'obtiens toujours la même erreur.

31/05/2006, 14h40
krollkop

Bon, je crois avoir trouvé.

Le débeugueur (Watch) tronque l'affichage de la chaine de caractère.
Le problème était dans l'affectation du résultat de l'appel de la fonction vers :
ActiveChart.SeriesCollection(1).XValues qui n'accepte pas lui de longue expression de définition de Range sous la forme d'une chaine.

D'après mes premiers tests je devrais pouvoir lui affecter un array de valeurs plutôt que la definition du Range.
31/05/2006, 14h42
Theocourant

Bonjour,

Juste une question : dans quel but définis-tu cet ensemble de cellules ?

+

Théo
31/05/2006, 15h15
krollkop

Pour tracer un graphe XYScatter pour montrer la distribution géographique (en coordonnées x, y) d'un ensemble de membre de sous catégorie d'une population.

Je souhaite visualiser chaque membre par un point en aasociant une représentation graphique unique pour chaque membre d'une catégorie.

Pour cela j'ajoute sur le diagramme une série par catégorie. La fonction que je cherche a écrire devait me retourner les adresses des cellules pour chacune des catégories.

Les données sont sous la forme :
X | Y | Catégorie

J'ai plusieurs centaines d'éléments dans la population totale.

C'est bien ce dont j'avais peur. L'affectation d'un array (en runtime) à XValues est limités en nombre d'éléments (44 est visiblement la limite supérieur).

Code:

1
2
3
4
5
6
 
Dim ar(1 To 44) As Integer
    For i = 1 To 44
        ar(i) = i
    Next i
ActiveChart.SeriesCollection(1).Values = ar

Par contre en statique (dans le code) il est possible de monter plus haut. Le code suivant ne lève pas d'erreur.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
    ActiveChart.SeriesCollection(1).Values = _
        Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0, _
        11, 2, 3, 4, 5, 6, 7, 8, 9, 0, _
        21, 2, 3, 4, 5, 6, 7, 8, 9, 0, _
        31, 2, 3, 4, 5, 6, 7, 8, 9, 0, _
        41, 2, 3, 4, 5, 6, 7, 8, 9, 0, _
        51, 2, 3, 4, 5, 6, 7, 8, 9, 0, _
        61, 2, 3, 4, 5, 6, 7, 8, 9, 0, _
        71, 2, 3, 4, 5, 6, 7, 8, 9, 0, _
        81, 2, 3, 4, 5, 6, 7, 8, 9, 0, _
        91, 2, 3, 4, 5, 6, 7, 8, 9, 0)

Cela n'arrange bien évidement pas mes affaires.

31/05/2006, 17h06
krollkop

On parle de ce problème sur le forum ozgrid.
Dump large array into chart

Il propose la solution de copier le contenu de l'array dans un Range d'une Sheet. C'est ce que je ferais.

Merci pour votre aide.
31/05/2006, 17h25
AlainTech

Si ça marche, tu viens nous mettre un petit :resolu: ???
01/06/2006, 11h41
krollkop

Je le mettrais dès que j'aurais codé la solution, et je posterai le code interessant de la solution.