Discussion :

[jcaspar]

Bonjour à tous !

Je souhaite effectuer une mise enforme conditionnelle
avec plusde trois conditions et l'appliquer sur toute une rangée
ou sur plusieurs rangées comment puis je procéder ?

Merci beaucoup pour vos explications !

Jean Marc

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
    Select Case Range("a1" ).Cells 
        Case 1 To 10: Range("a1" ).Interior.ColorIndex = 35 
        Case 11 To 100: Range("a1" ).Interior.ColorIndex = 40 
        Case 101 To 1000: Range("a1" ).Interior.ColorIndex = 3 
        Case 1001 To 20000: Range("a1" ).Interior.ColorIndex = 38 
    End Select 
End Sub

[ouskel'n'or]

Une rangée ver la droite ou un rangée vers le bas ?
Je suppose que tu parles d'une colonne
Je pense que tu veux faire ça mais pourquoi le placer dans Worksheet_Change et non dans un module standard ?

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Row
        Case 1 To 10: Range("a1:a10").Interior.ColorIndex = 35
        Case 11 To 100: Range("a11:a100").Interior.ColorIndex = 40
        Case 101 To 1000: Range("a101:a1000").Interior.ColorIndex = 3
        Case 1001 To 20000: Range("a1001:a20000").Interior.ColorIndex = 38
    End Select
End Sub

A+

[cafeine]

Hello,

personnellement, je le vois plutôt comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Column = 1 Then
    For Each c In Target
        Select Case c.Value
            Case 1 To 10: c.Interior.ColorIndex = 35
            Case 11 To 100: c.Interior.ColorIndex = 40
            Case 101 To 1000: c.Interior.ColorIndex = 3
            Case 1001 To 20000: c.Interior.ColorIndex = 38
        End Select
    Next c
End If
 
End Sub

[cafeine]

Arf ... comme quoi ce n'était pas clair, nous n'avons pas compris la meme chose ...

[ouskel'n'or]

On ne parlait pas de la même rangée, mais il a dit "Toute la rangée" alors...
Mais j'aime bien ton code pour nuancer les résultats scolaires d'un élève...
Y'a pas un prof, par là ?