Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Eviter certains nombres aleatoires

mamour60

XLDnaute Junior
Bonsoir a tous,

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

Merci de votre aide.

Bruno
 

Pièces jointes

  • ALEA.xls
    23.5 KB · Affichages: 44
  • ALEA.xls
    23.5 KB · Affichages: 40
  • ALEA.xls
    23.5 KB · Affichages: 42

R@chid

XLDnaute Barbatruc
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

mamour60

XLDnaute Junior
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
 

Si...

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
17
Affichages
811
Réponses
7
Affichages
237
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…