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

**Krovax** · 09/04/2009, 15h07

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

**Aurelangelo** · 09/04/2009, 15h16

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

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 :

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

**aalex_38** · 09/04/2009, 17h01

Une parenthèse en trop ?

Code :

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

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

**Aurelangelo** · 09/04/2009, 17h04

non celle-ci ferme le range donc aucun soucis

**aalex_38** · 09/04/2009, 17h23

Ce code fonctionne :

Code :

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

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

**Aurelangelo** · 09/04/2009, 17h29

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

**aalex_38** · 09/04/2009, 17h40

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 :

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

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

**Aurelangelo** · 14/04/2009, 11h29

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

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

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 !

Méthode :
- ouvrir la macro .Xls
- cliquer sur le bouton pour la lancer
- sélectionner le fichier de test et regarder le résultat

**aalex_38** · 14/04/2009, 11h44

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

**Aurelangelo** · 14/04/2009, 11h54

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

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

Il n'en veut pas !

**aalex_38** · 14/04/2009, 12h17

Si Numcol est > zero ça devrait pourtant fonctionner

**Aurelangelo** · 14/04/2009, 12h32

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