ordre de déplacement entre cellules déverrouillées

Utiliser une macro VBA pour contrôler l’ordre de navigation

Private Sub Worksheet_Change(ByVal Target As Range)
    ' Vous pouvez laisser cela vide si pas nécessaire
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim nextCell As Range

    ' Ordre personnalisé des cellules
    Dim cellOrder As Variant
    cellOrder = Array("B2", "D2", "B4", "D4") ' <- Modifiez l’ordre ici

    Dim i As Integer
    For i = 0 To UBound(cellOrder)
        If Target.Address = Range(cellOrder(i)).Address Then
            If i < UBound(cellOrder) Then
                Set nextCell = Range(cellOrder(i + 1))
            Else
                Set nextCell = Range(cellOrder(0)) ' Boucle au début
            End If
            Exit For
        End If
    Next i
End Sub

Ce script fonctionne mieux si vous définissez le comportement de la touche Entrée pour ne pas changer de cellule automatiquement. Pour cela :

    Allez dans Fichier > Options > Options avancées.

    Sous Options d’édition, décochez "Après avoir appuyé sur Entrée, déplacer la sélection".

    (Facultatif) Gérez le déplacement avec un bouton ou une autre macro.

Mes réponses sont volontaires et sans garantie !

J'espère que cela vous aidera.