Bonjour à tous,
Je paufine mon précédent post et je suis tombé sur une tuile :
Je cherche a mettre a un graphique existant un titre avec le texte d'une cellule
Je n'arrive pas a faire en sort que la valeur X = le texte de la cellule
mais aussi faire en sorte qu'a la prochaine boucle la ligne ne change pas mais la collone fait + I
Si vous avez des idéees n'hésitez pas
Merci d'avance
Je paufine mon précédent post et je suis tombé sur une tuile :
Je cherche a mettre a un graphique existant un titre avec le texte d'une cellule
Dim DR As Integer
Dim DC As Integer
Dim FR As Integer
Dim FC As Integer
début = InputBox("Semaine de départ de la période ", "Question")
fin = InputBox("Semaine de fin de la période", "question")
Columns("AE:AE").Select
Selection.Find(What:=début, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
DR = ActiveCell.Row
DC = ActiveCell.Column
Columns("AE:AE").Select
Selection.Find(What:=fin, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
FR = ActiveCell.Row
FC = ActiveCell.Column
For i = 1 To 19
x = Value = "=Sheet2!R" & 1 & "C" & DC + i & ":R" & 1 & "C" & FC + i
ActiveChart.ChartArea.Select
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = x
End With
Je n'arrive pas a faire en sort que la valeur X = le texte de la cellule
mais aussi faire en sorte qu'a la prochaine boucle la ligne ne change pas mais la collone fait + I
Si vous avez des idéees n'hésitez pas
Merci d'avance