ALEA ENTRE BORNES sans doublons

soubisien85 -
yclik Messages postés 3881 Date d'inscription Statut Membre Dernière intervention - 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

Afficher la suite

A voir également:

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

4 réponses

Réponse 1 / 4

yclik Messages postés 3881 Date d'inscription Statut Membre Dernière intervention 1 565

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

soubisien85 Messages postés 248 Date d'inscription Statut Membre Dernière intervention 3

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 3881 Date d'inscription Statut Membre Dernière intervention 1 565

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 Statut Membre Dernière intervention 3

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 3881 Date d'inscription Statut Membre Dernière intervention 1 565 > soubisien85 Messages postés 248 Date d'inscription Statut Membre Dernière intervention

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 aléatoire sans doublon : de plus en plus fort ... !

Tirage au sort sans doublon

"Exclure doublon" dans formule nb.si.ens

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

calculer le nombre de valeurs uniques avec conditions excel

Votre réponse

Discussions similaires