Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel format cell in range

format cell in range

3 réponses
Avatar
René
Bonjour, (j'suis pas pro!)
Je cherche a formater les cellules d'un range donné, qqes chose comme...

Sub AAA()
Set rng = Range("E5:K10")
rng.Select
cellu = cells(1)
For Each cellu In rng
If cellu.Value >= 1 Then
With Selection.Interior
.ColorIndex = 34
End With
End If
cellu = cellu + 1
Next cellu
Range("A1").Select
End Sub

Merci pour votre aide
René
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Sitting Hoax \(BM\)
Bonsoir,
ça marchait comme tu l'avais fait,
mais j'ai juste un peu élagué le code
Sub AAA()
For Each cellu In Range("E5:K10")
If cellu.Value >= 1 Then
cellu.Interior.ColorIndex = 34
End If
Next cellu
Range("A1").Select
End Sub

Amicalement
Sitting Hoax
"René" a écrit dans le message de
news:
Bonjour, (j'suis pas pro!)
Je cherche a formater les cellules d'un range donné, qqes chose comme...

Sub AAA()
Set rng = Range("E5:K10")
rng.Select
cellu = cells(1)
For Each cellu In rng
If cellu.Value >= 1 Then
With Selection.Interior
.ColorIndex = 34
End With
End If
cellu = cellu + 1
Next cellu
Range("A1").Select
End Sub

Merci pour votre aide
René


Avatar
René
Ca marche, merci bcp.

"Sitting Hoax (BM)" wrote:

Bonsoir,
ça marchait comme tu l'avais fait,
mais j'ai juste un peu élagué le code
Sub AAA()
For Each cellu In Range("E5:K10")
If cellu.Value >= 1 Then
cellu.Interior.ColorIndex = 34
End If
Next cellu
Range("A1").Select
End Sub

Amicalement
Sitting Hoax
"René" a écrit dans le message de
news:
Bonjour, (j'suis pas pro!)
Je cherche a formater les cellules d'un range donné, qqes chose comme...

Sub AAA()
Set rng = Range("E5:K10")
rng.Select
cellu = cells(1)
For Each cellu In rng
If cellu.Value >= 1 Then
With Selection.Interior
.ColorIndex = 34
End With
End If
cellu = cellu + 1
Next cellu
Range("A1").Select
End Sub

Merci pour votre aide
René







Avatar
Michel Gaboly
Bonsoir,

Par ailleurs, VBA n'est pas nécessaire, la mise en forme conditionnelle
(MEFC), fait cela très bien :

Sélectionne la plage concernée, et choisis MEFC dans le menu Format

Clique sur "La valeur de la cellule est" et choisis l'autre option ("La
formule est").

Entre "¡ > 1" en remplaçant "A1" par la référence de la cellule active.

Cliques ensuite sur le bouton Format, puis sur Motifs et choisis la
couleur voulue.

Valide et c'est fait. En +, c'est dynamique : si la valeur de la cellule
est modifiée, le formatage s'adapte.



Bonsoir,
ça marchait comme tu l'avais fait,
mais j'ai juste un peu élagué le code
Sub AAA()
For Each cellu In Range("E5:K10")
If cellu.Value >= 1 Then
cellu.Interior.ColorIndex = 34
End If
Next cellu
Range("A1").Select
End Sub

Amicalement
Sitting Hoax
"René" a écrit dans le message de
news:

Bonjour, (j'suis pas pro!)
Je cherche a formater les cellules d'un range donné, qqes chose comme...

Sub AAA()
Set rng = Range("E5:K10")
rng.Select
cellu = cells(1)
For Each cellu In rng
If cellu.Value >= 1 Then
With Selection.Interior
.ColorIndex = 34
End With
End If
cellu = cellu + 1
Next cellu
Range("A1").Select
End Sub

Merci pour votre aide
René







--
Cordialement,

Michel Gaboly
www.gaboly.com