Discussion :

[Lou_anne]

Bonjour,

Je voudrais savoir comment, dans une liste de nombres quelquonque on peut trouver les nombres impairs.
Attention, je ne souhaite pas compter les nombres impairs mais les retranscrire dans une autre colonne.

Merci d'avance!!

[ouskel'n'or]

Donne un exemple de ta liste
Sinon, regarde mod, dans l'aide. Un entier dont le modulo 2 donne un reste est un nombre impair.
Tu ne dis pas si tu as des décimales
Exemple

Code :

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

1
2
3
4
Liste = Array(25, 12, 78, 45, 19, 14, 5)
for i = 0 To Ubound(Liste)
    if Liste(i) mod 2 <> 0 then msgbox "tu l'as ton nombre impair ! " & Liste(i)   
next

[Lou_anne]

Je n'ai pas de nombre décimaux.
Exemple tout bête:
2
3
4
5
6
et je voudrais qu'il me remette donc dans la colonne a côté:
3
5

[Eruil]

ouskel'n'or a raison c'est le modulo qui va te sauver

Code :

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

1
2
3
4
 
function estImpair(nombre as integer)
   estImpair=(nombre mod 2 <> 0)
end function

estImpair(3) renvoie true
estImpair(4) renvoie faux

[ouskel'n'or]

Tu cherches la dernière ligne de ta colonne

Code :

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

    DerniereLigne = Range("A65535").End(xlUp).Row

puis tu lis la valeur de chaque ligne

Code :

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

1
2
3
For i = 1 to DerniereLigne
     Cells(i,2).value = Cells(i,1) mod 2 <> 0
Next

VRAI = Impair
FAUX = Pair

[wilfried_42]

bonjour à tous


en b1 tu mets : =si(mod(A1;2)=1;A1;"")

tu etires la formule vers le bas

[wilfried_42]

re:

sinon je te joins un fichier, avec fonction personnalisée permetant de supprimer les cellules vides

[Lou_anne]

Tu cherches la dernière ligne de ta colonne

Code :

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

    DerniereLigne = Range("A65535").End(xlUp).Row

puis tu lis la valeur de chaque ligne

Code :

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

1
2
3
For i = 1 to DerniereLigne
     Cells(i,2).value = Cells(i,1) mod 2 <> 0
Next

VRAI = Impair
FAUX = Pair

Super, par contre, je voulais afficher les nombres impairs sans lignes vides en colonne B
J'ai mis
If Cells(i, 2) = True Then Cells(i, 2).Value
If Cells(i, 2) = False Then Cells(i, 2).clearcontent
mais ca marche pas
Désolé je débute en VBA

[ouskel'n'or]

En une fois, c'est mieux

Code :

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

1
2
3
For i = 1 to DerniereLigne
     If Cells(i,1) mod 2 <> 0 then Cells(i,2).value = Cells(i,1).value
Next

[Lou_anne]

En une fois, c'est mieux

Code :

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

1
2
3
For i = 1 to DerniereLigne
     If Cells(i,1) mod 2 <> 0 then Cells(i,2).value = Cells(i,1).value
Next

Oui d'accord mais ca ne m'enlève pas les lignes vides qui contenaient des nombres pairs dans la colonne A.
Comment faire? avec un offset?
Merci!!

[ouskel'n'or]

Faut tout dire du premier coup
Attention, ce code te supprime toutes les lignes contenant un nombre Pair.
C'est ce que tu veux ? Là, on part à l'envers, cad de la dernière ligne

Code :

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

1
2
3
4
5
6
7
For i = DerniereLigne to 1 step - 1
     If Cells(i,1) mod 2 <> 0 then 
           Cells(i,2).value = Cells(i,1).value
         else
           Cells(i,1).entireRow.delete
     endif
Next

A+

[Lou_anne]

Faut tout dire du premier coup
Attention, ce code te supprime toutes les lignes contenant un nombre Pair.
C'est ce que tu veux ? Là, on part à l'envers, cad de la dernière ligne

Code :

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

1
2
3
4
5
6
7
For i = DerniereLigne to 1 step - 1
     If Cells(i,1) mod 2 <> 0 then 
           Cells(i,2).value = Cells(i,1).value
         else
           Cells(i,1).entireRow.delete
     endif
Next

A+

Oui c'est ec que je veux mais par contre, ca me met deux fois les nbres impairs dans colone A puis col B

[Lou_anne]

ah non ca y'est c'est bon, j'ai trouvé!!
Mais je sais pas si je préfereai pas mettre les nombres impairs à côté
je vais voir
si c'est pas bon, je reviens vers toi!!
Merci bcp!

[ouskel'n'or]

Desole mais je ne serqi plus la (et jai un pb de clavier)

[random]

hum hum il existe deux fonctions dans analyse

isodd et iseven