Discussion :

[NEC14]

Bonjour à tous,

J'ai trouvé ce code dans un post sur ce site, code écrit par patricktoulon. Ma question est : est-ce que je peux utiliser ce code si je souhaite qu'une cellule soit colorée si elle est non vide.

Pour le moment, toutes les cellules sont en bleues, et je souhaite que la cellule où j'ai saisi quelque chose devienne blanche.

Un détail qui a son importance, dans toutes les cellules il y a une formule de calcul, donc tant que le résultats est nul, la cellule reste vide, elle doit donc changer uniquement si le résultat est supérieur à zéro.

Merci par avance

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
18
19
20
 
Dim cell As Range
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' on limite a l'index le plus haut de la pallete couleur excel
 
 
    If Intersect(Target, Range("a1")) Is Nothing Then
    Else
        If Target.Value > 56 Then Target.Value = 56
 
 
        For Each cell In Sheets("Feuil1").Range("a1:p200")
            DoEvents    ' selon ta plage ca peut etre plus ou moins long
 
'ici ''je ''teste ''si 'il 'y 'a 'le 'mot "couleur" 'tu 'peut 'tres 'bien ''tester 'la 'presence 'de 'la 'fonction
 If cell = "couleur" Then cell.Interior.ColorIndex = Target.Value    'si la cellule ="couleur"on la paint avec le chiffre se triuvant dans la cellule a1
        Next
    End If
End Sub

[ZebreLoup]

Pourquoi pas une mise en forme automatique ?

[NEC14]

Bonjour zebreloup

Pour répondre à ta question, j'ai beaucoup trop de cellules, je trouve plus rapide la méthode VBA que de recopier la formule à chaque fois. En plus, j'ai 5 feuilles de calcul.

Mais bon, ton idée n'est pas mauvaise, j'y ai pensé.

[ZebreLoup]

Tu sais que tu peux appliquer une mise en forme automatique sur un groupe de cellules ? Au pire tu dois copier 5 fois la formule si tu as 5 feuilles. Mais de toute façon, tu devras copier ton code sur toutes les feuilles, donc...

[NEC14]

Oui tu as tout à fait raison. Je vais appliquer ça.

Merci pour ton aide

A+