Discussion :

[unlucky luke]

bonjour à tous,

je suis nouveau et en pleine panade

je voudrais affecter un control à une variable de même type

en simplifiant cela donnerai ceci :

Private Sub ListeRBPP1_Click()

AFFICHdocRBPP (1)

End Sub


Private Sub AFFICHdocRBPP (numeroRB As Integer)

Dim LISTErb As ListBox
Dim NUMrb As ComboBox
Dim NOMvariant As String

NOMvariant = "ListeRBPP" & numeroRB
??? Set LISTErb = ...? (Me.[NOMvariant])

NOMvariant = "numRBPP" & numeroRB
??? Set NUMrb = ...? (Me.[NOMvariant])

NUMrb(.value) = LISTErb(.value)


(pour obtenir l'équivalent de ceci : me.numRBPP1(.value) = me.listeRBPP1(.value) dans la subroutine)


End Sub


merci beaucoup de votre aide
bien cordialement
UL

[Tofalu]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim LISTErb As Control
...
 
Set LISTErb = Me.Controls(NOMvariant)

[unlucky luke]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim LISTErb As Control
...
 
Set LISTErb = Me.Controls(NOMvariant)

Super !

merci beaucoup

UL