Réduire et/ou optimiser un code de programmation

Bonjour le Forum,

Je souhaiterai savoir s'il y a une possibilité de réduire et/ou optimiser cette programmation.

Dans une programmation Change() j'ai le code suivant à inscrire 19 fois (Fastidieux) :

If TextBox1.Value <> "" Then   ' si valeur différente de vide
Label32.Caption = TextBox1.Text   'le Label prend la valeur de la Textbox
Label32.Visible = True 'le label sera visible
TextBox1.Visible = False   'la textbox ne sera pas visible et non modifiable
End If

Textbox concernées de la 1 à la 19

Label concernés de 32 à 51

La méthode For I..... Next I est-elle envisageable ou y-a-t-il une autre solution.... ou PAS ?

Merci à tous pour vos réponse à venir

Bonjour,

Pour faire une boucle sur tes contrôles, il te suffit de

For Each ctrl In UserForm1.Controls

Next ctrl

Re,

Tant qu'à faire ... ci-dessous code à tester :

Private Sub UserForm_Initialize()
Dim ctrl As Control
Dim i As Integer

For Each ctrl In UserForm1.Controls
  For i = 1 To 19
      If TypeName(ctrl) = "TextBox" Then
          If Me.Controls("TextBox" & i).Value <> "" Then
              Me.Controls("Label" & i + 31).Caption = Me.Controls("TextBox" & i).Value
              Me.Controls("Label" & i + 31).Visible = True
              Me.Controls("TextBox" & i).Visible = False
          End If
      End If
  Next i
Next ctrl
End Sub

Bonjour James007,

Superbe ! ça fonctionne.

Merci beaucoup

et1000lio a écrit :

Bonjour James007,

Superbe ! ça fonctionne.

Merci beaucoup

Génial ... !!!

Merci pour tes remerciements ...

Rechercher des sujets similaires à "reduire optimiser code programmation"