Eviter certains nombres aleatoires

R@chid

XLDnaute Barbatruc

• 12 Novembre 2012

• #2

Re : Eviter certains nombres aleatoires

Bonsoir,
une intervention par formule si ça te convient...
Amicalement

 

Pièces jointes

• ALEA.xls

  34 KB · Affichages: 49
• ALEA.xls

  34 KB · Affichages: 52
• ALEA.xls

  34 KB · Affichages: 52

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 13 Novembre 2012

• #3

Re : Eviter certains nombres aleatoires

Bonsour® R@chid

mamour60 à dit:

Bonsoir a tous,

Je vaudrais eviter certains nombres (Qui se trouve dans la colonne A)
lorsque je lance la macro.

Cliquez pour agrandir...

autre solution (chirogourdiste) sans macro,...

 

Pièces jointes

• ALEA0.xls

  65.5 KB · Affichages: 50

Vote positif 0 Vote négatif

M

mamour60

XLDnaute Junior

• 13 Novembre 2012

• #4

Re : Eviter certains nombres aleatoires

Bonjour Modeste geedee
Bonjour R@chid

Merci pour les exemples que je vais garder mais l'idéal pour moi
c'est de le faire par macro

Donc si vous avez une solution je suis preneur.

Bonne journée et encore merci

Bruno

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 13 Novembre 2012

• #5

Re : Eviter certains nombres aleatoires

salut

vois Si... tu peux adapter

Code:

Sub test()
  Dim n As Byte
  Do
    n = Int((50 * Rnd) + 1)
  Loop Until Application.CountIf(Range("A2:A6"), n) = 0
 [D5] = n
End Sub

 

Vote positif 0 Vote négatif

M

mamour60

XLDnaute Junior

• 13 Novembre 2012

• #6

Re : Eviter certains nombres aleatoires

Bonjour Si... ,


Super c'est exactement ce que je voulais

Alors un grand merci à vous de votre aide
@+

B runo

 

Vote positif 0 Vote négatif