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

**Squelet** · 09/03/2006, 11h31

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 :

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
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.

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

**SfJ5Rpw8** · 09/03/2006, 12h51

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

Code :

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

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

? lorsque cellule = 0?

**Squelet** · 09/03/2006, 13h26

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 :

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

1
2
3
4
Range("I2").Font.Underline = xlUnderlineStyleSingle
Range("I2").Interior.ColorIndex = 34
Range("I2").Font.ColorIndex = 33
Exit For

:

**SfJ5Rpw8** · 09/03/2006, 13h31

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é...

**chmod777** · 09/03/2006, 13h32

utilise pas value

Code :

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

   If Cellule.Value = 0 Then

utilise

Code :

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

If Sheets("blad1").Cells(1, 1) = "0" Then

**Petogaz** · 09/03/2006, 13h41

salut,

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

**Squelet** · 09/03/2006, 13h48

>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

**Squelet** · 09/03/2006, 13h51

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.

:

**zazaraignée** · 09/03/2006, 14h00

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

Envoyé par Squelet

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

Alors pouquoi tester sur l'égalité

Code :

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

If Cellule.Value = 0 Then

?

**Squelet** · 09/03/2006, 14h06

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 :

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

If Cellule.value <> 0 then

:

**Squelet** · 09/03/2006, 14h09

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 !!!!

**Squelet** · 09/03/2006, 14h11

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 ?

**zazaraignée** · 09/03/2006, 14h16

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 ?

**jmfmarques** · 09/03/2006, 14h17

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 ...!

**SfJ5Rpw8** · 09/03/2006, 17h28

on peu savoir ce qu'il y as dans ta cellule I2 ? une formule ? (laquelle?)

**Squelet** · 10/03/2006, 07h38

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

**SfJ5Rpw8** · 10/03/2006, 09h20

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 :

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
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