Empécher le curseur d'aller au dela d'une colonne

Bonjour Peepone,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 9 Then [a2].Select
End Sub

'lSteph
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: 6697690A-4ECE-4C77-BD29-844893944430@microsoft.com...

Bonjour,

Je voudrais que mon curseur arrivé en colonne "I1"
se retrouve en première colonne "A2" et ce dans une feuile non protégé.
Les données sont rentrées manuellement.
Mon but est de rentrer des info clients sans limite de lignes,
mais sans aller + loin que "I"
Merci encore pour vos sugestions.
Peponne31

Salut peponne,

tu mettre la propriété ScrollArea de la feuille à $A:$I

ou une macro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 10 Then Cells(Target.Row + 1, 1).Select
End Sub

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: 6697690A-4ECE-4C77-BD29-844893944430@microsoft.com...

Bonjour,

Je voudrais que mon curseur arrivé en colonne "I1"
se retrouve en première colonne "A2" et ce dans une feuile non protégé.
Les données sont rentrées manuellement.
Mon but est de rentrer des info clients sans limite de lignes,
mais sans aller + loin que "I"
Merci encore pour vos sugestions.
Peponne31

...au cas où sélection plage

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
For Each c In Target.Cells
If c.Column > 9 Then [a2].Select: Exit Sub
Next
End Sub


'lSteph
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: 6697690A-4ECE-4C77-BD29-844893944430@microsoft.com...

Bonjour,

Je voudrais que mon curseur arrivé en colonne "I1"
se retrouve en première colonne "A2" et ce dans une feuile non protégé.
Les données sont rentrées manuellement.
Mon but est de rentrer des info clients sans limite de lignes,
mais sans aller + loin que "I"
Merci encore pour vos sugestions.
Peponne31

Merci Jean François
C'est la bonne formule.
Merci encore.
Peponne31

Salut peponne,

tu mettre la propriété ScrollArea de la feuille à $A:$I

ou une macro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 10 Then Cells(Target.Row + 1, 1).Select
End Sub

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: 6697690A-4ECE-4C77-BD29-844893944430@microsoft.com...

Bonjour,

Je voudrais que mon curseur arrivé en colonne "I1"
se retrouve en première colonne "A2" et ce dans une feuile non protégé.
Les données sont rentrées manuellement.
Mon but est de rentrer des info clients sans limite de lignes,
mais sans aller + loin que "I"
Merci encore pour vos sugestions.
Peponne31

Bonjour,

Merci à vous pour vos réponses,
je dois reconnaitre que grace à vous
le programme avance
et évantuellement ci cela interresse quelqu'un il sera à disposition.
Merci encore pour votre soutient.

....au cas où sélection plage

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
For Each c In Target.Cells
If c.Column > 9 Then [a2].Select: Exit Sub
Next
End Sub


'lSteph
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: 6697690A-4ECE-4C77-BD29-844893944430@microsoft.com...

Bonjour,

Je voudrais que mon curseur arrivé en colonne "I1"
se retrouve en première colonne "A2" et ce dans une feuile non protégé.
Les données sont rentrées manuellement.
Mon but est de rentrer des info clients sans limite de lignes,
mais sans aller + loin que "I"
Merci encore pour vos sugestions.
Peponne31