ALEA ENTRE BORNES sans doublons

Fermé

soubisien85 - 4 janv. 2017 à 14:23
yclik Messages postés 3783 Date d'inscription vendredi 25 juillet 2014 Statut Membre Dernière intervention 5 mars 2025 - 6 janv. 2017 à 12:09

Bonjour,
Comment s'il vous plait générer une liste de nombre de ( par exemple ) 1 à 15 sans qu'il n'y ait de doublons.

Merci pour vos réponses

Cordialement

Soubisien

A voir également:

Tirage au sort excel aléatoire sans doublon
Excel alea entre bornes sans doublon - Meilleures réponses
Tirage au sort excel sans doublon - Meilleures réponses
Tirage aléatoire sans doublon ✓ - Forum Excel
Liste déroulante excel - Guide
Supprimer doublon excel - Guide
Si et excel - Guide
Word et excel gratuit - Guide

4 réponses

Réponse 1 / 4

yclik Messages postés 3783 Date d'inscription vendredi 25 juillet 2014 Statut Membre Dernière intervention 5 mars 2025 1 537
4 janv. 2017 à 14:54

Bonjour
Voir là avec macro
remplacer 7 par 15 et 49 par 15

soubisien85 Messages postés 248 Date d'inscription vendredi 14 février 2014 Statut Membre Dernière intervention 21 avril 2019 3
4 janv. 2017 à 15:39

par contre pendant que j'y pense , pourriez vous s'il vous plaitme dire comment insérer le bouton qui commande la macro ce serait sympa
merci

Bonne Année

Cdt
SOUBISIEN

Réponse 3 / 4

yclik Messages postés 3783 Date d'inscription vendredi 25 juillet 2014 Statut Membre Dernière intervention 5 mars 2025 1 537
4 janv. 2017 à 16:54

Re
La seule formule ne permet pas d'éliminer les doublons il faut passer par une macro.
La feuille masquée ne sert pas et il est possible de la supprimer
Format>feuille...>Afficher
ensuite supprimer la feuille

dans la macro modifier
oSheet = ThisComponent.Sheets(1) remplacer 1 par 0

pour afficher la macro
ALT+F11
rechercher le classeur dans l'arborescence et le sélectionner
+Standard
-- module 1
Bouton "Editer"

pour créer un bouton
Affichage>barre d'outils>Contrôle de formulaire
Activer l'ébauche de formulaire via l'icône en forme d'équerre

Dessiner un bouton avec l'outil "Bouton"

affecter une macro
Une fois dessiné
Le sélectionner
clik Droit>Contrôle>Onglet "Evènement"
Sélectionner "Exécuter l'action"
Bouton "macro"
sélectionner la macro :

rechercher le classeur dans l'arborescence et le sélectionner
+Standard
-- module 1
sélectionner "Tirage"
et bouton "OK"
bouton "OK"

annuler l'ébauche de formulaire via l'icône en forme d'équerre

soubisien85 Messages postés 248 Date d'inscription vendredi 14 février 2014 Statut Membre Dernière intervention 21 avril 2019 3
5 janv. 2017 à 20:07

Bonsoir,

Alors là excusez moi, mais je ne pige pas dans la macro
oSheet = ThisComponent.Sheets(1) remplacer 1 par 0
je pensais enregistrer une macro avec aléa...
A quel moment dois je modifier et ou ?

Cordialement

Soubisien

yclik Messages postés 3783 Date d'inscription vendredi 25 juillet 2014 Statut Membre Dernière intervention 5 mars 2025 1 537 > soubisien85 Messages postés 248 Date d'inscription vendredi 14 février 2014 Statut Membre Dernière intervention 21 avril 2019
6 janv. 2017 à 12:09

Bonjour
issu du classeur trouvé ici

mettre ce code dans un module par copier coller

Sub Tirage_col_I
Dim i
Dim j
Dim val
Dim match
   oSheet = ThisComponent.Sheets(0)

   rem 15 est égal au nombre de cellule à remplir
  rem 8 = col I 
   For i = 1 To 15
    oCell = oSheet.getCellByPosition(8,i)
      Do
         match = False
         rem nb int(rnd()*xx) donne la limite
         val = int(rnd()*49) + 1
         For j = 1 To i
            If val = oSheet.getCellByPosition(1,j).getValue() Then
               match = True
            End If
         Next j
       Loop Until (match = False)
      oCell.setValue(val)
   Next i
End Sub

Discussions similaires

tirage aléatoire sans doublon

Tirage au sorte d'un nom dans une liste sans répetition - excel

Tirage aléatoire sans doublon : de plus en plus fort ... !

Tirage au sort sans doublon

formule aléatoire composition d’équipe

se faire rembourser les sms des jeux sur tf1