Discussion :

[Invuck]

Bonsoir le monde,

J'ai besoin que l'on m'aide, je n'arrive pas à mettre mon code sous intervalle.
De base je lui dis que si entre mes cellules la valeur du calcul est négative, il recalcul, ca marche

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
Private Sub Worksheet_Calculate()
Dim c As Range
For Each c In Me.Range("L5:L12")
    If c.Value2 < 0 Then
        Me.Calculate
    End If
Next c
End Sub

Par contre je veux rajouter que si les valeurs tombent au dessus de 2 ca recalcul aussi, donc j'ai écris ca:

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
Private Sub Worksheet_Calculate()
Dim c As Range
For Each c In Me.Range("L5:L12")
    If c.Value2 < 0 Then
    ElseIf c.Value2 > 2 Then
        Me.Calculate
    End If
Next c
End Sub

Mais ca ne marche pas, une petite aide svp ....

Merci

[Invité]

Bonsoir,

Code :

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

1
2
3
4
5
6
7
8
 
Option Explicit
 Private Sub Worksheet_Calculate()
 Dim c As Range
For Each c In Me.Range("L5:L12")
 If c.Value2 < 0  or c.Value2 > 2 Then  Me.Calculate
 Next c
 End Sub

[Invuck]

Bonjour et merci de m'aider,

J'ai utilisé ton code et ca marche pas, il me marque que j'ai une

erreur d'exécution '28' : Espace pile insuffisant

Si je clique sur débogage il me surligne la ligne

Code :

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

For Each c In Me.Range("L5:L12")

Merci

[Invité]

bonjour,

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Calculate()
 Dim c As Range
For Each c In Range("L5:L12")
 If c.Value2 < 0 Or c.Value2 > 2 Then Calculate
 Next c
 End Sub

[Invuck]

Encore merci et excuse moi de te redemander ^^
Maintenant il me marque

Erreur de compilation: Next sans For

Je pensais qu'il manquai le "End If", si je le rajoute ca me plante carément excel

merci

[Invité]

quand le if then else est sur la même ligne pas de end if!

Code :

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

1
2
3
4
5
if a=b then
     z="toto"
else
    z="titi"
end if

Code :

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

if a=b then z="toto" else z="titi"

[Invuck]

Ok, par contre, il me sort toujours le problème de la pile avec la ligne :

Code :

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

For Each c In Range("L5:L12")

Merci

[bboy-eazy]

bonjour,

avancer en mode pas à pas avec la touche F8 et voir à quelle valeur de c le code plante.

bonne journée

[Invuck]

Je te remercie mais je suis pas assez calé pour m'apercevoir de l'erreur .....

[bboy-eazy]

- Appuyer sur Alt+F11
- Dans affichage, appuyer sur fenetre des variables locales
- aller au début du code concerné et appuyer sur F8 a plusieurs reprise jusqu'à ce que le code plante et sorte le message d'erreur
-regarder dans la fenetre variable locales la valeurs de c.

[Invuck]

Bon j'ai trouvé que ca marche si je lui dit de voir qu'une cellule .....

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Calculate()
Dim c As Range
For Each c In Range("L5")
    If c.Value2 < 0 Or c.Value2 > 2 Then Calculate
Next c
End Sub

Si je laisse : Range ("L5:L12"), ca marche pas

[Invuck]

Je pense avoir trouvé mon problème, c'est que après la 3° cellule avec mes calculs c'est tellement compliqué de garder ses conditions (voir impossible vu que mes opérations se renvoi de cellules en cellule) que ca plante tout. Merci à vous pour les réponses, je vais pofiner mon tableur.

MERCI

[bboy-eazy]

Ca marche très bien sauf qu'il doit y avoir une données en L6,L7,L8,L9,L10,L11 ou L12 qu' Excel n'aime pas. Le but est justement de trouver laquelle et pourquoi

d'où le fonctionnement en mode pas à pas via la touche F8....