Creation graphique

Bonjour,

J'ai adapté une macro (glycemie) que j'ai trouve sur le net. Elle ne fonctionne et j'ai une erreur 400.

Peut-on me dire où je me suis trompé.

merci

Hello, voilà plusieurs résolutions (il restera encore des bugs, mais il y en aura déjà moins !!!)

Dans la macro "Glycémie" il y a des erreurs:

1)

Sheets("Graphes").Select
    Cells.Select
    Selection.Clear

ne peut pas fonctionner. Je ne sais pas ce que tu es censé effacer, mais ça ne fonctionnera pas. Vu le reste de la macro je dirai qu'il faut supprimer ce qu'il y a en colonne A et B (mais ce n'est qu'une hypothèse)

2) Remplace tous les:

Range("...").Select

par

Sheets("Graphes").Range("...").Select

Bonjour et merci pour votre aide

après avoir suivi vos instructions, j'ai une erreur 1004 pour ce code

Sub Glycémie()
'
' Glycémie Macro
'
'

'
    'Sheets("Graphes").Select
    'Cells.Select
   ' Selection.Clear
    Sheets("BaseDeDonnees").Range("J4:J369").Select
    Selection.Copy
    Sheets("Graphes").Range("A2").Select
    ActiveSheet.Paste
    Sheets("BaseDeDonnees").Select
    'ActiveWindow.SmallScroll Down:=-48
    Range("J4:K369").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Graphes").Range("B1").Select
    ActiveSheet.Paste
        ActiveWindow.Visible = False
    Windows("MDiabete3.xlsm").Activate
    Range("H1:M1").Select
    Range("M1").Activate
    Application.CutCopyMode = False
    Selection.Merge
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    With Selection.Font
        .Name = "Arial"
        .Size = 26
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.Font.ColorIndex = 41
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
    ActiveCell.FormulaR1C1 = "=RC[-4]"
    Range("A1").Select
End Sub

en fait je voudrai reporter les saisies de la feuille Baseddonnees vers la feuille graphes pour pouvoir présenter des graphiques