Discussion :

[foobar42]

Bonjour c'est encore moi :p

J'ai un dernier petit soucis. En effet je dois créer un graphique en fonction de la semaine choisie par l'utilisateur. Ce ne sont donc pas toujours les memes cellules qui sont utilisées pour créer le graphique.
Par exemple sur la photo : Pour la semaine 1 je dois créer le graphique en fonction de la zone rouge, pour la semaine 2 la zone verte et ainsi de suite

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
    
    cell = "B"
    Sheets("Indicateur journalier").Select
    sem = txtNumSemGraph.Value
    conv1 = sem
    currentSem = Mid(Sheets("Indicateur Journalier").Range(cell & 4).Value, 2, 4)
    conv2 = currentSem
     
    Do While conv2 <= conv1
    
    If (conv2 = conv1) Then
        Charts.Add
        ActiveChart.ChartType = xlColumnClustered
        cell2 = cell & 5
        'Application.GoTo Reference:=Sheets("Indicateur Journalier").Range(cell2)
        ActiveChart.SetSourceData Source:=Sheets("Indicateur journalier").Range( _"B5:F7"), PlotBy:=xlRows

Le bout de code en rouge est la ligne que je dois changer en fonction de la semaine demandée. Avez vous une petite idée car la je cale je ne sais pas comment sélectionner une zone de plusieurs cellules.

Merci

[ouskel'n'or]

C'est tout simple

Range( _"B5:F7")
Tu peux écrire ça de plusieurs manières

Code :

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

1
2
3
4
5
NoLigne1 = 5
NoLigne2 = 7
NoCol1 = 2
CoCol2 = 6
Range(Cells(NoLigne1,NoCol1),Cells(NoLigne2,NoCol2))

Tu dis

[foobar42]

Ben je dis merci et je teste demain pour voir si ca marche. Mais bon ca ca marche bien pour une semaine specifique mais si maintenant j'ai la semaine 3 il faut que ca se remplisse automatiquement donc ca ne va pas en mettant moi-meme les numéros de lignes et de colonnes.

[ouskel'n'or]

Tu peux expliquer, parce que là je ne comprends pas ce que tu veux

[foobar42]

Ben en fait tu vois la j'ai encadré plusieurs plages de cellules. Une rouge, une verte et une bleue. Chaque plage correspond a une semaine (S1, S2, etc...)
Et donc l'utilisateur choisis une semaine et le graphique est généré en fonction de la semaine. Donc suivant la semaine ca ne sera pas les memes plages de cellules qui seront sélectionnée. Je sais pas si on voit tres bien sur le screen mais genre la S3 est encadré en bleue il faut donc sélectionnée toutes les cellules encadrés en bleue.

J'ai été un peu plus clair ???

[ouskel'n'or]

Ok, alors tu as la possibilité de connaître le N° de colonne de la semaine 3, celle qui contient S3
J'ai refait ton tableau, essaie ça pour la semaine 3

Code :

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

1
2
3
4
5
6
7
8
9
    Rows("3:3").Select 'No deligne des N° de semaine. A corriger si nécessaire
    Selection.Find(What:="S3", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Activate
        NoCol1 = ActiveCell.Column
        NoLigne1 = 5
        NoCol2 = NoCol1 + 4
        NoLigne2 = 7
        Plage = Range(Cells(NoLigne1,NoCol1),Cells(NoLigne2,NoCol2)).address

et à la place de Range("B5:F7") tu mets Range(Plage)
A+