Probleme code Vba graphique

Version imprimable

08/10/2013, 12h30
lebowsky60

1 pièce(s) jointe(s)

Probleme code Vba graphique

Bonjour,

j'essaie de réaliser une macro pour faire un graph selon les horaires indiqués dans un tableau. Je pense avoir bien avancer mais quand je la lance j'ai un message d'erreur incompatibilité de type. Pouvez vous m'aider ?
j'ai joint un exemple de fichier.
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
Sub Graphique()
Dim cDebut As Range, cFin As Range, Plage As Range
Dim Debut As Date, Fin As Date
Dim Ch As Chart
Dim i As Long
 
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Données analyseurs")
    Debut = .Range("D3")
    Fin = .Range("E3")
End With
 
With ThisWorkbook.Worksheets("données corrigées")
    Set cDebut = .Columns(2).Find(Debut, LookIn:=xlFormulas, LookAt:=xlWhole)
    If Not cDebut Is Nothing Then
        Set cFin = .Columns(2).Find(Fin, LookIn:=xlFormulas, LookAt:=xlWhole)
        If Not cFin Is Nothing Then
            Set Plage = cDebut.Resize(cFin.Row - cDebut.Row + 1, 14)
            Set cDebut = Nothing
            Set cFin = Nothing
        End If
    End If
End With
 
If Not Plage Is Nothing Then
    Set Ch = ThisWorkbook.Charts.Add
    Ch.ChartType = xlXYScatterLinesNoMarkers
 
    For i = 2 To 7                               'adapte
        With Ch.SeriesCollection.NewSeries
            .Name = ThisWorkbook.Worksheets("données corrigées").Cells(10, i + 2)
            .Values = Plage.Offset(0, i).Resize(, 1)
            .XValues = Plage.Resize(, 1)
        End With
    Next i
    Set Ch = Nothing
    Set Plage = Nothing
End If
End Sub

10/10/2013, 09h41
lebowsky60

1 pièce(s) jointe(s)

Merci,
je viens de l'essayer ça fonctionne sur le fichier exemple que j'ai fourni mais pas sur mon fichier réel, on dirai que l'heure n'est pas trouvé. Peut être es ce parce que la colonne dans laquelle on recheche l'heure fait référence à une autre colonne d'une autre feuille? ou parce que les autes colonnes sont remplies avec des formules faisant référence à d'autres feuilles? Malheureusement je ne peut pas vous joindre le fichier original car il est trop volumineux.
Avez vous des hypothèses ?

voilà j'ai réussi à réduire mon fichier original pou le joindre

La colonne B contient des valeurs de type Date au format 08:19:22.

dont la valeur réelle est un nombre à virgule flottante en double précision. Précision qui n'est pas parfaite, ce qui fait que la fonction FIND et la fonction MATCH ne peuvent fonctionner.

Je te suggère, si c'est possible, d'utiliser des formules pour trouver les valeurs Début et FIN.

Exemple :

Sur la feuille Données corrigées
en I10 entre la formule
=EQUIV('Données analyseurs'!D3;B:B)

en J10 entre la formule
=EQUIV('Données analyseurs'!E3;B:B)

Dans la Sub Graphique()

remplace la section FIND par
Code:

1 2 3 4 5 6 7 8 9 10 11 12 LigneDebut = ThisWorkbook.Worksheets("données corrigées").Range("I10").Value LigneFin = ThisWorkbook.Worksheets("données corrigées").Range("J10").Value If Not IsError(LigneDebut) Or IsError(LigneFin) Then Set cDebut = ThisWorkbook.Worksheets("données corrigées").Cells(LigneDebut, "B") Set cFin = ThisWorkbook.Worksheets("données corrigées").Cells(LigneFin, "B") Set Plage = cDebut.Resize(cFin.Row - cDebut.Row + 1, 14) End If
Cordialement

Docmarti

Merci la solution EQUIV fonctionne tres bien par contre pour les graphiques avec les lignes de code

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
Sub Graphique_essai1()
Dim cDebut1 As Range, cFin1 As Range, Plage1 As Range
Dim LigneDebut1 As Long, LigneFin1 As Long
Dim Ch1 As Chart
Dim Ch2 As Chart
 
Application.ScreenUpdating = False
    LigneDebut1 = ThisWorkbook.Worksheets("Données corrigées").Range("P5").Value
    LigneFin1 = ThisWorkbook.Worksheets("Données corrigées").Range("Q5").Value
 
With ThisWorkbook.Worksheets("données corrigées")
    If Not IsError(LigneDebut1) Or IsError(LigneFin1) Then
     Set cDebut1 = .Cells(LigneDebut1, "B")
     Set cFin1 = .Cells(LigneFin1, "B")
    Set Plage1 = cDebut1.Resize(cFin1.Row - cDebut1.Row + 1, 1)
    End If
End With
 
If Not Plage1 Is Nothing Then
    Set Ch1 = ThisWorkbook.Charts.Add
    Ch1.ChartType = xlXYScatterLinesNoMarkers
 
         With Ch1.SeriesCollection.NewSeries
            .Name = ThisWorkbook.Worksheets("données corrigées").Cells(10, 5)
            .Values = Plage1.Offset(0, 3).Resize(, 1)
            .XValues = Plage1.Offset(0, -1).Resize(, 1)
         End With
         With Ch1.SeriesCollection.NewSeries
            .Name = ThisWorkbook.Worksheets("données corrigées").Cells(10, 6)
            .Values = Plage1.Offset(0, 4).Resize(, 1)
            .XValues = Plage1.Offset(0, -1).Resize(, 1)
         End With
 
    Set Ch2 = ThisWorkbook.Charts.Add
    Ch2.ChartType = xlXYScatterLinesNoMarkers
 
         With Ch2.SeriesCollection.NewSeries
            .Name = ThisWorkbook.Worksheets("données corrigées").Cells(10, 7)
            .Values = Plage1.Offset(0, 5).Resize(, 1)
            .XValues = Plage1.Offset(0, -1).Resize(, 1)
         End With
         With Ch2.SeriesCollection.NewSeries
            .Name = ThisWorkbook.Worksheets("données corrigées").Cells(10, 8)
            .Values = Plage1.Offset(0, 6).Resize(, 1)
            .XValues = Plage1.Offset(0, -1).Resize(, 1)
         End With
 
    Set Ch = Nothing
    Set Plage = Nothing
End If
End Sub

j'obtiens pour le premier graph plus de séries que les deux demandés alors que le deuxième j'obtiens bien uniquement mes deux séries demandés.
Comment es-ce possible?