Discussion :

[isfet]

bonjour, je suis au point de départ de ma fonction, constituée d'une boucle for, elle aurait pour but de créer un graphique tant que la ligne actuelle contient des donnée

Code :

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

1
2
3
4
5
6
7
Range("E3").Select 'E3 contient le nom, les cellules a droite les valeurs
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range(selection, selection.end(xltoright)) 'ici premier accrochage je n'arrive pas à ne pas rentrer mes numéro de cellules en dur
    ActiveChart.ChartType = xlLine
    ActiveChart.Axes(xlValue).MinimumScale = Selection.Columns("A:A").Offset(0, -3).Value 'second bug, je n'arrive pas a récuperer la valeur de ma cellule ..
    ActiveChart.Axes(xlValue).MaximumScale = Selection.Columns("A:A").Offset(0, -2).Value
    ActiveChart.Axes(xlValue).MajorUnit = Selection.Columns("A:A").Offset(0, -1).Value

pourriez vous m'aider a corriger ce morceau de ma fonction ?

merci d'avance et bon'ap
isfet

[isfet]

j'ai résolu une partie du problème en supprimant une partie du code !

Code :

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

1
2
3
4
5
6
Range("E3:EE3").Select
ActiveSheet.Shapes.AddChart.Select
 
MsgBox Selection.Columns("A:A").Offset(0, -3).Value
 
 ActiveChart.Axes(xlValue).MinimumScale = Selection.Columns("A:A").Offset(0, -3).Value

si j'execute ce code, il plante, la msgbox ne s'affiche meme pas !


EDIT : J'ai trouvé, je n'avais pas vu que j'avais refait un select après !

alors que si j'execute

Code :

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

1
2
Range("E3:EE3").Select
MsgBox Selection.Columns("A:A").Offset(0, -3).Value

il m'affiche bien 10, je ne comprends pas, je voudrais que mon minimum scale soit aussi egal a 10 pouvez vous m'aider ?


EDIT: Je n'avais pas vu que j'avais refait un select juste après ! (pas encore très habitué a VBA) bye