Test de données entre Deux UserForm

[G'Claire]

Bonsoir le forum,


Dans une Listbox (listBox1) de l'userForm1 je sélectionne (avec possibilité de multiselect) des opérateurs pouvant effectuer le travail, et ce choix est envoyé dans par validation dans un TextBox multiligne de l'UserForm2.

Est-il possible de faire un test si cet ou ces opérateurs ne sont pas déjà sélectionné.

Je vous remercie par avance, G'Claire

 

[jon]

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

 

[G'Claire]

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