Restreindre certaine cellule clavier visuel

youky(BJ)

XLDnaute Barbatruc

• 18 Novembre 2009

• #2

Re : Restreindre certaine cellule clavier visuel

Bonsoir
essai comme ca..

Code:

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

Code:

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

 

Dernière édition: 18 Novembre 2009

Vote positif 0 Vote négatif

J

JeanMc

Guest

• 18 Novembre 2009

• #3

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 ??

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 18 Novembre 2009

• #4

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+

 

Vote positif 0 Vote négatif

J

JeanMc

Guest

• 19 Novembre 2009

• #5

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!

 

Vote positif 0 Vote négatif

J

JeanMc

Guest

• 19 Novembre 2009

• #6

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 !

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 19 Novembre 2009

• #7

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+

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 19 Novembre 2009

• #8

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+

 

Vote positif 0 Vote négatif