empecher la selection des cellules

[stargate]

Bonjour,

Sur le feuil1, j'ai créer un écran de démarrage.
lorsque l'utilisateur appuie sur la touche enter
il passe à la feuil2

code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

SendKeys '{~}'
Feuil2.Activate

End Sub

je voudrais lorsque l'utilisateur clique sur la feuil1 rien ne se passe

enlever la cadre de la cellule active

une idée
merci

 

[MichelXld]

bonjour

l'exemple proposé dans ce lien pourra certainement t'aider

Lien supprimé


bon week end
MichelXld

 

[stargate]

merci MichelXld


J'ai récupérer le code

Private Sub Workbook_Open()
With Sheets('Feuil1')
.EnableSelection = xlUnlockedCells
.Protect
End With
End Sub


il me bloque la touche enter aussi ????

 

[MichelXld]

rebonjour

oui puisque tu l'avais associé à l'evenement Private Sub Worksheet_SelectionChange(ByVal Target As Range) qui correspond à la selection de cellules . dans ta question j'ai compris que tu ne souhaitais au contraire empecher la selection des cellules dans la feuil1

peux tu preciser ton besoin ?


bon week end
MichelXld

 

[stargate]

Oui,c'est exact


ce que je voulais aussi c'est que l'utilisateur
quand il appuie sur la touche enter,il va sur la feuil2

peut-on mettre le code dans un autre évènement
que selection_change

 

[MichelXld]

rebonjour Stargate

tu peux par exemple utiliser evenement doubl clic sur la Feuil1 , pour activer la Feuil2

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Feuil2.Activate
End Sub


bon week end
MichelXld

 

[stargate]

ok merci