Créer une boucle

Signaler
Messages postés
10
Date d'inscription
mardi 26 février 2019
Statut
Membre
Dernière intervention
29 novembre 2019
-
Gasymazoto
Messages postés
10
Date d'inscription
mardi 26 février 2019
Statut
Membre
Dernière intervention
29 novembre 2019
-
Bonjour les amis,
Je suis nouveau en VBA mais très motivé

Voici mon souci: Dans A1, A2......A7 j'ai A1= 34 A2= 27....... et dans A7 j'ai 45 (des nombres paires et impaires pris au hasard). J'aimerai définir dans la colonne d'à côté si le nombre est paire ou impaire.

J'ai réussi dans A1 qui est un nombre paire avec 34 (mod 2=0).
Comment faire pour ne pas répéter la même action jusqu'à A7 ? Comment ecrire les instructions? de telle sorte à créer une boucle


Merci infiniment.
Messages postés
11458
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
12 décembre 2019
1546
Bonjour

1) Pourquoi vouloir le faire par macro puisque par formule c'est possible (=SI(EST.PAIR(A1);"Pair";"Impair")

2) Néanmoins pour boucler sur les cellules
For n=1 to 7
If Range("A" & n) Mod 2 = 0 Then p = "Pair" Else p = "Impair"
Range("B" & n) = p
Next


Cdlmt
Via
Gasymazoto
Messages postés
10
Date d'inscription
mardi 26 février 2019
Statut
Membre
Dernière intervention
29 novembre 2019

La proposition 2) me convient parfaitement, d'ailleurs je l'ai appliqué. Je suis très content et optimiste à la fois. Un grand merci.

En fait, je venais de commencer mon apprentissage sur vba alors je n'ai pas vraiment de possibilité concernant les méthodes. Ce site m'aide énormément via vos réponses

A bientôt
(j'encourage d'ailleurs débutant à s'inscrire car les expériences des personnes abonnées sont très enrichissantes)