Bonsoir à tous.
Lorsque je rentre un chiffre en colonne "D" , je souhaite que si le nombre est >= 7000 , le curseur se positionne meme ligne colonne "E". Si le nombre est < 7000 le curseur se positionne meme ligne mais colonne "F". Dans les 2 cas ,lorsque les cellules respectives sont selectionnées je souhaite pouvoir changer de cellules.Comment modifier le code suivant pour y parvenir.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Columns("E:F")) Is Nothing Then
If Range("D" & Target.Row).Value >= 7000 Then Range("E" & Target.Row).Select
If Range("D" & Target.Row).Value >= 7000 Then Range("D" & Target.Row).Font.ColorIndex = 1
If Range("D" & Target.Row).Value < 7000 Then Range("F" & Target.Row).Select
If Range("D" & Target.Row).Value < 7000 Then Range("D" & Target.Row).Font.ColorIndex = 3
 
End If
End Sub
Si vous avez la solution je suis preneur.
Merci d'avance.