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

Version imprimable

Voir 40 message(s) de cette discussion en une page

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

Voir 40 message(s) de cette discussion en une page