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):
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
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):
Code:
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