La methode range de l'objet global à échoué macro dans un userform

Version imprimable

Bonjour,
J'ai un userform avec une listbox.
L'utilisateur vient selectionner des items dans la listbox et ma macro viens tracer les graphes pour les tableaux selectionnés.
Pour définir l'étendue du tableau, j'utilise range("").end...
Seulement aux lignes que j'ai mis en rouge j'ai une erreur, ça me dit la méthode range de l'objet global a échoué.
A l'execution j'ai une erreur 1004

J'ai cherché un peu mais je ne trouve pas comment faire.

Merci

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
Private Sub CbtOk_Click()

Dim graphe As Chart
Dim fsource As Worksheet
Dim plagedonnée As Range
Dim nom As String
Dim fin As Integer
Dim derligne As Integer
Dim i As Integer
Dim trouve As Range
Dim lgraphe As Integer
Dim plageX As Range
Dim plageY1 As Range
Dim plageY2 As Range
Dim maserie1 As Range, maserie2 As Range

Application.ScreenUpdating = False

fin = Me.ListBox1.ListCount
Set fsource = ThisWorkbook.Worksheets("graphe")
derligne = fsource.Range("B65536").End(xlUp).Row
Set plagenom = fsource.Range(Cells(1, 2), Cells(derligne, 2))


For i = 1 To fin - 1

    nom = ""
    With ListBox1
    If .Selected(i) = True Then nom = .List(i)
    End With
    If nom <> "" Then
    Set trouve = plagenom.Find(nom, plagenom.Cells(1), xlValues, xlWhole, xlByColumns, xlNext)
    lgraphe = trouve.Row
    coldroite = Range(Cells(lgraphe + 1, 100)).End(xlLeft).Column
    Set graphe = ThisWorkbook.Charts.Add
    ActiveSheet.Name = Left(nom, 30)
    graphe.ChartArea.clear
    graphe.ChartType = xlXYScatterLines
    Set plageX = fsource.Range(Cells(lgraphe + 3, 2), Cells(lgraphe + 3, coldroite))
    Set plageY1 = fsource.Range(Cells(lgraphe + 5, 2), Cells(lgraphe + 5, coldroite))
    Set plageY2 = fsource.Range(Cells(lgraphe + 6, 2), Cells(lgraphe + 6, coldroite))
    Set maserie1 = graphe.SeriesCollection.NewSeries
    With maserie1
        .Values = plageY1
        .XValues = plageX
        .Name = fsource.Cells(lgraphe + 5, 1).Value
    End With
    
    Set maserie2 = graphe.SeriesCollection.NewSeries
    With maserie2
        .Values = plageY2
        .XValues = plageX
        .Name = fsource.Cells(lgraphe + 6, 1).Value
    End With
    
    End If

Next i


UserForm1.Hide
Unload UserForm1

Application.ScreenUpdating = True

End Sub

17/08/2009, 13h51
Gorfael

Salut diude54 et le forum
Regardes tes valeurs au moment de l'erreur en mode pas-à-pas. Pour dépanner, il faudrait tester et pas envie de créer un fichier. De plus, ton code est trop tarabiscotté pour moi.
Tu as donc une adresse ou le nom d'une cellule en colonne 100 (Cells(lgraphe + 1, 100)) et tu recherches un colonne à gauche de la cellule désignée : suivant que la cellule en colonne 99 est vide ou pleine, tu n'auras pas le même résultat, c'est tout que je peux dire.

Ta macro n'est exploitable qu'avec tes données : si je crée un fichier d'essai, on aura (ou pas) une erreur suivant ce que je mets dans les cellules, et qui ne saurait refléter ce que tu as.
A+
17/08/2009, 14h39
diude54

Voici mon fichier
Le but est de pouvoir tracer un graphe par tableau, le userform sert à selectionner quel graphe on veut tracer.
On selectionne les graphes à tracer.

Cette ligne sert à trouver la colonne de droite du tableau à tracer

Code:

coldroite = Range(Cells(lgraphe + 1, 100)).End(xlLeft).Column

Re,

J'ai trouvé la 1ère erreur:

ce n'est pas

Code:

coldroite = Range(Cells(lgraphe + 1, 100)).End(xlLeft).Column

mais ça qu'il faut ecrire

Code:

coldroite = Range(Cells(lgraphe + 1, 100)).End(xlToLeft).Column

Sinon j'ai toujours la même erreur sur les lignes:
Code:

1 2 3 Set plageX = fsource.Range(Cells(lgraphe + 3, 2), Cells(lgraphe + 3, coldroite)) Set plageY1 = fsource.Range(Cells(lgraphe + 5, 2), Cells(lgraphe + 5, coldroite)) Set plageY2 = fsource.Range(Cells(lgraphe + 6, 2), Cells(lgraphe + 6, coldroite))

J'ai trouvé la solution pour les erreurs suivantes:

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
67
Private Sub CbtOk_Click()

Dim graphe As Chart
Dim fsource As Worksheet
Dim plagedonnée As Range
Dim nom As String
Dim fin As Integer
Dim derligne As Integer
Dim i As Integer
Dim trouve As Range
Dim lgraphe As Integer
Dim plageX As Range
Dim plageY1 As Range
Dim plageY2 As Range
Dim maserie1 As Series, maserie2 As Series

'Application.ScreenUpdating = False

fin = Me.ListBox1.ListCount
Set fsource = ThisWorkbook.Worksheets("graphe")
derligne = fsource.Range("B65536").End(xlUp).Row
Set plagenom = fsource.Range(Cells(1, 2), Cells(derligne, 2))


For i = 1 To fin - 1

    nom = ""
    With ListBox1
    If .Selected(i) = True Then nom = .List(i)
    End With
    If nom <> "" Then
    If SheetExists(ThisWorkbook, Left(nom, 30)) Then Sheets(Left(nom, 30)).Delete
    Set trouve = plagenom.Find(nom, plagenom.Cells(1), xlValues, xlWhole, xlByColumns, xlNext)
    lgraphe = trouve.Row
    coldroite = fsource.Cells(lgraphe + 1, 100).End(xlToLeft).Column
    Set maplage = Range(Cells(lgraphe, 2), Cells(lgraphe + 6, coldroite))
    Set graphe = ThisWorkbook.Charts.Add 'After:=thisworkbook.Worksheets("graphe")
    ActiveSheet.Name = Left(nom, 30)
    graphe.ChartArea.clear
    graphe.ChartType = xlXYScatterLines
    Set plageX = maplage.Rows(4) 'fsource.Range(Cells(lgraphe + 3, 2), Cells(lgraphe + 3, coldroite))
    Set plageY1 = maplage.Rows(6) 'fsource.Range(Cells(lgraphe + 5, 2), Cells(lgraphe + 5, coldroite))
    Set plageY2 = maplage.Rows(7) 'fsource.Range(Cells(lgraphe + 6, 2), Cells(lgraphe + 6, coldroite))

    Set maserie1 = graphe.SeriesCollection.NewSeries
    With maserie1
        .Values = plageY1
        .XValues = plageX
        .Name = fsource.Cells(lgraphe + 5, 1).Value
    End With
    
    Set maserie2 = graphe.SeriesCollection.NewSeries
    With maserie2
        .Values = plageY2
        .XValues = plageX
        .Name = fsource.Cells(lgraphe + 6, 1).Value
    End With
    
    End If
    fsource.Select
Next i


UserForm1.Hide
Unload UserForm1

Application.ScreenUpdating = True

25/02/2013, 12h38
phelo

1 pièce(s) jointe(s)

debogage macro excel

salut j'ai un message pareil quand je test la macro :
la méthode range de l'objet global a échoué ...
en faite, j'ai un fichier 'all' qui est censé recuperer les données de deux fichiers excel. le fichier 'all' contient une click 'mise à jour' qui est liée a la macro. (piece jointe)
Auriez vous une idée de ce que peu etre le probleme?
ci joint le code que j'ai bricolé un peu.