Discussion :

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[Invité]

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.