selectionner cellule automatique

Gysmo · 22 Mai 2011

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 · 22 Mai 2011

Re : selectionner cellule automatique

Bonjour,

Code à mettre dans le Module de la Feuille

Code:

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

Bonne Journée

Vinc · 22 Mai 2011

Re : selectionner cellule automatique

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

Code:

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

Robert · 22 Mai 2011

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) :

Code:

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 :

Code:

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 · 22 Mai 2011

Re : selectionner cellule automatique

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

Bonne journée

selectionner cellule automatique

Gysmo

Guest

DL_13

XLDnaute Occasionnel

Pièces jointes

Vinc

Guest

Robert

XLDnaute Barbatruc

Gysmo

Guest

Discussions similaires

selectionner cellule automatique

Gysmo

Guest

DL_13

XLDnaute Occasionnel

Pièces jointes

Vinc

Guest

Robert

XLDnaute Barbatruc

Gysmo

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency