je cherche à faire une grille (10x9) d'elements sur laquele on puisse
simplement cliquer pour les valider.
Des controles de type Label ou Bouton me semble répondre.
Mais comment faire pour ne pas être obligé de répéter les procédures
pour chacun des boutons ?
Crée un groupe de boutons et lui affecte une procédure (sur Click)
Créer un module de classe et le nommer ClasseBoutons:
Public WithEvents GrChiffres As Msforms.CommandButton Private Sub GrChiffres_Click() Calculette.Result = Calculette.Result & GrChiffres.Caption End Sub
Dans le formulaire:
Dim Btn(0 To 10) As New ClasseBoutons Dim operande, operateur Private Sub UserForm_Initialize() ' Crée un groupe de boutons GrChiffres avec les boutons Chiffre0,Chiffre2,... For b = 0 To 10: Set Btn(b).GrChiffres = Me("chiffre" & b): Next b End Sub
je cherche à faire une grille (10x9) d'elements sur laquele on puisse simplement cliquer pour les valider. Des controles de type Label ou Bouton me semble répondre. Mais comment faire pour ne pas être obligé de répéter les procéd ures pour chacun des boutons ?
Crée un groupe de boutons et lui affecte une procédure (sur Click)
Créer un module de classe et le nommer ClasseBoutons:
Public WithEvents GrChiffres As Msforms.CommandButton
Private Sub GrChiffres_Click()
Calculette.Result = Calculette.Result & GrChiffres.Caption
End Sub
Dans le formulaire:
Dim Btn(0 To 10) As New ClasseBoutons
Dim operande, operateur
Private Sub UserForm_Initialize()
' Crée un groupe de boutons GrChiffres avec les boutons
Chiffre0,Chiffre2,...
For b = 0 To 10: Set Btn(b).GrChiffres = Me("chiffre" & b): Next b
End Sub
je cherche à faire une grille (10x9) d'elements sur laquele on puisse
simplement cliquer pour les valider.
Des controles de type Label ou Bouton me semble répondre.
Mais comment faire pour ne pas être obligé de répéter les procéd ures
pour chacun des boutons ?
Crée un groupe de boutons et lui affecte une procédure (sur Click)
Créer un module de classe et le nommer ClasseBoutons:
Public WithEvents GrChiffres As Msforms.CommandButton Private Sub GrChiffres_Click() Calculette.Result = Calculette.Result & GrChiffres.Caption End Sub
Dans le formulaire:
Dim Btn(0 To 10) As New ClasseBoutons Dim operande, operateur Private Sub UserForm_Initialize() ' Crée un groupe de boutons GrChiffres avec les boutons Chiffre0,Chiffre2,... For b = 0 To 10: Set Btn(b).GrChiffres = Me("chiffre" & b): Next b End Sub
je cherche à faire une grille (10x9) d'elements sur laquele on puisse simplement cliquer pour les valider. Des controles de type Label ou Bouton me semble répondre. Mais comment faire pour ne pas être obligé de répéter les procéd ures pour chacun des boutons ?
Merci de vos lumières
eneric
eneric vous demande bonjour JB je me sers de ta mini calculette qui est tres interressante (surtout dans des feuilles ou il n'y a plus de place dispo ) et je voulais si c'etait possible de rajouter des boutons du genre racine carree ou % (qui ne sont pas des operateurs) et je crois savoir que VB6 ne gere pas le symbole racine voila merci du renseignement eneric
-- eneric
eneric vous demande
bonjour JB
je me sers de ta mini calculette qui est tres interressante
(surtout dans des feuilles ou il n'y a plus de place dispo )
et je voulais si c'etait possible de rajouter des
boutons du genre racine carree ou % (qui ne sont pas des operateurs)
et je crois savoir que VB6 ne gere pas le symbole racine
voila merci du renseignement
eneric
eneric vous demande bonjour JB je me sers de ta mini calculette qui est tres interressante (surtout dans des feuilles ou il n'y a plus de place dispo ) et je voulais si c'etait possible de rajouter des boutons du genre racine carree ou % (qui ne sont pas des operateurs) et je crois savoir que VB6 ne gere pas le symbole racine voila merci du renseignement eneric
-- eneric
JB
Bonjour,
Private Sub Racine_Click() Me.Result = Me.Result ^ 0.5 End Sub
JB
On 18 mar, 12:51, eneric wrote:
eneric vous demande bonjourJB je me sers de ta mini calculette qui est tres interressante (surtout dans des feuilles ou il n'y a plus de place dispo ) et je voulais si c'etait possible de rajouter des boutons du genre racine carree ou % (qui ne sont pas des operateurs) et je crois savoir que VB6 ne gere pas le symbole racine voila merci du renseignement eneric
-- eneric
Bonjour,
Private Sub Racine_Click()
Me.Result = Me.Result ^ 0.5
End Sub
JB
On 18 mar, 12:51, eneric <eneri...@cegetel.net> wrote:
eneric vous demande
bonjourJB
je me sers de ta mini calculette qui est tres interressante
(surtout dans des feuilles ou il n'y a plus de place dispo )
et je voulais si c'etait possible de rajouter des
boutons du genre racine carree ou % (qui ne sont pas des operateurs)
et je crois savoir que VB6 ne gere pas le symbole racine
voila merci du renseignement
eneric
Private Sub Racine_Click() Me.Result = Me.Result ^ 0.5 End Sub
JB
On 18 mar, 12:51, eneric wrote:
eneric vous demande bonjourJB je me sers de ta mini calculette qui est tres interressante (surtout dans des feuilles ou il n'y a plus de place dispo ) et je voulais si c'etait possible de rajouter des boutons du genre racine carree ou % (qui ne sont pas des operateurs) et je crois savoir que VB6 ne gere pas le symbole racine voila merci du renseignement eneric