[VBA-E] Pb sur un For Each récalcitrant

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour à tous,
Un petit problème sur une boucle For Each.

Ce que je voudrais que cette sal..... de code éxécute :
Quand il y a un clique dans la cellule I2,
Un scroll écran est déclenché(ça, c'est bon, ça marche)
Puis un test est déclenché sur une plage de cellule avec un For Each.
Le but est d'appliquer un format particulier à cette fameuse cellule I2(souligné, couleur texte et cellule), si la boucle trouve dans la plage testée une valeur supérieure à 0.
Par défaut, toutes les cellules de cette plage testée sont égales à 0(somme d'autres cellules).

Ce qui se passe réellement :
Dés que je cliques dans la cellule I2, le format est appliqué quelque soit les valeurs contenues dans la plage testée !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$I$2" Then Application.Goto Reference:=ActiveSheet.Range("A1507"), Scroll:=True For Each Cellule In Range("C1509:G1518") If Cellule.Value = 0 Then Range("I2").Font.Underline = xlUnderlineStyleNone Range("I2").Interior.ColorIndex = 33 Range("I2").Font.ColorIndex = 34 Else Range("I2").Font.Underline = xlUnderlineStyleSingle Range("I2").Interior.ColorIndex = 34 Range("I2").Font.ColorIndex = 33 Exit For End If Next Cellule End If End Sub
Je sais, je suis nul, mais je ne comprends pas quand même !
Merci d'avance. :koi:

L'expérience est le nom que chacun donne à ses erreurs.
Wilde (Oscar Fingal O'Flahertie Wills)

? ben par défaut tu applique bien le format :

Code:

1
2
3
Range("I2").Font.Underline = xlUnderlineStyleNone 
            Range("I2").Interior.ColorIndex = 33 
            Range("I2").Font.ColorIndex = 34

? lorsque cellule = 0?

09/03/2006, 13h26
Squelet
Ben oui, mais pourtant dés que je cliques dans I2, quelques soient les valeurs dans la plage testée, le format appliqué est :
Code:

1 2 3 4 Range("I2").Font.Underline = xlUnderlineStyleSingle Range("I2").Interior.ColorIndex = 34 Range("I2").Font.ColorIndex = 33 Exit For
:?:
09/03/2006, 13h31
SfJ5Rpw8

chez moi cela fonctionne est tu sur que la plage :
C1509:G1518 est bien vide ...? ... sinon tes 2 format sont bien proche... l'un / fond blue clair l'autre sur fond bleu foncé...
09/03/2006, 13h32
chmod777

utilise pas value

Code:

If Cellule.Value = 0 Then

utilise

Code:

If Sheets("blad1").Cells(1, 1) = "0" Then
09/03/2006, 13h41
Petogaz

salut,

déclare propement ta variable Cellule. et essais d'inverser la condition.
09/03/2006, 13h48
Squelet

>bbil,
Non, ma plage n'est pas vide, puisque chaque cellule contient une formule.
Mais elle sont par défaut, toutes égale à zéro à l'ouverture du classeur.
ET oui, effectivement les deux formats à appliquer sont proches mais c'est voulu, pour une question d'esthetisme et de sobriètè de mon classeur.

>Bonjour chmod777
Je suis désolé, mais j'ai essayé ton truc et c'est pareil
09/03/2006, 13h51
Squelet

Citation:

Envoyé par Petogaz

déclare propement ta variable Cellule. et essais d'inverser la condition.

Je ne sais pas comment et où déclarer ma variable proprement ?
Peux-tu éclairer ma lanterne ?
Merci. :?:
09/03/2006, 14h00
zazaraignée

Hello
Je viens de me lever, de prendre mon p'tit dej et d'avaler mon premier café. Donc, j'ai des yeux neufs!

Citation:

Envoyé par Squelet

si la boucle trouve dans la plage testée une valeur supérieure à 0.

Alors pouquoi tester sur l'égalité

Code:

If Cellule.Value = 0 Then

?
09/03/2006, 14h06
Squelet

Salut zaza,
J'espère que tu as passer une bonne nuit !
Est-ce qu'il y a une importance de tester sur cette égalité là, plutôt que sur son contraire ?

Code:

If Cellule.value <> 0 then

:?:
09/03/2006, 14h09
Squelet

Bon,
ben maintenant, ça marche, alors que je n'ai rien changé !
J'avoue que je suis un peu dépassé, je ne sais pas si je ne vais prendre le relais de zaza, et aller me coucher !!!!

:arf:
09/03/2006, 14h11
Squelet

Maintenant que ça marche j'aimerais faire évoluer le schmilblick.
Comment puis-je faire pour que ma fameuse plage à (C1509;G1518) soit tester en permanence ?
09/03/2006, 14h16
zazaraignée

Citation:

Envoyé par chmod777

c'est une bonne heure pour se lever

à Rimouski, Canada, heure de l'Est, oui, tout à fait! Il est 8h16 en ce moment. Et je pense à vous quitter pour vaquer à mes occupations quotidiennes. :( Vous me manquerez...

Squelet : Suis heureuse que ça marche maintenant.

Pour que ton test se fasse en permanence... ?... Sur un événement SelectionChange ? ou quelque chose du genre ?
09/03/2006, 14h17
jmfmarques

voir IsEmpty. Frapper IsEmpty dans macro, sélectionner puis F1...
marche pas... puis ..marche ... = non réinitialisé ... puis réinitialisé, donc cette fois-ci = 0 ... et marche alors ...!
09/03/2006, 17h28
SfJ5Rpw8

on peu savoir ce qu'il y as dans ta cellule I2 ? une formule ? (laquelle?)
10/03/2006, 07h38
Squelet

Il y a une fonction de somme toute simple du style A2+S5+J7+P4+.....

Citation:

Envoyé par Squelet

Maintenant que ça marche j'aimerais faire évoluer le schmilblick.
Comment puis-je faire pour que ma fameuse plage à (C1509;G1518) soit tester en permanence ?

en changeant de méthode .. et utilisant un l'événement WorkSheet_Change de la feuille concernée :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("C1509:G1518")) Is Nothing Then
     For Each Cellule In Range("C1509:G1518")
        If Cellule.Value = 0 Then
            Range("I2").Font.Underline = xlUnderlineStyleNone
            Range("I2").Interior.ColorIndex = 33
            Range("I2").Font.ColorIndex = 34
            Else
            Range("I2").Font.Underline = xlUnderlineStyleSingle
            Range("I2").Interior.ColorIndex = 34
            Range("I2").Font.ColorIndex = 33
            Exit For
        End If
      Next
 End If
 End Sub

:wink:

10/03/2006, 09h41
Squelet

Je m'en vais essayer ça tout de suite.
Merci bbil
:hola:
10/03/2006, 13h39
Squelet

J'ai essayé, mais j'ai un message d'erreur du style :

Erreur de compilation

Nom ambigu détecté : Worksheet_change

:?:
10/03/2006, 17h12
AlainTech

C'est que tu as déjà un autre Worksheet_change dans le code de cette feuille.

Voir 40 message(s) de cette discussion en une page