Bonjour,
Je reprends une question déjà posée. J'ai essayé de la tester et le résultat
n'est pas probant.
René écrivait:
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
Et Sitting Hoax répondait:
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
Si cette dernière macro fonctionne parfaitement, celle de René colore
toutes les cellules de la sélection.
Pouvez m'indiquer où se trouve le défaut??
Merci
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
anomymousA
bonjour,
poiur la bonne et simple raison que l'objet qui est selectionné est rng (<=> range("E5:K10") et que cette selection n'est pas momdifiée dans la boucle for each next. En conséquence , à la premeière occurence d'une cellule dans rng qui contient une valeur>=1, Excel colorie la selection ( en raison de la référence à selection).
Alors que l'ami sittinh Goax lui fait référence dans sa boucle non pas à selection mais à cellu, ce qui est très différent.
CQFD
A+
Bonjour, Je reprends une question déjà posée. J'ai essayé de la tester et le résultat n'est pas probant.
René écrivait:
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
Et Sitting Hoax répondait:
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
Si cette dernière macro fonctionne parfaitement, celle de René colore toutes les cellules de la sélection. Pouvez m'indiquer où se trouve le défaut?? Merci
bonjour,
poiur la bonne et simple raison que l'objet qui est selectionné est rng (<=>
range("E5:K10") et que cette selection n'est pas momdifiée dans la boucle for
each next. En conséquence , à la premeière occurence d'une cellule dans rng
qui contient une valeur>=1, Excel colorie la selection ( en raison de la
référence à selection).
Alors que l'ami sittinh Goax lui fait référence dans sa boucle non pas à
selection mais à cellu, ce qui est très différent.
CQFD
A+
Bonjour,
Je reprends une question déjà posée. J'ai essayé de la tester et le résultat
n'est pas probant.
René écrivait:
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
Et Sitting Hoax répondait:
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
Si cette dernière macro fonctionne parfaitement, celle de René colore
toutes les cellules de la sélection.
Pouvez m'indiquer où se trouve le défaut??
Merci
poiur la bonne et simple raison que l'objet qui est selectionné est rng (<=> range("E5:K10") et que cette selection n'est pas momdifiée dans la boucle for each next. En conséquence , à la premeière occurence d'une cellule dans rng qui contient une valeur>=1, Excel colorie la selection ( en raison de la référence à selection).
Alors que l'ami sittinh Goax lui fait référence dans sa boucle non pas à selection mais à cellu, ce qui est très différent.
CQFD
A+
Bonjour, Je reprends une question déjà posée. J'ai essayé de la tester et le résultat n'est pas probant.
René écrivait:
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
Et Sitting Hoax répondait:
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
Si cette dernière macro fonctionne parfaitement, celle de René colore toutes les cellules de la sélection. Pouvez m'indiquer où se trouve le défaut?? Merci
News pour elie
BONJOUR ET MERCI, JE VAIS RETESTER . Je finirais bien par comprendre ..;
"anomymousA" a écrit dans le message de news:
bonjour,
poiur la bonne et simple raison que l'objet qui est selectionné est rng (<=>
range("E5:K10") et que cette selection n'est pas momdifiée dans la boucle for
each next. En conséquence , à la premeière occurence d'une cellule dans rng
qui contient une valeur>=1, Excel colorie la selection ( en raison de la référence à selection).
Alors que l'ami sittinh Goax lui fait référence dans sa boucle non pas à selection mais à cellu, ce qui est très différent.
CQFD
A+
Bonjour, Je reprends une question déjà posée. J'ai essayé de la tester et le résultat
n'est pas probant.
René écrivait:
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
Et Sitting Hoax répondait:
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
Si cette dernière macro fonctionne parfaitement, celle de René colore toutes les cellules de la sélection. Pouvez m'indiquer où se trouve le défaut?? Merci
BONJOUR ET MERCI,
JE VAIS RETESTER .
Je finirais bien par comprendre ..;
"anomymousA" <anomymousA@discussions.microsoft.com> a écrit dans le message
de news:87830B9B-278E-4A0B-9B37-F03993F3ED97@microsoft.com...
bonjour,
poiur la bonne et simple raison que l'objet qui est selectionné est rng
(<=>
range("E5:K10") et que cette selection n'est pas momdifiée dans la boucle
for
each next. En conséquence , à la premeière occurence d'une cellule dans
rng
qui contient une valeur>=1, Excel colorie la selection ( en raison de la
référence à selection).
Alors que l'ami sittinh Goax lui fait référence dans sa boucle non pas à
selection mais à cellu, ce qui est très différent.
CQFD
A+
Bonjour,
Je reprends une question déjà posée. J'ai essayé de la tester et le
résultat
n'est pas probant.
René écrivait:
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
Et Sitting Hoax répondait:
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
Si cette dernière macro fonctionne parfaitement, celle de René colore
toutes les cellules de la sélection.
Pouvez m'indiquer où se trouve le défaut??
Merci
BONJOUR ET MERCI, JE VAIS RETESTER . Je finirais bien par comprendre ..;
"anomymousA" a écrit dans le message de news:
bonjour,
poiur la bonne et simple raison que l'objet qui est selectionné est rng (<=>
range("E5:K10") et que cette selection n'est pas momdifiée dans la boucle for
each next. En conséquence , à la premeière occurence d'une cellule dans rng
qui contient une valeur>=1, Excel colorie la selection ( en raison de la référence à selection).
Alors que l'ami sittinh Goax lui fait référence dans sa boucle non pas à selection mais à cellu, ce qui est très différent.
CQFD
A+
Bonjour, Je reprends une question déjà posée. J'ai essayé de la tester et le résultat
n'est pas probant.
René écrivait:
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
Et Sitting Hoax répondait:
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
Si cette dernière macro fonctionne parfaitement, celle de René colore toutes les cellules de la sélection. Pouvez m'indiquer où se trouve le défaut?? Merci
