For each cellules selectionnées?

[jeromegmc]

Salut,

Je voudrais utiliser un 'for each' pour dire dans chaque cellule active test si le n° de ligne est paire, si oui remplissage jaune.

Mais je bloque avec le for each, en fait le test ce fait seulement sur la cellule active et par sur les cellules selectionnées.


Pour info: Dans quel but je veux faire ça:
Je veux pour les cellules selectionnées (selection faite avant le lancement de la macro ou avec un input box) appliquée une couleur de remplissage alternée clair/foncé.



Quelqu'un a une solution à ma question ou une macro pour le problème complet?

Merci d'avance.

A+

Message édité par: jeromegmc, à: 07/07/2005 16:34

 

[Titi_Malembourg]

Le 'for each S in Selection' ne marche pas ?

 

[jeromegmc]

J'utilse ce code, et 'myrow' n'évolue pas:

Set mycells = Application.InputBox(prompt:='Sélectionnez la plage de cellules.', _
Title:='Plage de cellules', Left:=500, Top:=300, Type:=8)

For Each cellule In mycells
myrow = mycells.Row Mod 2
If myrow = 0 Then
Selection.Interior.ColorIndex = 15
End If
Next

Une idée?

 

[JPM]

Bonsoir,

et la variable cellule du for each, elle sert à quoi ?

je rigole

donc dans la boucle le test doit se faire sur le n° de ligne de cellule et c'est la couleur de cellule qu'il convient de modifier !
ce qui donne :

Set mycells = Application.InputBox(prompt:='Sélectionnez la plage de cellules.', _
Title:='Plage de cellules', Left:=500, Top:=300, Type:=8)

For Each cellule In mycells
myrow = cellule.Row Mod 2
If myrow = 0 Then
cellule.Interior.ColorIndex = 15
End If
Next


Jean-Pierre

 

[JPM]

Excuse José, j'ai pas été assez rapide

 

[jeromegmc]

Merci les gars ça marche,

Encore une erreur bête!!!!!!!!!!!