Rapport de message :*
 

Re: zone définie

Titre du sujet : Re: zone définie
par JCGL le 25/06/2007 20:39:18

Bonjour à tous,
Salut Jaja

Essaye avec :
Option Explicit 'JCGL
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target = "" Then Exit Sub
  Select Case Target.Column
    Case 1
      Target.Offset(0, 1).Select
    Case 2
      Target.Offset(1, -1).Select
  End Select
  Columns("A:E").AutoFit
End Sub


A+


Edition : Salut Didier

Ben moi j'ai compris que Jaja voulait passer de A1 à B1 et ensuite revenir à A2 et passer à B2 et ainsi de suite. Cela sent l'Inventaire arf