Restreindre certaine cellule clavier visuel

[JeanMc]

Bonjour,

J'ai ajouté un clavier numérique à un formulaire excel et je voudrais restreindre la saisie du clavier à certaines cellules.

Dans l'exemple joint je veut qu'après avoir saisie dans colonne G en appuyant sur Ok le curseur va se placer en C.

Même si j'ai verrouillé les cellules et interdit la selection des cellules verrouillées ça ne fonctionne pas.

Pouvez vous m'aider ??

Merci d'avance

Saluts!!

 

[youky(BJ)]

Re : Restreindre certaine cellule clavier visuel

Bonsoir
essai comme ca..

Private Sub CommandButton16_Click()
If ActiveCell.Column = 10 Then
ActiveCell.Offset(1, -4).Select
Else
ActiveCell.Offset(0, 1).Select
End If
End Sub

rajout de derniere minute pour éviter si la selection est hors jeu

Private Sub CommandButton16_Click()
If Intersect(Range(Selection.Address), Range("F9:J27")) Is Nothing Then Exit Sub
If Selection.Address = "$J$27" Then Exit Sub
If ActiveCell.Column = 10 Then
ActiveCell.Offset(1, -4).Select
Else
ActiveCell.Offset(0, 1).Select
End If
End Sub

 

[JeanMc]

Re : Restreindre certaine cellule clavier visuel

MERCI! Ça fonctionne.
Mais , il y a souvent un mais, si je veux compliquer la chose et que je veux que la restriction s'effectue sur plisueurs plage= >Range("F9:J27,F32:J53,F38 :J71") quest-ce que je dois ajouté à ton code ??

 

[youky(BJ)]

Re : Restreindre certaine cellule clavier visuel

Ben oui ...
If Intersect(Range(Selection.Address), Range("F9:J27,F32:J53,F38:J71")) Is Nothing Then Exit Sub
N'hésite pas à tester
A+

 

[JeanMc]

Re : Restreindre certaine cellule clavier visuel

J'ai essayé et ça ne fonctionne pas.

If Intersect(Range(Selection.Address), Range("F9:J27,F32:J53")) Is Nothing Then Exit Sub Rendue à J 28 tout s'arrête
Comment le faire passé de J27 à F32 ??

Je suis a mes débuts en VBA et il m'en manque des bouts.

Saluts!

 

[JeanMc]

Re : Restreindre certaine cellule clavier visuel

J'ai résolue le problème en créant un bouton "Section 2" qui déplace le curseur en F32 .
Donc lorsque l'utilisateur veux saisir dans la section 2 il appuie sur le Bouton et le curseur va se placé en F32.

Encore Merci pour ton Aide

Salutations !

 

[youky(BJ)]

Re : Restreindre certaine cellule clavier visuel

Oups!
Autant pour moi tu as raison....
Il faut tester sur chaque tableau...je le fait de ce pas
A+

 

[youky(BJ)]

Re : Restreindre certaine cellule clavier visuel

sur cette ligne
If Selection.Address = "$J$27" Then Exit Sub
il serait bon de faire des modifs
If Selection.Address = "$J$27" Then [F32].select 'fin tablo1 et deb tablo2
If Selection.Address = "$J$53" Then [F59].select 'fin tablo2 et deb tablo3
idem autant qu'il y a de tablo
A+