XL 2021 Bugs dans la propagation de cellules

MATLEA à dit:

Désolé mais je ne trouve pas cet objet dessiné en haut à gauche de la feuille (voir copie d'écran jointe).
Pour l'autre option faut-il tout déléter dans le module WshT2vs3 et coller

VB:

Option Explicit
Private WithEvents RoueLot As RoueLoterie
Private Sub Worksheet_Activate()
   Set RoueLot = RoueLoterie(Me, "GrpRoueLot")
   End Sub
Private Sub RoueLot_Click()
   ChangerLesGraines
   RoueLot.Arrêter
   End Sub

J'ai noté aussi que les fonctions =Hasard Tireurs ou Pointeurs (exemple =Hasard(LIGNE()-24;$BT$25:$BT$48;Pointeurs) donnaient parfois les listes avec le même ordre; voyez par exemple dans la feuille "48 doublettes exemple" du fichier joint les colonnes CN et CU entre les lignes 24 et 32.

Cliquez pour agrandir...

Dranreb à dit:

Il couvre sensiblement les cellules B1:C2. On ne le voit donc pas si ce n'est affiché qu'à partir de la colonne F.
La Sub ChangerGraine de votre dernier classeur joint n'a pas reçu les modif garantissant des graines différentes lorsqu'elle est exécutée plusieurs fois dans la même seconde. En plus sur la 2ème feuille la graine commune spécifiée est encore 1,23456789.

Cliquez pour agrandir...

MATLEA à dit:

Bonjour,
Je ne trouve ces dessins ni en B1:C2 ni vers la colonne F.µ
Je vais essayer l'autre option
Faut-il tout déléter dans le module WshT2vs3 et remplacer par le code que vous m'avez envoyé (ci-dessous)? Je fais simplement un copier-coller?
Merci

VB:

Option Explicit
Private WithEvents RoueLot As RoueLoterie
Private Sub Worksheet_Activate()
   Set RoueLot = RoueLoterie(Me, "GrpRoueLot")
   End Sub
Private Sub RoueLot_Click()
   ChangerLesGraines
   RoueLot.Arrêter
   End Sub

Cliquez pour agrandir...

Dranreb à dit:

Notez qu'il disparait si, dans les options avancées d'Excel on coche Rien (masquer les objets)
Regarde la pièce jointe 1212605
Alors peut être est-ce cette option qui est cochée chez vous. C'est sûr, dans ce cas vous n'avez rien dû comprendre quant à la façon de lancer les démos dans mon classeur ListeAléat.xlsm 🙄

Cliquez pour agrandir...

Dranreb à dit:

Notez qu'il disparait si, dans les options avancées d'Excel on coche Rien (masquer les objets)
Regarde la pièce jointe 1212605
Alors peut être est-ce cette option qui est cochée chez vous. C'est sûr, dans ce cas vous n'avez rien dû comprendre quant à la façon de lancer les démos dans mon classeur ListeAléat.xlsm 🙄

Cliquez pour agrandir...

MATLEA à dit:

OK merci

Cliquez pour agrandir...

Dranreb à dit:

Ensuite avec touche Ctrl maintenue enfoncée, clic gauche à nouveau dessus, et c'est la sous-image ImgRoueFixe qui est sélectionnée.
Ctrl+C, sélectionnez une cellule ailleurs puis Ctrl+V. Normalement vous aurez une version de seulement cette image.

Cliquez pour agrandir...

MATLEA à dit:

Merci, j'y suis bien arrivé mais le clic sur la roue ne change pas les graines. Comment faut-il d'y prendre?
Merci

Cliquez pour agrandir...

Dranreb à dit:

Sur votre copie de l'image ImgRoueFixe vous voulez dire ? Clic droit dessus, Affecter une macro, affectez y simplement la ChangerLesGraines.

Cliquez pour agrandir...

MATLEA à dit:

oui, j'y suis bien mais le clic sur la roue ne change rien

Cliquez pour agrandir...

MATLEA à dit:

oui, j'y suis bien mais le clic sur la roue ne change rien

Cliquez pour agrandir...

Dranreb à dit:

C'est une longue histoire, qui a commencer il y a très longtemps par une formation d'électronicien, qui m'a conduit de fil en aiguille à rencontrer quelqu'un qui suivait des cours par correspondance de programmation, que j'ai tout de suite perçu comme étant carrément un truc fait sur mesure pour moi. Est venu ensuite la pratique de divers langages de programmation à l'Alstom, puis une fin de carrière un peu moins glorieuse, mais qui m'a laissé en main toutes les possibilités d'Excel jusque pour ma retraite actuelle.

Cliquez pour agrandir...