sauter une cellule quand on alimente le tableau

[gfmout]

Bonjour le forum,

Je me pose la question suivante:
Dans un tableau excel qui sert de base de données.
Est il possible de faire en sorte que la cellule active passe directement de A1 à A3 (sans passer par A2) une fois que A1 a été renseignée?

Serait ce possible par une macro événementielle de la page en question?

Merci d'avance pour vos réponses éclairées.

Gilles

 

[Dan]

Bonsoir,

Bien sur que c'est possible mais comment alimente tu ta base de données ? Manuellement ou par macro ?
Et ce que tu demandes dois s'appliquer uniquement pour les valeurs de la colonne A ?

 

[gfmout]

Bonsoir Dan,

Merci pour ta réponse rapide.

C'est possible!! J'ai l'oeil qui pétille déjà de bonheur...
En fait j'alimente la base de façon manuelle.
Je passerai en userform un jour sans doute mais c'est pas d'actualité pour l'instant.

Pour répondre à ta quetion,
J'alimente en fait cellule I2 puis dois aller en L2 et ensuite P2, Q2 et R2.
Les cellules des autres colonnes sont des formules et je n'ai pas besoin de passer dessus.

Alors? Comment faire?

Merci pour ton aide

Gilles

 

[Bernard_XLD]

Bonjour Gfmout, Dan

c'est possible avec ce type de code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range('A1').Address Then Range('A3').Select
End Sub

mais on peut également le faire sans VBA en déverrouillant les cellules devant être renseignées et en protégeant la feuille avec impossibilité de sélectionner les cellules verrouillées, l'utilisateur ne pourra alors passer que sur les cellules déverrouillées, la sélection suit et la tabulation aussi.

Cordialement, A+

Message édité par: yeahou, à: 26/03/2006 20:29

 

[Dan]

Re,

Suite la proposition de Yeahoo, tu peux placer ce code en VBA dans la feuille où se trouve tes données :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = Range('I2').Address Then
    Target.Offset(0, 3).Activate
ElseIf Target.Address = Range('L2').Address Then
    Target.Offset(0, 4).Activate
ElseIf Target.Offset(0, 1) Then
End If
End Sub

 

[gfmout]

Bonsoir Dan, Yeahou,

Merci pour vos réponses!
J'ai mis en application et ça marche super

Gilles