XL 2013 Modifier mon code

maval · 4 Août 2019

Bonjour,

Jai un formulaire avec des frames que je rend visible ou non à l'aide d"OptionButton

et j'aimerai avoir mon code plus court et mieux construit
Mon Code :

VB:

Private Sub UserForm_Initialize()
Frame1.Visible = True
Frame2.Visible = False
Me.Width = 579
Me.Height = 125
End Sub

Private Sub CommandButton1_Click()
Frame1.Visible = True
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Me.Width = 579
Me.Height = 125
Frame1.Top = 18
End Sub

Private Sub CommandButton2_Click()
Frame1.Visible = True
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Me.Width = 579
Me.Height = 125
Frame1.Top = 18
End Sub

Private Sub CommandButton3_Click()
Frame1.Visible = True
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Me.Width = 579
Me.Height = 125
Frame1.Top = 18
End Sub

Private Sub OptionButton1_Click()
Frame1.Visible = False
Frame2.Visible = True
Frame3.Visible = False
Frame4.Visible = False
Frame2.Top = 18
Me.Width = 579
Me.Height = 205
OptionButton1.Value = False
End Sub

Private Sub OptionButton2_Click()
Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = True
Frame4.Visible = False
Frame3.Top = 18
Me.Width = 579
Me.Height = 240
OptionButton2.Value = False
End Sub

Private Sub OptionButton3_Click()
Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = True
Frame4.Top = 18
Me.Width = 579
Me.Height = 280
OptionButton3.Value = False
End Sub

Je joint mon formulaire qui seras plus explicite.

ChTi160 · 4 Août 2019

Bonjour maval
pourquoi trois boutons (

CommandButton1
CommandButton2
CommandButton3

qui font la même chose ?
tu peux en supprimer deux Lol
jean marie

maval · 4 Août 2019

Salut Jean Marie

Oui je sais mais c'était pour les essaies

Merci

mapomme · 4 Août 2019

Bonjour @maval , @ChTi160 ,

Voilà du condensé :

Code:

Private Sub OptionButton1_Click(): AfficherFrame 2: End Sub
Private Sub OptionButton2_Click(): AfficherFrame 3: End Sub
Private Sub OptionButton3_Click(): AfficherFrame 4: End Sub
Private Sub CommandButton1_Click(): AfficherFrame 1: End Sub
Private Sub CommandButton2_Click(): AfficherFrame 1: End Sub
Private Sub CommandButton3_Click(): AfficherFrame 1: End Sub
Private Sub UserForm_Initialize(): AfficherFrame 1: End Sub
Sub AfficherFrame(xNum&)
Dim i&
  For i = 1 To 4: Controls("Frame" & i).Visible = False: Next
  Controls("Frame" & xNum).Visible = True: Controls("Frame" & xNum).Top = 18
  Me.Width = 579: Me.Height = 18 + Controls("Frame" & xNum).Height + 30
End Sub

maval · 4 Août 2019

Salut mapomme

Rien à voir avec le mien Nickel je te remercie

Bonne journée

mapomme · 4 Août 2019

Re @maval ,

Si tu veux que les boutons options soient tous décochés quand on affiche Frame1, on peux ajouter une ligne à la procédure AfficherFrame, ce qui donne:

VB:

Sub AfficherFrame(xNum&)
Dim i&
  For i = 1 To 3: Controls("OptionButton" & i) = False: Next
  For i = 1 To 4: Controls("Frame" & i).Visible = False: Next
  Controls("Frame" & xNum).Visible = True: Controls("Frame" & xNum).Top = 18
  Me.Width = 579: Me.Height = 18 + Controls("Frame" & xNum).Height + 30
End Sub

maval · 4 Août 2019

Re mapomme,

OK merci Nickel

XL 2013 Modifier mon code

maval

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

maval

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires