Test de données entre Deux UserForm

bonjour

dans quelle type de variable sont stockés les opérateurs sélectionnées avant dêtre transféré dans l'userform2 ?

pour info avec la méthode match (equiv), tu peux tester la présence d'une valeur dans une variable tableau

bye
STephane

Jon, le Forum

Merci de ta réponse.

Voici le code qui me sert a ajouter un ou plusieur cableur a la liste :

Option Explicit

Private Sub BoutAjouterCableur_Click()

Dim i As Integer, Msg

With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
UserForm2.TextBoxCableurs = UserForm2.TextBoxCableurs & .List(i) & Chr(13)
End If
Next i
End With

Msg = MsgBox("Voulez-vous ajouter un cableur ? ", vbYesNo + vbInformation, "AJOUT D'UN CABLEUR")

If Msg = vbYes Then
Unload USF_AjoutCableur
USF_AjoutCableur.Show 0

Else

'sortir
Unload Me
UserForm2.Show 0

End If

End Sub

Private Sub BoutSortir_Click()

Unload Me

End Sub




Private Sub UserForm_Initialize()

Dim Tblo As Variant, Rg As Range

With Worksheets("Tool_Intervenants")
Set Rg = .Range("C6:C" & .Range("C20").End(xlUp).Row)
End With

Tblo = Application.Transpose(Rg)
Quick_Sort Tblo, LBound(Tblo), UBound(Tblo)
USF_AjoutCableur.ListBox1.List = Application.Transpose(Tblo)
Set Rg = Nothing


End Sub

J'espère que c'est ce que tu voulais savoir,merci, G'Claire