Quitter une double boucle

Bonjour

je souhaiterai quitter une double boucle avec le code suivant

For I = 1 To UBound(tablo, 1)
   For J = 1 To UBound(tablo, 2)
  If tablo(I, 9) = ComboBox1.Text And tablo(I, J) = ComboBox2.Text Then  'Or (tablo(I, 9) = ComboBox1.Text And tablo(I, 14) = ComboBox2.Text) Then
   ' MsgBox tablo(I, 9) & " " & tablo(I, 13)
    MsgBox I
    TextBox1.Text = tablo(I, 4) 
    TextBox2.Text = tablo(I, 1) 
    TextBox4.Text = tablo(I, 3) 

    Exit For
    End If
  Next
  Next

ou faudrait il placer le second exit for pour sortir complement de la boucle sur i et j une fois la condition if realisée?

Merci

Salut Rocket,

méthode de vieux dinosaure...

Je crée un repère, iOK=0, auquel je donne la valeur 1 lorsque la condition est remplie afin de sortir de la seconde boucle.

iOK = 0
For I = 1 To UBound(tablo, 1)
    For J = 1 To UBound(tablo, 2)
        If tablo(I, 9) = ComboBox1.Text And tablo(I, J) = ComboBox2.Text Then
            MsgBox I
            TextBox1.Text = tablo(I, 4)
            TextBox2.Text = tablo(I, 1)
            TextBox4.Text = tablo(I, 3)
            iOK = 1
            Exit For
        End If
    Next
    If iOK = 1 Then Exit For
  Next

A+

Un grand merci curulis57 je pense qu'un "exit for" etait suffisant entre les deux next , mais finalement non ,chapeau pour cette solution et encor merci !!!