[VBA] Convertir une chaine en Range pour une sélection de colonnes

Version imprimable

08/04/2009, 16h40
Aurelangelo

[VBA] Convertir une chaine en Range pour une sélection de colonnes

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
08/04/2009, 19h06
PUARAI

Donne moi un exemple

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:

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:

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

09/04/2009, 09h16
aalex_38

Bonjour,

Selection n'est-il pas un mot réservé pour VBA ?
09/04/2009, 09h22
Aurelangelo

J'ai changé selection en maPlage et j'obtiens le même problème donc ce n'était pas une soucis ...
09/04/2009, 09h38
aalex_38

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

"C:C,@:@"

Que veux tu obtenir comme plage ?
09/04/2009, 09h43
Aurelangelo

ça doit être normal si tu as pas un numéro à numCol.
Mais numCol=4 et tu verras normalement tu auras la même chose que moi.

Et en remplaçant column par Range
Perso je n'arrive pas a sélectionner plusieurs colonne avec column mais range ca marche très bien

En faisant ceci je créé mon graphique sans problème (la création du graphique vien de l'enregistreur de macro c'est un bordel monstre mon fichier test :roll:)
Code:

1 2 3 4 5 6 numCol = 5 Charts.Add ActiveChart.ChartType = xlXYScatter ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range("C:C," & Chr(Asc("A") + (numCol - 1)) & ":" & Chr(Asc("A") + (numCol - 1))), PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil2"

09/04/2009, 10h09
Aurelangelo

je comprends vraiment pas puisque je viens de faire la même chose et ça ne fonctionne pas du tout !
Par contre si je fais un test : Range("C:D") et bien là ça fonctionne parfaitement :s
09/04/2009, 10h13
aalex_38

Pour selectionner les colonnes la syntaxe :

Code:

Columns("C:D")

Citation:

Mais numCol=4 et tu verras normalement tu auras la même chose que moi.

Oups, tu as raison :oops:
09/04/2009, 10h15
Krovax

Qu'est ce qui ne fonctionne pas du tout?
Ou est l'erreur?
Au hasard (j'ai pas trop le choix) je dirais que tu n'as pas d'onglet appelé feuil2
09/04/2009, 10h22
Aurelangelo

je récupère le titre de mon onglet et donc je remplace ton feuil2 par ma variable titre

et je sais que mon partie graphique fonctionne puisque j'ai essayé en mettant range(C:D) et des que j'essaie avec ma nouvelle formule ça ne marche pas

Si range(C:E) fonctionne remplacon le Range(C:C;E:E) par Range(C:E) (D n'est pas un bon exemple :D)
Code:

1 2 3 4 5 6 numCol = 5 Charts.Add ActiveChart.ChartType = xlXYScatter ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range("C:" & Chr(Asc("A") + (numCol - 1))), PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil2"
Si ca ne marche pas je ne pourais pas t'aider d'avantage vu que ce code fonctionne très bien chez moi :?

09/04/2009, 10h39
Aurelangelo

Le range(C:E) n'est pas possible car il va prendre les 3 colonnes en compte et donc faire deux courbes sur le même graphique. Je ne souhaite qu'une courbe par graphique. Merci tout de même pour le coup de main quand même
09/04/2009, 10h48
aalex_38

Citation:

Si range(C:E) fonctionne remplacon le Range(C:C;E:E) par Range(C:E) (D n'est pas un bon exemple )

Je crois que ce n'était qu'une blague :lol::lol::lol::lol::lol::lol::lol::lol: :D

Les deux points et le D dans les citations donnent un smiley.

En adaptant le code de Krovax, tout devrait fonctionner. :lol:
09/04/2009, 10h56
Aurelangelo

j'avais compris (pour le smileys) mais son code fonctionne mais il ne fait pas ce que je veux. Puisque dans son code, il peut englober plusieurs colonnes donc plusieurs courbes sur un même graphique et j'en souhaite une seule.

enfin bon si tu veux sélectionner la colonne C et E et pas la D et bien la je suis bloqué

Ce que je ne comprend pas c'est pourquoi celui là
Code:

1 2 3 4 5 6 numCol = 5 Charts.Add ActiveChart.ChartType = xlXYScatter ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range("C:C," & Chr(Asc("A") + (numCol - 1)) & ":" & Chr(Asc("A") + (numCol - 1))), PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil2"
ne marche pas
Chez moi il prend bien la colonne C et la colonne E uniquement

ca serais possible d'avoir tout ton code de création de graph stp

ps j'ai beaucoup aimé le Chr(Asc("A") + (numCol - 1)). Jolie trouvaille :king:

Voici le code qui bug :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub graphique(ByVal numCol As Integer)
'
    With xl
 
        Dim selection As String
        ' selection me permet de faire un point de vérif en mode pas à pas
         selection = "C:C," & Chr(Asc("A") + (numCol - 1)) & ":" & Chr(Asc("A") + (numCol - 1))
         duree = 1.2 * .Cells(4, 4).Value
         titre = .ActiveSheet.Name
         '.Range("C:D").EntireColumn.Select
         '.Columns(selection).Select
         .Charts.Add
         .ActiveChart.ChartType = xlXYScatterSmooth
         .ActiveChart.SetSourceData Source:=.Sheets(titre).Range("C:C," & Chr(Asc("A") + (numCol - 1)) & ":" & Chr(Asc("A") + (numCol - 1))), PlotBy:=xlColumns
         .ActiveChart.Location Where:=xlLocationAsObject, Name:=titre
    End With
End Sub

commence par virer
Code:

1 2 3 4 Dim selection As String ' selection me permet de faire un point de vérif en mode pas à pas selection=....
Ou change le nom de la variable selection
Selection est un mot protégé a ne pas utilisé comme variable (question de principe ;) )

Ensuite dit nous à quel moment du code il plante ou si c'est la compilation qui plante

Chez moi ce code marche
Code:

1 2 3 4 5 6 7 With Workbooks("test.xls") .Charts.Add .ActiveChart.ChartType = xlXYScatterSmooth .ActiveChart.SetSourceData Source:=.Sheets("feuil2").Range("C:C," & Chr(Asc("A") + (numCol - 1)) & ":" & Chr(Asc("A") + (numCol - 1))), PlotBy:=xlColumns .ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil2" End With End Sub
Parcontre je ne comprend pas ce que représente xl chez toi

09/04/2009, 13h19
Aurelangelo

En fait, xl est un objet que j'instancie dès le départ de mon application car ma macro se lance sur l'appui d'un bouton présent sur une feuille excel.

Ensuite, je demande le fichier Texte que l'utilisateur veut ouvrir et donc ça m'ouvre une seconde fenêtre excel d'où l'objet xl qui me permet de travailler sur cette fenêtre.

Sinon il plante au niveau de cette ligne :

Code:

.ActiveChart.SetSourceData Source:=.Sheets("feuil2").Range("C:C," & Chr(Asc("A") + (numCol - 1)) & ":" & Chr(Asc("A") + (numCol - 1))), PlotBy:=xlColumns

J'ai l'impression que c'est ma formule qu'il accepte pas car si je mets Range(C:D) en dur et bien aucun soucis !!!
09/04/2009, 15h07
Krovax

je t'avouerais que la je sèche :?
Va faloir attendre que quelqu'un de grand beau et fort (ca marche aussi au féminin mais vaut mieu adapter les adjectifs) passe par ici

Juste une question ta macro est dans un module standard? dans le code d'une feuille, d'un userform?
J'ai eu quelque souci de range a cause de ca mais ca m'étonnerai que ce soit le cas ici

ma macro est dans un module standard. Rien de plus standard même !!!
j'attends avec impatience Zorro (ou Dora pour les filles) pour son aide ^^:yaisse2:

Je vais ajouter un petit truc. J'ai essayé de créer une petite macro qui sélectionne plusieurs colonnes du classeur ouvert et là pas de problème.
Par contre dans la macro que je développe en ce moment, j'ouvre une autre fenêtre excel et je fais les traitements dedans et dans cette fenêtre, je n'arrive pas à effectuer la sélection alors je trouve ça un peu louche. Je vous mets une petite portion de code de ma macro des fois que ...

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
Dim chemin As String ' chemin du fichier
Dim nomfichier As String ' nom du fichier
Dim xl As Excel.Application ' application excel
Dim xlsClass As Excel.Workbook ' classeur excel
Dim xlsFeuille As Excel.Worksheet ' feuille excel
 
Dim colonne As Integer
 
Sub TraiterDonnees_Clic() 
   ' ouverture du fichier de mesures
    Set xl = CreateObject("Excel.Application")
 
    On Error Resume Next
        chemin = xl.GetOpenFilename
        xl.Workbooks.OpenText (chemin)
 
        ' récupération du nom du fichier
        Dim TabSplit() As String
        TabSplit = Split(chemin, "\")
        nomfichier = TabSplit(UBound(TabSplit))
 
        'affichage du résultat
        xl.Visible = True
 
        ' dépouillement d'un essai puissance
        Call depouille_un_essai_puissance
 
    On Error GoTo 0
 
End Sub
 
Private Sub depouille_un_essai_puissance()
    Call Depouillement
    Call SousEchantillonnage
    Call miseenforme
 
    For n = 4 To colonne
        Call graphique(n)
    Next n
End Sub
 
Private Sub graphique(ByVal numCol As Integer)
'
    With xl
 
        Dim maSelection As String
         maSelection = "C:C," & Chr(Asc("A") + (numCol - 1)) & ":" & Chr(Asc("A") + (numCol - 1))
         duree = 1.2 * .Cells(4, 4).Value
         titre = .ActiveSheet.Name
         .Range(maSelection).Select
         '.Columns(selection).Select
         .Charts.Add
         .ActiveChart.ChartType = xlXYScatterSmooth
        .ActiveChart.SetSourceData Source:=.Sheets(titre).Range(maSelection), PlotBy:=xlColumns
         .ActiveChart.Location Where:=xlLocationAsObject, Name:=titre
         With .ActiveChart
             .HasTitle = True
             .ChartTitle.Characters.Text = titre
             .Axes(xlCategory, xlPrimary).HasTitle = True
             .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Temps(S)"
             .Axes(xlValue, xlPrimary).HasTitle = True
             .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Puissance kW)"
         End With
    End With
End Sub

09/04/2009, 17h01
aalex_38

Une parenthèse en trop ?

Code:

.ActiveChart.SetSourceData Source:=.Sheets("feuil2").Range("C:C," & Chr(Asc("A") + (numCol - 1)) & ":" & Chr(Asc("A") + (numCol - 1))), PlotBy:=xlColumns
09/04/2009, 17h04
Aurelangelo

non celle-ci ferme le range donc aucun soucis

Ce code fonctionne :

Code:

1
2
3
4
5
6
7
8
Sub y()
numcol = 4
Dim MaSelect 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
MaSelect = "C:" & Chr(Asc("A") + (numcol - 1))
Columns(MaSelect).Select ' sélection des colonnes déterminer par la chaîne ci dessus
 
End Sub

09/04/2009, 17h29
Aurelangelo

Sauf que ton code, si tu as maSelect = "C:G", tu sélectionnes les colonnes de C à G et donc tu as plusieurs courbes sur le meme graphique ce que je ne souhaite pas. Merci tout de même
09/04/2009, 17h40
aalex_38
Je ne comprend plus, que veux tu obtenir ?
Tu as toujours la colonne C et une autre colonne avec le numéro a définir ?

Si c'est ça essaie ça pour voir :
Code:

1 2 3 4 5 6 7 8 Sub k() Dim Numcol As Integer Numcol = 5 Dim Maplage As Range Set Maplage = Union(Columns(3), Columns(Numcol)) Maplage.Select End Sub
14/04/2009, 11h29
Aurelangelo

2 pièce(s) jointe(s)

Citation:

Je ne comprend plus, que veux tu obtenir ?
Tu as toujours la colonne C et une autre colonne avec le numéro a définir ?

Je veux obtenir un graphique contenant une courbe de chaque mesure contenue dans mon fichier texte (courbe en fonction du temps).
Dans mes courbes, la colonne C est toujours sélectionnée et l'autre est soit la D, la E, ... (selon le nombre de mesures).

Je récapitule mon projet et les étapes successives à faire :
- j'ouvre un fichier .xls qui contient ma macro et un bouton
- Au clic sur le bouton, ma macro s'exécute et demande un fichier à analyser
- le fichier choisi, une autre fenêtre excel s'ouvre avec les données
- Il s'en suit toute une série de traitement (échantillonnage, ajout de colonnes, mise en forme, ...)
- le dernier traitement est l'édition des graphiques (une courbe par graphique) ==> A partir de cette étape, je rencontre un problème de sélection de colonnes.

Diverses solutions testées :
- J'ai regardé le code créé par l'éditeur de macros et adapter à mon cas ==> code erreur sur la sélection des plages
- Essayer en utilisant une sélection par défaut, par exemple sélection des colonnes C et D soit C:D en excel et là : OK
- Essayer en utilisant une sélection par défaut, par exemple sélection des colonnes C et D soit C:C,D:D en excel et là : Ne fonctionne pas, pourtant l'enregistreur de macro préconise cette solution

Alors je cherche pourquoi ça ne veut pas alors que dans un cas, cela fonctionne !

Ajout de pièces jointes ! ça sera peut-être plus parlant !:D

Méthode :
- ouvrir la macro .Xls
- cliquer sur le bouton pour la lancer
- sélectionner le fichier de test et regarder le résultat
14/04/2009, 11h44
aalex_38

Bonjour,

As-tu essayé le code que je t'ai donné le 09/04/2009, 17h40 là tu as bien une selection de tes 2 colonnes
14/04/2009, 11h54
Aurelangelo

oui j'ai essayé et j'ai une erreur sur :

Citation:

Set Maplage = Union(Columns(3), Columns(Numcol))

Il n'en veut pas !
14/04/2009, 12h17
aalex_38

Si Numcol est > zero ça devrait pourtant fonctionner :?
14/04/2009, 12h32
Aurelangelo

le problème doit venir que je traite sur une autre fenêtre excel mais j'arrive pas à déceler l'erreur si tu peux regarder avec les pièces jointes précédemment tu verrais le problème dans la dernière fonction
14/04/2009, 15h08
Aurelangelo

Merci à tous mon problème est totalement résolu, la solution de aalex_38 était la bonne.

A une prochaine chers développeurs !!!
14/04/2009, 15h24
aalex_38

Je viens de tester et de corriger l'erreur dans le code, et je reviens sur le forum et résolu ;)

A une prochaine
14/04/2009, 15h37
Aurelangelo

Ouais j'ai vu mon erreur aussi !
Flagrante ^^
Merci tout de même