ALEA ENTRE BORNES sans doublons [Fermé]

Signaler
-
Messages postés
2076
Date d'inscription
vendredi 25 juillet 2014
Statut
Membre
Dernière intervention
31 août 2020
 -
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

4 réponses

Réponse 1 / 4
Messages postés
2076
Date d'inscription
vendredi 25 juillet 2014
Statut
Membre
Dernière intervention
31 août 2020
 800
Bonjour
Voir là avec macro
remplacer 7 par 15 et 49 par 15
Merci
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 61358 internautes nous ont dit merci ce mois-ci

Signaler
Messages postés
242
Date d'inscription
vendredi 14 février 2014
Statut
Membre
Dernière intervention
21 avril 2019
 2
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 2 / 4
Messages postés
242
Date d'inscription
vendredi 14 février 2014
Statut
Membre
Dernière intervention
21 avril 2019
 2
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
Réponse 3 / 4
Messages postés
2076
Date d'inscription
vendredi 25 juillet 2014
Statut
Membre
Dernière intervention
31 août 2020
 800
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
Signaler
Messages postés
242
Date d'inscription
vendredi 14 février 2014
Statut
Membre
Dernière intervention
21 avril 2019
 2
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
Signaler
Messages postés
2076
Date d'inscription
vendredi 25 juillet 2014
Statut
Membre
Dernière intervention
31 août 2020
 800 >
Messages postés
242
Date d'inscription
vendredi 14 février 2014
Statut
Membre
Dernière intervention
21 avril 2019
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
Réponse 4 / 4
Messages postés
242
Date d'inscription
vendredi 14 février 2014
Statut
Membre
Dernière intervention
21 avril 2019
 2
merci pour tout !

cordialement

Soubisien
Posez votre question