Discussion :

[Val14c]

Bonjour,

Je souhaite créer une macro permettant de créer un graphe. Les données de ce graphe commenceront dans la colonne A avec un numéro de ligne à définir et finiront dans la colonne C avec un numéro de ligne à définir.

En fait mon tableau de données comprends des infos pour les 52 semaines de l'année et je veux que le graphe se crée de la semaine 5 à 15 par exemple (je le demanderai dans une boite de dialogue).

Voici mon code :

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
Sub Macro2()
 
Dim CelluleDebut As Range
Dim CelluleFin As Range
Dim Debut As Integer
Dim Fin As Integer
Dim LigneDebut As Integer
Dim LigneFin As Integer
 
Debut = Range("Tableau!E2")
Fin = Range("Tableau!F2")
 
Set CelluleDebut = Range("Tableau!A2:A52").Find(Debut, lookat:=xlWhole)
Set CelluleFin = Range("Tableau!A2:A52").Find(Fin, lookat:=xlWhole)
 
LigneDebut = CelluleDebut.Row
 
LigneFin = CelluleFin.Row
 
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Range("Tableau!$A$LigneDebut:$C$LigneFin")
 
 
End Sub

Cependant, pour le moment il ne fonctionne pas, j'ai une erreur 91 à

Code :

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

LigneDebut = CelluleDebut.Row

Je vous remercie d'avance.

[Daniel.C]

Bonjour,

Ca signifie que tu n'as pas trouvé de correspondance ici :

Code :

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

Set CelluleDebut = Range("Tableau!A2:A52").Find(Debut, lookat:=xlWhole)

Teste :

Code :

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

1
2
3
4
If Not CelluleDebut Is Nothing Then
    LigneDebut = CelluleDebut.Row
    Exit Sub
End If

[Daniel.C]

Si j'ai bien compris ta problématique, tu n'as pas besoin de macro. Regarde le classeur joint. Le graphique se modifie en fonction des valeurs de G4 et G6 (semaines de début et de fin).

[mercatog]

Bonjour Daniel
C'est ce que je voulais proposer. On oublie souvent ce qu'Excel peut faire sans vba.

Pour la définition de SerieY, je fais

Code :

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

=DECALER(SerieX;;1)

[Daniel.C]

Bonjour mercatog,

Effectivement, encore plus simple !

[Val14c]

Merci à vous 2. Ce sera effectivement encore plus simple comme cela et sans boite de dialogue à créer.

En vous souhaitant une bonne journée,

Cordialement.

Par contre, ça va certainement vous paraître assez simple mais où a été définie la sérieY ?

[Daniel.C]

Onglet Formules, Gestionnaire de noms.

[Val14c]

Très bien merci. J'ai réussi à faire ce qui m'intéressait.

Bonne journée.