Discussion :

[cedana]

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.

[jojo86]

De quelles cellules respective parles tu? Ton code que tu as posté il fonctionne deja pour la selection desncellule e et f??

[cedana]

Bonjour jojo86.
Merci pour ta réponse, le code fonctionne bien, mais si par exemple je saisis 7000 col "D" la cellule col "E" est sélectionnée et c'est normal. Mais je veux avoir la possibilité d' aller en "F". Et meme chose si cellule col "D" < 7000 la cellule col "F" est activée et la aussi je veux avoir la possibilité d' aller en cellule col "E". Le code actuel ne le permet pas et je ne trouve pas la solution.
J'ai fait un essai avec activecell.offset(0, 1 ou 2) mais ça ne marche pas.
Merci pour votre aide.

[mayekeul]

bonjour,

l'événement n'est pas le bon

tu devrais faire plus quelque chose du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("D:D")) Is Nothing Then
    If Target.Value >= 7000 Then
        Target.Offset(0, 1).Select
        Target.Font.ColorIndex = 1
    Else
        Target.Offset(0, 2).Select
        Target.Font.ColorIndex = 3
    End If
End If
End Sub

[cedana]

Merci mayekeul.
Je remercie aussi tous ceux qui ont participé à cette discussion.
ça fonctionne.
A+