Reduite largeur TextBox

[apdf1]

Bonjour

Voila je viens de faire un code pour reduire la largeur et deplacer des textbox a l'aide d'un Check Box sur un USF et je cherche a reduire mon code pour la bonne raison qu'il y a 100 textbox.

Ci joint le fichier exemple

Un très grand merci à tout ceux qui pourront m'aider...

Cordialement

Max

 

[tototiti2008]

Re : Reduite largeur TextBox

Bonjour apdf1,

à tester

Private Sub CheckBox1_Click()
Dim i As Long
    For i = 1 To 100
        If Me.CheckBox1.Value Then
            Select Case i Mod 4
                Case 1
                    Me.Controls("TextBox" & i).Width = 100
                Case 2
                    Me.Controls("TextBox" & i).Left = 132
                Case 3
                    Me.Controls("TextBox" & i).Width = 100
                    Me.Controls("TextBox" & i).Left = 240
                Case 0
                    Me.Controls("TextBox" & i).Left = 342
            End Select
        Else
            Select Case i Mod 4
                Case 1
                    Me.Controls("TextBox" & i).Width = 60
                Case 2
                    Me.Controls("TextBox" & i).Left = 96
                Case 3
                    Me.Controls("TextBox" & i).Width = 60
                    Me.Controls("TextBox" & i).Left = 198
                Case 0
                    Me.Controls("TextBox" & i).Left = 264
            End Select
        End If
    Next i
End Sub

 

[Pierrot93]

Re : Reduite largeur TextBox

Bonjour Max, Toto🙂

une autre approche peut être ainsi...

Private Sub CheckBox1_Click()
Dim i As Byte
For i = 1 To 100 Step 4
    Me.Controls("TextBox" & i).Width = IIf(CheckBox1, 100, 60)
    Me.Controls("TextBox" & i + 1).Left = IIf(CheckBox1, 132, 96)
    Me.Controls("TextBox" & i + 2).Left = IIf(CheckBox1, 240, 198)
    Me.Controls("TextBox" & i + 2).Width = IIf(CheckBox1, 100, 60)
    Me.Controls("TextBox" & i + 3).Left = IIf(CheckBox1, 342, 264)
Next i
End Sub

bonne soirée
@+

Edition : horreur de copie...

 

[apdf1]

Re : Reduite largeur TextBox

Bonsoir Toto, Pierrot,

Je vous remercie et vous souhaite une bonne soirée

@+

Max