Discussion :

[BasCan]

Bonjour à tous,

j'ai un petit soucis avec un graphe, où j'essaie de choisir les ordonnées et abscisse de façon automatique voila 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
26
 
 
Sub Macro4()
 
Sheets("Recherche auto").Select
Dim L, M, O, P
 
L = Application.Min(Range("O13:O600")) - 50
M = Application.Max(Range("O13:O600")) + 50
O = Application.Min(Range("R16:R600"))
 
If O < 10 Then
    P = 0
ElseIf 10 < O < 100 Then
    P = 10
ElseIf 100 < O < 1000 Then
    P = 100
ElseIf 1000 < O < 10000000 Then
    P = 1000
End If
 
    Sheets("Feuil1").Select
    ActiveChart.Axes(xlValue).MinimumScale = L
    ActiveChart.Axes(xlValue).MaximumScale = M
    ActiveChart.Axes(xlCategory).MinimumScale = P
End Sub

CA marche bien en ordonné, par contre en abscisse cette macro va toujours mettre la première valeur à 10.
Et je ne vois pas pourquoi...
J'ai pas mal fouillé et j'ai l'impression que c'est lié à une erreur simple de ma part...
J'ai l'impression que le O n'est pas interprété comme une valeur mais plus un "mot", possible ?

Merci de votre aide.
Bastien

[Tylert]

C'est un cas classique:

Tes tests ne fonctionnent pas en l'état, il faut bien séparer ton test sur O > 10 et O < 100:

Code :

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

1
2
 
if (O > 10) and (O <100) then

A noter qu'il faut un <= ou un >= quelque part dans tes tests, sinon si O = 10, 100, 1000 ou 10000, tu n'auras rien assigné à P car tu ne rentres jamais dans tes conditions.

[Invité]

Bonjour,

Sans avoir regardé autre chose, il semble déjà qu'il y a des "trous dans la raquette" dans vos conditions. Je verrais plutôt ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
If O <= 10 Then
    P = 0
ElseIf 10 < O <= 100 Then
    P = 10
ElseIf 100 < O <= 1000 Then
    P = 100
ElseIf 1000 < O <= 10000000 Then
    P = 1000
End If

[BasCan]

Merci beaucoup pour vos réponses

Ca fontionne effectivement

Code :

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

(10 < O) And (O < 100) Then

Merci aussi pour les trous dans la raquette, je m'en était aperçu mais j'étais pas sur de la syntaxe et comme c'est lié à des test de fatigue, il y avait peu de chance que cela se produise, mais c'est corrigé !

Merci encore de votre aide!
Bonne journée,
Bastien