Simplification code

[Lectave]

Bonjour à tous,
je bricole depuis quelques temps des macros. Par défaut de connaissances grammaticales et orthographiques, j'écris des codes qui s'allongent ...
Pouvez vous m'aider à simplifier le code suivant (USF avec plusieurs checkbox et textbox):

' Initialisation du USF
Private Sub UserForm_Activate()
If Cells(i + 3, 26).Value = 1 Then CheckBox5 = True
If Cells(i + 3, 26).Value = 0 Then CheckBox5 = False
If Cells(i + 3, 27).Value = 1 Then CheckBox6 = True
If Cells(i + 3, 27).Value = 0 Then CheckBox6 = False
[...] idem jusqu'au checkbox44
If Cells(i + 3, 65).Value = 1 Then CheckBox44 = True
If Cells(i + 3, 65).Value = 0 Then CheckBox44 = False

TextBox1.Value = Cells(i + 3, 66).Value
[...] idem jusqu'au textbox20
TextBox20.Value = Cells(i + 3, 85).Value

End Sub

Merci bcp

 

[Hervé]

Bonjour lectave, le forum

peut etre comme ceci, je n'ai pas testé ma réponse :

For j = 5 To 44
        Controls('Checkbox' & j) = IIf(Cells(i + 3, j + 21) = 0, False, True)
Next j

For j = 1 To 20
        Controls('Textbox' & j) = Cells(i + 3, j + 65)
Next j

salut

 

[Robert]

Bonjour Lectave, bonjour le forum,

Ton code contient la variable i mais tu ne dis pas à quoi elle correspond. Où a-t-elle été déclarée et où a-t-elle été définie. S'agit-il déjà d'une boucle ?
Ces quelques précisions permettrons de mieux cerner ton problème.
Regarde déjà cette proposition :

Private Sub UserForm_Initialize()
Dim j As Byte
Dim k As Byte


For j = 26 To 65
If Cells(i + 3, j) = 1 Then
Me.Controls('CheckBox' & (j - 21)) = True
Else
Me.Controls('CheckBox' & j - 21) = False
End If
Next j

For k = 1 To 20
Me.Controls('TextBox' & k).Value = Cells(i + 3, k + 65).Value
Next k

End Sub

Édition :

Bonjour Hervé. Je suis pas frais (encore une fois) mais c'est toujours un plaisir de voir tes codes (Iiiiiiiiiiiiiiiiiiiifff je vais finir par m'en souvenir de celle-là...)

Message édité par: Robert, à: 22/05/2006 11:07

 

[Lectave]

Merci bcp à ts les 2
effectivement ds l'ex je n'avais pris le soin de déclarer i mais ce n'est pas important.
Je ne connaissais pas la méthode (Me.Controls('CheckBox' & J)) pour incrémenter les checkbox et les textbox.

Lectave