ALEA ENTRE BORNES sans doublons

soubisien85 -
yclik Messages postés 3874 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
Excel alea entre bornes sans doublon - Meilleures réponses
Nombre aléatoire excel sans doublon - Meilleures réponses
Tirage aléatoire sans doublon ✓ - Forum Excel
Liste déroulante excel - Guide
Trier un tableau excel - Guide
Supprimer doublon excel - Guide
Word et excel gratuit - Guide

4 réponses

Réponse 1 / 4

Meilleure réponse
La meilleure réponse est la réponse qui a été validée par nos équipes.
yclik Messages postés 3874 Date d'inscription Statut Membre Dernière intervention 1 609

Bonjour
Voir là avec macro
remplacer 7 par 15 et 49 par 15
4
1. soubisien85 Messages postés 264 Statut Membre 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
  
  0
Réponse 2 / 4
soubisien85 Messages postés 264 Statut Membre 3

je ne vois pas " conception de formulaire"
il n'y a pas de formule en plus de l'aléa entre borne qui pourrait m'aider ?

Merci

Cdt
Soubisien85
0
Réponse 3 / 4
yclik Messages postés 3874 Date d'inscription Statut Membre Dernière intervention 1 609

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
0
1. soubisien85 Messages postés 264 Statut Membre 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
  
  0
  1. yclik Messages postés 3874 Date d'inscription Statut Membre Dernière intervention 1 609 > soubisien85 Messages postés 264 Statut Membre
    
    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
    
    0
Réponse 4 / 4
soubisien85 Messages postés 264 Statut Membre 3

merci pour tout !

cordialement

Soubisien
0

ALEA ENTRE BORNES sans doublons

4 réponses

Discussions similaires

Newsletters