Ordre de sélection de cellules

[shadok6]

Bonjour,

j'ai une feuille excel que j'ai protégée, seules certaines cellules sont non-verrouillées pour l'utilisateur.
Comment faire pour définir l'ordre de selection des ces cellules quand on se déplace avec la touche Tabulation ?
Merci

[Pierre Fauconnier]

Bonjour

On peut utiliser l'évènement SelectionChange de la feuille.

Voici un code à mettre dans le module de la feuille concernée. Il faudra bien évidemment adapter les adresses et le nombre de CASE...

Public DerniereCelluleActive As Range
 
Private Sub Worksheet_Activate()
    Set DerniereCelluleActive = ActiveCell
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    If Not DerniereCelluleActive Is Nothing Then
        Select Case DerniereCelluleActive.Address
            Case "$A$2"
                Range("b4").Select
            Case "$B$4"
                Range("C3").Select
            Case Else
                Range("a2").Select
        End Select
    End If
    Set DerniereCelluleActive = ActiveCell
    Application.EnableEvents = True
End Sub
 

Il y a peut-être plus simple

[shadok6]

Bonjour,

merci pour le code, il marche bien.
Mais à la fermeture du fichier il se produit un bug :"Microsoft Office Excel a rencontré un problème et doit être fermé. Nous vous prions de nous excuser pour le désagrément encouru."
Ce bug n'apparait que les fois où je fais intervenir cette nouvelle partie de code.

De quoi est-ce que ça peut venir?
Merci de votre aide