VB Melanger des textboxs

Option Explicit

Private mTab()
Private ind As Integer


Private Sub BoutonAleatoire_Click()
    ind = 0
    InitTab
    SearchAlea
End Sub

Private Sub InitTab()
Dim txt As Control

    ReDim mTab(0)
    For Each txt In Me.Controls
        If TypeOf txt Is TextBox Then
            ReDim Preserve mTab(ind)
            mTab(ind) = txt.Text
            ind = ind + 1
            txt.Text = ""
        End If
    Next txt

    
End Sub

Private Sub SearchAlea()
Dim str As Variant
Dim cpt As Integer

    While cpt <= 3
        str = returnAlea
        If doesExistAlea(str) = False Then
            Affiche (str)
            cpt = cpt + 1
        End If
    Wend
    
End Sub

Private Sub Affiche(ByVal str As Variant)
Dim txt As Control

        For Each txt In Me.Controls
        If TypeOf txt Is TextBox Then
            If txt.Text = "" Then
                txt.Text = mTab(str)
                Exit Sub
            End If
        End If
    Next txt

End Sub

Private Function returnAlea() As Variant
Dim alea As Integer

    Randomize Timer
    
    alea = CInt(Rnd * (ind - 1))
    If alea > UBound(mTab()) Then alea = UBound(mTab())
    returnAlea = alea

End Function

Private Function doesExistAlea(ByVal str As Variant) As Boolean
Dim txt As Control

    For Each txt In Me.Controls
        If TypeOf txt Is TextBox Then
            If txt.Text = mTab(str) Then
                doesExistAlea = True
                Exit Function
            End If
        End If
    Next txt

    doesExistAlea = False
    
End Function

Option Explicit
Dim CoText As Collection

Private Sub UserForm_Initialize()
Dim Cl
    Set CoText = New Collection
    For Each Cl In Me.Controls
        If Cl.Tag <> "" Then
            CoText.Add Cl, Cl.Tag
        End If
    Next Cl
End Sub

Private Sub CommandButton1_Click()
Dim AR(1 To 4)
Dim i As Byte, n, R
    For i = 1 To 4: AR(i) = CoText(i): Next i
    Randomize
    For i = 1 To 4
Reco:
        R = Int((4 * Rnd) + 1)
        If AR(R) <> "" Then
            CoText(i) = AR(R): AR(R) = ""
        Else: GoTo Reco
        End If
    Next i
    
End Sub

Option Strict Off
Option Explicit On
Imports VB = Microsoft.VisualBasic

Friend Class Form1
	Inherits System.Windows.Forms.Form
	
	Private mTab() As Object
	Private ind As Short
	
	
    Private Sub BoutonAleatoire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BoutonAleatoire.Click
        ind = 0
        InitTab()
        SearchAlea()
    End Sub
	
	Private Sub InitTab()
		Dim txt As System.Windows.Forms.Control
		
		ReDim mTab(0)
		For	Each txt In Me.Controls
            If TypeOf txt Is System.Windows.Forms.TextBox Then
                ReDim Preserve mTab(ind)
                mTab(ind) = txt.Text
                ind = ind + 1
                txt.Text = ""
            End If
		Next txt
				
	End Sub
	
	Private Sub SearchAlea()
        Dim str As Object
		Dim cpt As Short
		
		While cpt <= 3
            str = returnAlea()
			If doesExistAlea(str) = False Then
				Affiche((str))
				cpt = cpt + 1
			End If
		End While
		
	End Sub
	
    Private Sub Affiche(ByVal str As Object)
        Dim txt As System.Windows.Forms.Control

        For Each txt In Me.Controls
            If TypeOf txt Is System.Windows.Forms.TextBox Then
                If txt.Text = "" Then
                    txt.Text = mTab(str)
                    Exit Sub
                End If
            End If
        Next txt

    End Sub
	
	Private Function returnAlea() As Object
		Dim alea As Short
		
		Randomize(VB.Timer())
		
		alea = CShort(Rnd() * (ind - 1))
		If alea > UBound(mTab) Then alea = UBound(mTab)
        returnAlea = alea
		
	End Function
	
    Private Function doesExistAlea(ByVal str As Object) As Boolean
        Dim txt As System.Windows.Forms.Control

        For Each txt In Me.Controls
            If TypeOf txt Is System.Windows.Forms.TextBox Then
                If txt.Text = mTab(str) Then
                    doesExistAlea = True
                    Exit Function
                End If
            End If
        Next txt

        doesExistAlea = False

    End Function

End Class

Private Sub Command1_Click()
Dim AR(3)
Dim i As Byte, R
    For i = 0 To 3: AR(i) = Text1(i): Next i
    For i = 0 To 3
Reco:
        R = Int((4 * Rnd) + 1) - 1 'moins 1 pour avoir le zéro
        If AR(R) <> "" Then
            Text1(i) = AR(R): AR(R) = ""
        Else: GoTo Reco
        End If
    Next i
End Sub