Worksheet_SelectionChange(ByVal Target As Range)

[PAD]

Bonjour à tous,
le forum,


Je voudrais savoir comment je peux dire en VBA :

Si je viens d’entrer des données dans la lignes 1
Je vais à la ligne 10 pour de nouvelles entrées

Pour moi la 1ère ligne serait :
If Application.Intersect(Target, Rows(1)) Then

Et la 2éme ligne pourrait être :
Application.Intersect(Target, Rows(10)) & Target.Address

Mais en réalité, je ne sais pas.

Merci

A+ PAD

Message édité par: PAD, à: 18/04/2006 17:43

 

[pierrejean]

bonjour PAD

teste cela

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

a +

 

[PAD]

Bonjour Pierrejean,

C'est bon, ça marche bien B)

Merci beaucoup,

A+ PAD