determiner si Row paire ou impair

[CHti160]

bonsoir "à tous"
une question afin de résoudre un probleme de ligne d'une cellule Active
ce que je veux faire
si la valeur de la ligne de la cellule active est paire
la couleur de fond de la cellule est = 8
si impair est = 7

j'ai tenté:ceci

Select Case cell.Value
Case Is = IsNumeric(cell.Value) '<----- là pas sûr
typ = cell.ligne() Mod (2) '<----- là non plus
If typ = True Then
cell.Interior.ColorIndex = 8
Else
cell.Interior.ColorIndex = 7
End If
Merci d'Avance
A+++
Jean Marie

 

[omicron]

Bonsoir CHtil60

Deux petites choses clochent dans ta séquence de code :

1°.
Cell.Value permet de tester le contenu de la cellule Cell et non le N° de ligne contenant la cellule. Tu obtiendras ce dernier par la propriété
Cell.Row

2°.
typ =Cell.Row mod 2 te donne le reste de la division par 2 du n° de ligne de la cellule c'est à dire le nombre 0 il faudrait donc tester
if typ = 0 then (alors la ligne est paire)
ceci dit, dans ce cas de figure, tu peux aussi tester le résultat par "true" ou "false" (booléen) qui sont respectivement équivalents à "0" ou "1", mais celà n'est pas propre en terme de programmation. Si tu retenais toutefois ce choix, il faudrait tester
if type=false (alors la ligne est paire)

Ci dessous un petit bout de code qui te permettra d'atteindre le résultat escompté. Lorsque l'on "clique" sur le bouton toutes les cellules sélectionnées sont testée et coloriées en vert ou en rouge suivant la parité de la ligne à laquelle elles appartiennent.

=====================================================
Private Sub CommandButton1_Click()
For Each Cel In Selection
If Cel.Row Mod 2 = 0 Then
Cel.Interior.ColorIndex = 8
Else
Cel.Interior.ColorIndex = 7
End If
Next Cel
End Sub
=====================================================

En te souhaitant bon courage pour la suite....

Omicron.

 

[Temjeh]

Bonsoir a vous deux

Aussi je croit que c'est possible sans macro:

Ca peut ce faire avec Mise en forme conditionnelle

Si la valeur de la cellule est:

=(MOD(A1;2))...pour impair et comme condition tu met le fond au choix
=(MOD(A1;3))...pour les pair

A++

Temjeh

 

[Temjeh]

Désolé ca marche pour les impairs mais mon code est pas bon pour les pairs

A++

 

[Temjeh]

Rebonsoir

Toujours dans ....Si la valeur de la cellule est:

=MOD(A1;2)...pour impair et comme condition tu met le fond au choix
=MOD(A1;2)-1...pour les pair

Désolé on met ca sur la fatique

Temjeh

 

[CHti160]

merci à tous en cherchant beaucoup mai vite j'avais trouvé
A+++
Jean Marie