Rajouter un nouveau bouton

Bonjour à tous,

J'ai téléchargé un petit programme "Calculette".

Je désire l'utiliser. Mais voilà j'aimerai rajouter un nouveau bouton qui s'appellera "Chiffre00".

J' ai essayé de rajouter ce bouton bien entendu en changeant dans initialize la ligne de code que voici

For b = 0 To 10: Set Btn(b).GrChiffres = Me("chiffre" & b): Next b

j'ai mis For b = 0 To 11: Set Btn(b).GrChiffres = Me("chiffre" & b): Next b mais cela me donne une erreur.

Quelqu'un pourra-t-il m'aider S.V.P

Merci d'avance de votre aide toujours si précieuse.

Amcalement

Noel

PJ: Le fichier

Bonjour cfn3cfn,

Voilà ton erreur:

Dim Btn(0 To 10) As New ClasseBoutons

alors que dans ta boucle tu veux aller jusqu'à

 For b = 0 To 11

alors que ton tableau s'arrête à 10

Début de solution:

Dim Btn(0 To 11) As New ClasseBoutons

Pour le reste je ne sais pas ce que le bouton est censé faire, donc je te laisse déjà appliquer cette correction et revenir si besoin

Bonjour,

Ton bouton doit nécessairement s'appeler Chiffre11 (et non pas Chiffre00)

Par suite :

Dim Btn(0 To 11) As New ClasseBoutons
Dim operande, operateur
Private Sub UserForm_Initialize()
  For b = 0 To 11: Set Btn(b).GrChiffres = Me("chiffre" & b): Next b
End Sub

A+

Bonjour Galopin,

Bonjour d3d9x,

Je vous remercie de votre réponse si rapide.

C'est bon j'ai adapté cela fonctionne très bien

Merci à vous deux.

Cordialement

noël