Discussion :

[Aurelangelo]

Bonjour les internautes,

Je rencontre une petite difficulté au niveau de mon script VBA qui a pour but de créer une série de graphiques en fonction du nombre de mesures que contient le fichier texte.

Mon soucis est que je souhaite faire mes propres sélections pour éditer mes graphiques puisque la colonne 'Temps' est tout le temps utilisée. Pour ceci, je concatène des éléments pour obtenir une chaîne de caractères de la forme "C:C,E:E" par exemple. La variable maSelection contient bien l'exemple donné précédemment.
Ensuite je souhaite donc sélectionner ces colonnes en faisant Range(maSelection).Select ou Columns(maSelection).Select pour éditer mon graphique.

Cependant, Range(maSelection).Select ou Columns(maSelection).Select donnent une erreur et me sortent de mon programme. Avez-vous une autre méthode pour la sélection de mes colonnes via une chaîne de caractères???

Merci pour votre aide,

Aurelangelo

[PUARAI]

Donne moi un exemple

[Aurelangelo]

Exemple :

J'ai un fichier texte qui comporte des données sur 5 colonnes et je veux effectuer un graphique en utilisant la colonne C (pour les x) et E (pour les y).
Donc, je dois en effet sélectionner ces deux colonnes pour pouvoir éditer mon graphique ce qui doit donner quelques choses du genre :

Code :

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

1
2
3
 
xl.Columns("C:C,E:E"). select ' pour la sélection des colonnes
xl.Charts.Add ' pour créer le graphique qui n'est pas un problème

Cependant pour effectuer la chaine "B:B,D:D", j'utilise un script me permettant de la créer puisque mon fichier peut contenir plus de 5 colonnes (et donc plus de mesures) et la colonne B reste la colonne utilisée pour les abscisses. Donc je pourrais très bien avoir dans ma chaîne de caractères "B:C,D:D" ou "C:C,E:E" ou "C:C,..."
Pour faire ceci je construis ma chaîne de la manière suivante :

Code :

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

1
2
3
4
 
Dim selection as String
selection = "C:C," & Chr(Asc("A") + (numCol - 1)) & ":" & Chr(Asc("A") + (numCol - 1))    ' la chaîne contient bien un des exemples ci-dessus
xl.Columns(selection).Select ' sélection des colonnes déterminer par la chaîne ci dessus

Cependant, mon programme plante toujours au niveau du columns car il ne doit pas accepter ma chaîne selection. Alors si vous avez une idée, je suis totalement preneur ! merci

[aalex_38]

Bonjour,

Selection n'est-il pas un mot réservé pour VBA ?

[Aurelangelo]

J'ai changé selection en maPlage et j'obtiens le même problème donc ce n'était pas une soucis ...

[aalex_38]

Quand j'exécute ton code, j'ai dans selection :

"C:C,@:@"

Que veux tu obtenir comme plage ?