Parité et Impression

Bonjour,

Je suis nouveau inscrit sur le forum mais pas un nouveau lecteur. J'en profite pour remercier ceux qui font vivre ce site très instructif.

Dans le cadre de mon stage, j'ai besoin de réaliser une opération sous Excel obligeant de passer par le VBA. Problème, je ne suis très (très) limité dessus.

Mon problème est le suivant :

Je dois tester la parité d'une cellule XX situé sur une feuille 1, imprimer sur une feuille 2 sur les cellules allant de AXX:AXX, 1 si la cellule est pair ou 0 pour impair.

Et je bloque un peu... J'ai vu que la fonction

Code:

---

If (Ma Cellule Active) Mod 2 = 0

---

peut-être utilisé pour la parité, mais je suis incapable de renvoyer le résultat sur une autre feuille suivant une plage de cellule...

Si quelqu'un peut m'aider, je vous remercie d'avance.

Charlot

Bonjour,

Je ne suis pas sûr d'avoir tout compris mais teste ce qui suit. La valeur 0 ou 1 est entrée en colonne "A" de la feuille "Feuil2" en fonction de la ligne de la cellule active :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Test()   With ActiveCell   Worksheets("Feuil2").Range("A" & .Row) = IIf(.Value Mod 2 = 0, 1, 0)   End With   End Sub

---

Hervé.

Merci, mais j'ai pu contourner le problème en utilisant des fonctions Excel, ça fonctionne mais ce n'est pas vraiment simple et pratique.
Mais merci de m'avoir répondu.