tititravelfrog
XLDnaute Nouveau
bonjour,
je me permet de solliciter votre aide pour un petit travail.
je dois créer un petit programme qui formera un puzzle de chiffre à l'ouverture de mon chiffrier excel, les chiffres sont mélanger de 1 à 15, avec 16 case dont une est vide pour pouvoir résoudre le programme, je ne m'étends pas plus sur ce programme.
Mon problème est que je n'arrive pas à centrer mes chiffres dans mon label, comment faire?? je n'ai réussit qu'à les centrer dans le haut de chaque label.
Ensuite je voudrais créer un boucle pour affecter un chiffre à chacun des 15 labels, de sorte que les chiffres aillent de 1 à 15, et qu'ils soient tous différent. je veux juste savoir comment affecter une valeur à chaque label; car mon code ne fonctionne pas:
Label1.Caption = Chr(101)
Label2.Caption = Chr(102)
Label3.Caption = Chr(103)
Label4.Caption = Chr(104)
Label5.Caption = Chr(105)
Label6.Caption = Chr(106)
Label7.Caption = Chr(107)
Label8.Caption = Chr(108)
Label9.Caption = Chr(109)
Label10.Caption = Chr(110)
Label11.Caption = Chr(111)
Label12.Caption = Chr(112)
Label13.Caption = Chr(113)
Label14.Caption = Chr(114)
Label15.Caption = Chr(115)
label16.Caption = Chr(116)
Randomize
For X = A To B
Y = 1 + Int(Rnd * 15)
X = Y
Next
je vous remercie de votre attention
thierry
je me permet de solliciter votre aide pour un petit travail.
je dois créer un petit programme qui formera un puzzle de chiffre à l'ouverture de mon chiffrier excel, les chiffres sont mélanger de 1 à 15, avec 16 case dont une est vide pour pouvoir résoudre le programme, je ne m'étends pas plus sur ce programme.
Mon problème est que je n'arrive pas à centrer mes chiffres dans mon label, comment faire?? je n'ai réussit qu'à les centrer dans le haut de chaque label.
Ensuite je voudrais créer un boucle pour affecter un chiffre à chacun des 15 labels, de sorte que les chiffres aillent de 1 à 15, et qu'ils soient tous différent. je veux juste savoir comment affecter une valeur à chaque label; car mon code ne fonctionne pas:
Label1.Caption = Chr(101)
Label2.Caption = Chr(102)
Label3.Caption = Chr(103)
Label4.Caption = Chr(104)
Label5.Caption = Chr(105)
Label6.Caption = Chr(106)
Label7.Caption = Chr(107)
Label8.Caption = Chr(108)
Label9.Caption = Chr(109)
Label10.Caption = Chr(110)
Label11.Caption = Chr(111)
Label12.Caption = Chr(112)
Label13.Caption = Chr(113)
Label14.Caption = Chr(114)
Label15.Caption = Chr(115)
label16.Caption = Chr(116)
Randomize
For X = A To B
Y = 1 + Int(Rnd * 15)
X = Y
Next
je vous remercie de votre attention
thierry