au secour!!!

[crunch]

bon j y comprends plus grand chose

voila mon probleme je voudrai que sur une feuille de calcul les resultats apparaissent d une couleur differente en fonction de leur valeur

jusque la pas de probleme il y a un exemple dont je me suis inspiré sur excel download

probleme sur ma page de test ca marche
sur la page ou je veux que ca marche ca marche pas

pourtant c est exactement le meme code (copier collé) si ce n est le numero du worksheet qui change
voir le fichier join le worksheet test et le worksheet calculs

2 eme question ou puisje trouver un bon tutoriel sur comment créer des combobox

 

[crunch]

visiblement le fichier est pas passé voila le code

pour worksheet10

Private Sub Worksheet_Change(ByVal Target As Range)

'Application.ScreenUpdating = False Pour désactiver la mise à jour de l'affichage'

For Each c In Worksheets(10).Range("N10:S120 ")


If c.Value >= 25 And c.Value < 30 Then
c.Interior.ColorIndex = 23
c.Font.ColorIndex = 2
End If

If c.Value >= 10 And c.Value < 15.001 Then
c.Interior.ColorIndex = 8
c.Font.ColorIndex = 0
End If

If c.Value > 0 And c.Value < 5.0001 Then
c.Interior.ColorIndex = 44
c.Font.ColorIndex = 0
End If
If c.Value = "abs" Then
c.Interior.ColorIndex = 3
c.Font.ColorIndex = 20
c.Font.Bold = True
End If
If c.Value = "" Then
c.Interior.ColorIndex = 0
c.Font.ColorIndex = 0
c.Font.Bold = False
End If


Next c
Application.ScreenUpdating = True
End Sub



pour worksheet1



Private Sub Worksheet_Change(ByVal Target As Range)

'Application.ScreenUpdating = False Pour désactiver la mise à jour de l'affichage'

For Each c In Worksheets(1).Range("N10:S120 ")


If c.Value >= 25 And c.Value < 30 Then
c.Interior.ColorIndex = 23
c.Font.ColorIndex = 2
End If

If c.Value >= 10 And c.Value < 15.001 Then
c.Interior.ColorIndex = 8
c.Font.ColorIndex = 0
End If

If c.Value > 0 And c.Value < 5.0001 Then
c.Interior.ColorIndex = 44
c.Font.ColorIndex = 0
End If
If c.Value = "abs" Then
c.Interior.ColorIndex = 3
c.Font.ColorIndex = 20
c.Font.Bold = True
End If
If c.Value = "" Then
c.Interior.ColorIndex = 0
c.Font.ColorIndex = 0
c.Font.Bold = False
End If


Next c
Application.ScreenUpdating = True
End Sub

 

[Celeda]

Bonsoir,

1- On met des fichiers zippés sur XLD pour économiser de la place.

2- On utilise des titres de post ''parlants". Pour le moteur de recherche, il est plus efficace d'avoir un titre qui puisse remonter à la source. De plus, nous tenons une database et je ne peux pas référencer ''Au secours!!.

3- Voici ton fichier retouché par Zon en direct : il a dicté les modifs pendant que je faisais le fichier. Cela c'est du travail d'équipe. Tu trouveras dedans deux méthodes : une évenementielle et une autre avec un bouton sur une feuille pour déclencher la couleur. A voir avec les codes les explications.
(merci Zon pour le cours)

4- Si tu vas dans la centrale de téléchargement, tu trouveras un excellent classeur fait pour et par les contributeurs- trices de XLD sur des listes.
Dedans, tu y trouveras des demos de Combobox à t'en faire renverser de joie.

Si problème, n'hésite pas mais pas avec ''Au Secours''

Celeda