Discussion :

[Superpat9999]

Bonjour,
Avec le code suivant, je souhaite qu'en sortant de la cellule S6 (par TAB ou ENTER), me repositionner sur la cellule I6, même si je ne la modifie pas, mais que j'y passe.
Ici la macro ne s'active pas et le me retrouve sur A4

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("S6")) Is Nothing Then
            Range("I6").Select
    End If
End Sub

[Jean-Philippe André]

Salut,

Essaie en passant par l'evenement Selection_Change au lieu du Worksheet_Change

[Superpat9999]

Merci de me répondre,
Cela ne fonctionne pas car dès que je rentre dans la cellule, j'en ressort, même pas le temps de la modifier...
Il me faudrait un code à la sortie de la cellule

Code :

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

1
2
3
4
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("S6")) Is Nothing Then
            Range("I6").Select
    End If

[Jean-Philippe André]

Environ 45 secondes de reflexion pour trouver une solution de contournement (efficace ?)

Code :

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

1
2
3
4
5
6
7
8
9
Public PrevRange As Range
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    If Not PrevRange Is Nothing Then
        If Not Application.Intersect(PrevRange, Range("S6")) Is Nothing Then
                Range("I6").Select
        End If
    End If
    Set PrevRange = Target
End Sub

[Superpat9999]

Merci beaucoup Jean-Philippe André, tout fonctionne parfaitement.
Bonne journée
Je passe en résolu

[Superpat9999]

Bonjour,
Je reviens vers vous, car je viens de voir un problème dans mon code.
Lors d'une recherche à travers une plage :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Rem Tri du tableau
    If nouveau1 = 1 Then
        Range("A12:F" & rang).Select
        Selection.Sort Key1:=Range("A12"), Order1:=xlAscending, Header:=xlNo, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End If
        Rem protéger la feuille
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=""
 
Rem Copie dans la feuille bilan
    Sheets("Bilan").Activate
        Range("A1").Select
        Cells.Find(What:="", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
            xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
            False).Activate
        rang = ActiveCell.Row

A la ligne 3, le fait de sélectionner une plage de cellules, la fonction "Private Sub Worksheet_selectionChange" me désélectionne ma plage et je ne peux plus trier !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_selectionChange(ByVal Target As Range)
  If Not PrevRange Is Nothing Then
        If Not Application.Intersect(PrevRange, Range("e4")) Is Nothing Then
             Range("a4").Select
        End If
        If Not Application.Intersect(PrevRange, Range("S6")) Is Nothing Then
             Range("I6").Select
        End If
    End If
    Set PrevRange = Target
End Sub