Bonjour
Voir là avec macro
remplacer 7 par 15 et 49 par 15
soubisien85
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
soubisien85
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
yclik
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
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 ?
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
