Prob de boucle

[Temjeh]

Bonsoir et merci d'avance

Voici mon code qui fonctionne et qui en gros teste des valeurs sur une liste dans autre feuille et si condition (=Textbox4 ou =ActiveCell.Offset(0, 4)) est remplie selectionne la cell suivante (ActiveCell.Offset(1, 0).Select):

Private Sub SpinButton1_SpinDown()
ActiveCell.Offset(1, 0).Select
TextBox1 = ActiveCell.Offset(0, 1)
TextBox2 = ActiveCell.Offset(0, 3)
TextBox3 = ActiveCell.Offset(0, 8)
TextBox4 = ActiveCell.Offset(0, 4)

    For v = 1 To Sheets("Langues").Range("A65000").End(xlUp).Row
    
    If TextBox4.Value = Sheets("Langues").Range("A" & v).Value Then
        ActiveCell.Offset(1, 0).Select
        TextBox1 = ActiveCell.Offset(0, 1)
        TextBox2 = ActiveCell.Offset(0, 3)
        TextBox3 = ActiveCell.Offset(0, 8)
        TextBox4 = ActiveCell.Offset(0, 4)
    End If
    
    Next v

    If TextBox3.Value = "" Then
    TextBox3.BackColor = RGB(255, 255, 255)
        Else
        If TextBox3.Value > 2 Then
            TextBox3.BackColor = RGB(255, 0, 0)
            Else
            TextBox3.BackColor = RGB(255, 255, 255)
        End If
    End If
  
End Sub

Le prob est que si TextBox4.Value = Sheets("Langues").Range("A" & v).Value il sélectionne la cell du dessous (ActiveCell.Offset(0, 1)) mais si la ligne suivante il y a une valeur de Sheets("Langues").Range("A" & v).Value il me sélectionne la cell du dessous quand-même! Donc comment lui dire de tester aussi la ActiveCell.Offset(0, 1). Donc mon code devrait tester la cell du dessous aussi et si TextBox4.Value = Sheets("Langues").Range("A" & v).Value passe à la suivante.

Si je suis pas clair j'essayerai un démo

Merci

Temjeh

 

[Temjeh]

Re : Prob de boucle

Ok désolé enfin! j'ai trouvé

Juste dans ma boucle un goto début:

début:
For v = 1 To Sheets("Langues").Range("A65000").End(xlUp).Row

If TextBox4.Value = Sheets("Langues").Range("A" & v).Value Then
ActiveCell.Offset(1, 0).Select
TextBox1 = ActiveCell.Offset(0, 1)
TextBox2 = ActiveCell.Offset(0, 3)
TextBox3 = ActiveCell.Offset(0, 8)
TextBox4 = ActiveCell.Offset(0, 4)
goto début
End If

Merci quand même

Temjeh