ALEA ENTRE BORNES sans doublons [Fermé]
Signaler
soubisien85
-
yclik
yclik
- Messages postés
- 2395
- Date d'inscription
- vendredi 25 juillet 2014
- Statut
- Membre
- Dernière intervention
- 9 avril 2021
A voir également:
- Alea entre bornes sans doublon
- Tirage aléatoire excel sans doublon - Meilleures réponses
- Nombre aléatoire excel sans doublon - Meilleures réponses
- ALEA ENTRE BORNES sans doublons - Forum - LibreOffice / OpenOffice
- Excel alea.entre.bornes sans doublon ✓ - Forum - Excel
- Alea entre bornes avec exclusions et sans doublons ✓ - Forum - Excel
- ALEA.ENTRE.BORNES ✓ - Forum - Bureautique
- Tirage aléatoire sans doublon : de plus en plus fort ... ! ✓ - Forum - Excel
4 réponses
soubisien85
- Messages postés
- 242
- Date d'inscription
- vendredi 14 février 2014
- Statut
- Membre
- Dernière intervention
- 21 avril 2019
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
il n'y a pas de formule en plus de l'aléa entre borne qui pourrait m'aider ?
Merci
Cdt
Soubisien85
yclik
- Messages postés
- 2395
- Date d'inscription
- vendredi 25 juillet 2014
- Statut
- Membre
- Dernière intervention
- 9 avril 2021
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
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
- 242
- Date d'inscription
- vendredi 14 février 2014
- Statut
- Membre
- Dernière intervention
- 21 avril 2019
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
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
- 2395
- Date d'inscription
- vendredi 25 juillet 2014
- Statut
- Membre
- Dernière intervention
- 9 avril 2021
- 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
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
merci
Bonne Année
Cdt
SOUBISIEN