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

Version imprimable

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.
20/03/2006, 12h07
Squelet

Bonjour,
Je me permets de revenir sur mon petit problème après une petite semaine de vacances !

Citation:

Envoyé par AlainTech

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

J'ai donc supprimer la première ligne du code à bbil
Et j'ai copié collé le code dans ma routine Worksheet_SelectionChange déjà en place.
Mais, j'ai un autre message d'erreur maintenant:
Erreur d'exécution 1404 :
La méthode 'Range' de l'objet '_Worksheet' à échouer
:?:
20/03/2006, 12h17
SfJ5Rpw8

il faut laisser le code dans Worksheet_change
20/03/2006, 12h41
Squelet

Ben oui, mais si je le laisse, j'ai aussi un message d'erreur :

Erreur de compilation
Nom ambigu détecté : Worksheet_change

Alors c'est quoi la solution ?
20/03/2006, 12h55
SfJ5Rpw8

as tu vérifier que tu n'ai qu'un Worksheet_change ... dans ta feuille !!
qu'il y as t'il dans l'autre !
20/03/2006, 13h18
Squelet

En fait, dans la feuille, j'avais un Worksheet_Change et un Worksheet_SelectionChange.

Et bien sûr j'avais mis ton code dans le le Worksheet_SelectionChange !
Je viens de le replacer dans le Worksheet_Change, mais j'ai toujours un message d'erreur quand je saisie une valeur dans une cellule, et quelque soit son emplacement dans la feuille :

Erreur d'exécution 1404 :
La méthode 'Range' de l'objet '_Worksheet' à échoue

Et quand je cliques sur débogage, il surligne en jaune la ligne :

If Not Intersect(Target, Range("J1520;N1537")) Is Nothing Then

Tu vois de quoi ça peut venir ?
Thank's :roll:
20/03/2006, 13h20
SfJ5Rpw8

c'est quoi le ; !
20/03/2006, 13h22
jmfmarques

Citation:

;

est une erreur de frappe dans ton message ou dans ton code ?
oops ! à nouveau croisés ! bonjour
20/03/2006, 13h53
Squelet

Avec toutes mes excuses !!!
C'était bien une erreur de frappe dans mon code.
J'ai pas les yeux en face des trous, aujourd'hui.
Maintenant, ça baigne.
Merci à toi.

:sm:
Doucement quand même, les coups de fouêt !!!

Pour expliquer un brin de paille, il faut démonter tout l'univers.
Rémy de Gourmont