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


4 réponses

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
1
Merci

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

CCM 61358 internautes nous ont dit merci ce mois-ci

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