Discussion :

[Benouman]

Bonjour,

J'ai un tableau excel qui contient des données bien-sure, ce que j'essaie de faire c'est:
Lorsque le contenu de la cellule E est vide mettre la police de toutes les autres colonnes de la même ligne en blanc. j'ai fait ce code pour tester sur la colonne C en premier lieu mais ça ne fonctionne pas...

Code :

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

1
2
3
4
5
6
7
8
9
Sub Hide_text()
Dim l As Long
 
    For l = Range("c65536").End(xlUp).Row To 1 Step -1
        If Range("E" & l) = """" Then
            Range("C" & l).Font.ColorIndex = 1
        End If
    Next l
End Sub

Merci pour votre aide,

[mercatog]

Pour l’écriture de la condition

Code :

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

if range("E"&l)="" then

[Benouman]

Même chose...

Pour l’écriture de la condition

Code :

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

if range("E"&l)="" then

[mercatog]

colorindex=1 c'est du noir (en principe)


Sinon

Code :

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

Range("C" & i).Font.Color = RGB(255, 255, 255)

Par contre par une simple MFC, tu n'auras plus besoin de boucles

[eriiic]

Bonjour à tous ,

avec Range("C" & l).Font.ColorIndex = 1 tu ne fais qu'une seule cellule.
Pour la lignes entière :

Code :

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

Rows(l).Font.ColorIndex = x

Pour 10 colonnes depuis C

Code :

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

Range("C" & l).Resize(,10).Font.ColorIndex = x

eric

[Benouman]

Super,
Un gros merci à vous tous,...