Discussion :

[krollkop]

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 :

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

[krollkop]

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 :

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

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

[ThierryAIM]

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

[krollkop]

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

Code :

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

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 :

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

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

et j'obtiens toujours la même erreur.

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

[Theocourant]

Bonjour,

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

+

Théo

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