selectionner cellule automatique

[Gysmo]

Bojour

J'aimerais que quand la personne selectionne une cellule, c'est toujours la colonne A qui est selectionner....pour être plus clair :

si c4 selectionner c'est a4 qui est "active".....si b6 c'est A6......

Merci

 

[DL_13]

Re : selectionner cellule automatique

Bonjour,

Code à mettre dans le Module de la Feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A" & Target.Row).Select
End Sub

Bonne Journée

 

[Vinc]

Re : selectionner cellule automatique

Bonjour Gysmo,
voilà un bout de code à insérer pour la feuille en question...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Range("A" & ActiveCell.Row).Select
End Sub

 

[Robert]

Re : selectionner cellule automatique

Bonjour Gysmo, bonjour le forum,

Faisable mais dangereux car tant que les macros seront actives tu ne pourras plus selectionner aucune cellule hors de la colonne A...
Code à placer dans le composant VBA de l'onglet concerné (Feui1(Feuil1) par exemple) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'si la colonne de la cellule sélectionnée est supérieure à 1, sélectionne la cellule en colonne A de la même ligne
If Target.Column <> 1 Then Cells(Target.Row, 1).Select
End Sub

[Édition]
Bonjour Vinc on s'est croisé... Ta version est plus courte mais on pourrait faire alors :

Cells(Target.row, 1).Select

Ooops DL je ne t'avais pas vu non plus.... Oui Avec Range ou Cells, mais pas les deux...

 

[Gysmo]

Re : selectionner cellule automatique

Merci a vous tous !!!! La solution de Robert me convient parfaitement !!!!!!

Bonne journée