For--Next

[Moa]

Salut à Toutes et tous !

Cela fait plusieurs jours que je ne suis pas venu sur le forum...!! que de nouveaux posts...!!..ça bouge ici...

Bon voilà ma question (débile..je sais...)

J'ai essayé de faire une macro, me permetant dans une plage de cellule, d'effacer toutes les cellules dont le texte est rouge.

Le problème est que ma macro s'arrête à la première cellule de ma sélection au lieu de faire toute la plage spécifiée.

Ou est l'erreur ?

Sub EffacRou()
'
For Each Cellule In Range("d5:Ao5")
If Selection.Font.ColorIndex = 3 Then
Selection.ClearContents
Next Cellule

End Sub

De plus une fois ma macro exécutée, j'aimerais la relancer toutes les 3 lignes dans mon tableau (qui lui se termine à la ligne 63)

Merci beaucoup d'avance de votre aide.


@ +

Moa

 

[Flaille]

Salut

J'écrirai

If cellule.Font.ColorIndex = 3 Then
cellule.ClearContents

Bye

 

[A_binouze_drinker_among_others]

if cellule.font..................

 

[eric]

C'est un peu différent de ton code initial, mais ça marche :

For i = 5 To 63 'numéro de ligne
For j = 4 To 41 'numéro de colonne
Cells(i, j).Select
If ActiveCell.font.ColorIndex = 3 Then
Selection.ClearContents
End If
Next j

Next i

 

[Moa]

Re :

Flaille et Binouze, ça marche bien merci.

Eric, ça marche bien aussi, mais trop..héhé, car si je veux sauter de trois lignes, pour appliquer ma macro, c'est parce qu'entre ces trois lignes, il y a d'autres résultats en rouges eux aussi, mais que je dois garder.

Donc, dans mon cas, ta macro ne me convient pas:

En fait ce qu'il faut faire c'est un offset de 3 lignes à partir de la première sélectionée, avant de réappliquer la macro.

Merci à tous

@ +

Moa

 

[eric]

Un petit oubli, c'est uniquement toutes les 3 lignes :

ajoute i=i+3 entre next j et next j

 

[Moa]

Oui merci Eric, juste un petit truc, il faut mettre i + 2, sinon avec i + 3, il m'éfface toutes les 4 lignes.

Sinon, ça marche bien.

Gros merci à vous trois !

@ Bientôt

Moa

 

[Mytå]

bonsoir le forum

encore mieux au lieu de i+2

for i=t to 63 step 3
...
...
next i

Mytå