Discussion :

[Olivair]

Bonjour à tous, plutôt que de faire un long discours voici 2 sub
Le premier fonctionne, le second bloque au niveau de l’instruction SET.

Un truc m’échappe,
La finalité est de gérer 8x50 TextBox sur le UserForm….d'ou souhait de favoriser l'option 2

Merci pour votre aide
Olivair, Doha.

=========================================
Private Sub RaffraichirUserFormAttributes()
'Afficher les valeurs de la feuille de l ID en Cours sur le Userform
Dim Cpt As Integer
Dim InfoText
Stop
For Cpt = 1 To 8
Select Case Cpt
Case 1
Set InfoText = Text_Master1
Case 2
Set InfoText = Text_Master2
Case 3
Set InfoText = Text_Master3
Case 4
Set InfoText = Text_Master4
Case 5
Set InfoText = Text_Master5
Case 6
Set InfoText = Text_Master6
Case 7
Set InfoText = Text_Master7
Case 8
Set InfoText = Text_Master8
End Select
InfoText.Value = Block_Master(Cpt)
Next Cpt
End Sub

====================================
Private Sub RaffraichirUserFormAttributes_Ajax()
'Afficher les valeurs de la feuille de l ID en Cours sur le Userform ____a debuger
Dim Cpt As Integer
Dim InfoText
For Cpt = 1 To 8
Set InfoText = Text_Master(Cpt)
InfoText.Value = Block_Master(Cpt)
Next Cpt
End Sub

[kiki29]

Salut, il faudrait que tu t'intéresses aux modules de classe : un exemple

[Olivair]

Merci pour ton intervention rapide.
Actuellement ce VBA comprend :
- un Userform qui contient les 2 sub mentionnés
- un module qui contient un auto open qui appelle le userform
- aucun module de classe