Discussion :

[brubel]

Bonjour,

Je suis assez nouveau en VBA.

Lors de la saisie d'une donnée dans une cellule, j'aimerais que la prochaine cellule active soit une autre que la suivante disponible....

Par exemple, si j'entre "Y" dans la cellule B3, j'aimerais que je puisse entrer une donnée dans la cellule A1 au lieu de B4...
Si la valeur entrée et autre que "Y", je veux que la prochaine cellule sélectionnée soit B4...

J'ai fait une procédure if,then,else... qui ressemble à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
  If range("b3") = "Y" Then
 
    range("a1").Select
 
    Else
 
    End If

Cette procédure fonctionne sauf qu'une fois la cellule A1 sélectionnée, j'ai beau entrer une donnée mais elle demeure la cellule active et je ne peux plus me déplacer dans la feuille.

[Menhir]

Pourrais-tu donner la totalité de ton code ?
Je suppose que tu as placé la partie que tu montre dans une fonction Change, non ?

Essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target as Range)
    if Target.adress = "B3" and Range("B3").Value="Y" Then Range("A1").Activate
End Sub

[brubel]

Bonjour Menhir
Merci pour cette aide, le problème était dans l'intitulé (private sub...) ...