sélectionner la cellule à coté si la cellule de départ est dans la xeme colonne.

[manphenix]

Bonjour à tous,

Je souhaite mettre dans le code l'onglet "une certaine" interdiction de sélectionner une cellule d’une colonne X. Ou plutôt quand je sélectionnerai la cells(5,x) automatiquement je serai renvoyé sur la cells(5, X+1).
J’avais pensé à ça mais ça ne marche pas.
Private Sub Worksheet_Change(ByVal sel As Range)
Application.EnableEvents = False
If sel.Column = 6 Then cell.Offset(0, 1).Select
Application.EnableEvents = True
End Sub
Avez-vous une idée ?
Merci d’avance

 

[JCGL]

Re : sélectionner la cellule à coté si la cellule de départ est dans la xeme colonne.

Bonjour à tous,

Bienvenue sur XLD,

Peux-tu essayer :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 6 Then Target.Offset(0, 1).Select
Application.EnableEvents = True
End Sub

A + à tous

 

[manphenix]

Re : sélectionner la cellule à coté si la cellule de départ est dans la xeme colonne.

ca marche super
merci JCGL

 

[Staple1600]

Re : sélectionner la cellule à coté si la cellule de départ est dans la xeme colonne.

Bonsoir à tous

Pour le fun (et pour saluer JCGL 😉 )

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Application.Goto Target.Offset(0, -(Target.Column = 6))
Application.EnableEvents = True
End Sub

PS: Comme les ifs ne sont pas des arbres menacés, je m'amuse à les zigouiller dans VBA.
On trompe l'ennui comme on peut. Désolé 😉

EDIT: Et parce qu'il y avait longtemps que je n'avais rendu hommage à mes endives 😉, une variante

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Application
    .EnableEvents = False
    .Goto Target.Offset(, -(Target.Column = 6))
    .EnableEvents = True
End With
End Sub[I][COLOR=#a9a9a9]
[/COLOR][/I]