Discussion :

[bosk1000]

Bonjour a tous,
sur une colone, j'essaie de remplir de couleur verte les cellules non vides avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub TEST()
'mise en couleur vert
Dim numdl, i, plein as variant
 numdl = Range("c65536").End(xlUp).Row
For i = 4 To numdl
    Range("c" & i).Select
           plein = ActiveCell
        If plein = Not Empty Then Selection.Interior.ColorIndex = 4
        Next i
End Sub

et ça ne fonctionne pas
en remplaçant le "not empty" par "empty" ça fonctionnait pour remplir toutes les cellules vides
alors pourquoi pas dans les non vides
merci pour votre aide

[Antoniom]

Hello,

Pourquoi, je ne saurais te le dire, mais si tu remplaces cette ligne

Code :

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

If plein = Not Empty Then Selection.Interior.ColorIndex = 4

par cette ligne ça marche !

Code :

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

If plein <> "" Then Selection.Interior.ColorIndex = 4

Bye.

Anton.

[Krovax]

Pourquoi, je ne saurais te le dire

Dans ce cas je vais essayer de le faire pour toi.

IsEmpty s'utilise ainsi

Code :

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

If Not IsEmpty(Range("c" & i)) Then

Is empty renvoie un booléen vrai si vide faux si plein donc avec le not on inverse. Le test est vrai si la cellule est pleine.
Ton code

Code :

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

1
2
 
If plein <> "" Then

test le contenue de la celulle

Quelque remarque concernant le code.
Déclarer les variable en variant n'est pas vraiment une bonne habitude. C'est le type de variable qui prend le plus de mémoire ce qui peu ralentir de gros code.

Deuxièmement toujours pour la déclaration de variable si on écrit

Code :

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

dim i, j , k as integer

seul k sera un entier, il faut écrire

Code :

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

dim i as integer, j as integer, k as integer

Le code corrigé et simplifié donne

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub TEST()
'mise en couleur vert
Dim numdl as integer, i as integer
numdl = Range("c65536").End(xlUp).Row
For i = 4 To numdl
        If Not IsEmpty(Range("c" & i)) Then Selection.Interior.ColorIndex = 4
Next i
End Sub

[bosk1000]

un grand merci a vous deux pour votre aide

le probleme est résolu

j'avoue avoir du mal avec les declaration de variable car j'ai du mal a percevoir quelle est celui dont j'ai besoi entre string, ineger, simple, currency, etc..
je trouve les explication sur les manuel pas assez clair a ce sujet

[Gorfael]

Salut bosk1000 et le forum

Code :

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

1
2
3
4
5
6
7
Sub TEST()
'mise en couleur vert
Dim Plein As Range
For Each Plein In Range([C4], [C65536].End(xlUp))
    If Not (IsEmpty(Plein)) Then Plein.Interior.ColorIndex = 4
Next Plein
End Sub

une proposition
A+