Discussion :

[pite0611]

Bonjour,

Je souhaiterai créer un code permettant que quand j'ai fini de rentrer ma valeur dans la cellule B1 il me renvoi automatiquement dans la cellule A2, puis par la suite quand je rentre une valeur dans la cellule B2 et que j'appuis sur entrer il me renvois a la cellule A3, et ainsi de suite..

Pensez-vous pouvoir m'aider svp ?

Cordialement

[pite0611]

OK, plus besoin de répondre j'ai la réponse..
Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:B")) Is Nothing Then
    If Target.Column = 1 Then
    Target.Offset(0, 1).Select
    End If
    If Target.Column = 2 Then
    Target.Offset(1, -1).Select
    End If
End If
End Sub

Cordialement

[Menhir]

Ca pourrait être plus simple :

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:B")) Is Nothing Then Exit Sub
    IIf(Target.Column = 1, Target.Offset(0, 1), Target.Offset(1, -1)).Select
End Sub

Voir même :

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:B")) Is Nothing Then Exit Sub
    Target.Offset(Target.Column - 1, 3 - Target.Column * 2 ).Select
End Sub

[pite0611]

Oui c'est vrai haha, merci !

[patricktoulon]

bonjour menhir
interessant ton idée mais elle ne fonctionn pas pour"A"
j'ai testé avec une autre formule avec "switch" et j'ai la meme erreur

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:B")) Is Nothing Then Exit Sub
    IIf(Target.Column = 1, Target.Offset(0, 1), Target.Offset(1, -1)).Select
End Sub

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
Set cel = Switch(Target.Column = 2, Target.Offset(1, -1), Target.Column = 1, Target.Offset(0, 1))
cel.Select
End Sub

j'ai pas d'explication si tu trouve fait passer

[pijaku]

Bonjour,

En VBA, lorsque l'on utilise IIf (ou Switch), toutes les expressions sont évaluées.
Or, lorsque Target.Column égale à 1, Target.Offset(1, -1) renvoie une erreur.

Donc, pour que la méthode fonctionne, il faut utiliser un If :

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("A:B")) Is Nothing Then Exit Sub
   If Target.Column = 1 Then Target.Offset(0, 1).Select Else Target.Offset(1, -1).Select
End Sub

[unparia]

Bonjour
1) à Franck
2) histoire de ne pas faire comme tout le monde (d'où mon pseudo) -->>

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 2 Then
   Range("A:B")((Target.Row * 2) + 1).Select
 End If
End Sub

Patapé, je sors ...

[Menhir]

En VBA, lorsque l'on utilise IIf (ou Switch), toutes les expressions sont évaluées.
Or, lorsque Target.Column égale à 1, Target.Offset(1, -1) renvoie une erreur.

Bien vu.
Pas évidente à trouver celle-là.

Donc, pour que la méthode fonctionne, il faut utiliser un If :

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("A:B")) Is Nothing Then Exit Sub
   If Target.Column = 1 Then Target.Offset(0, 1).Select Else Target.Offset(1, -1).Select
End Sub

Ou bien (juste histoire de m'entêter, le breton à la tête dure ) :

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:B")) Is Nothing Then Exit Sub
    Target.Offset(IIf(Target.Column = 1, 0, 1), IIf(Target.Column = 1, 1, -1)).Select
End Sub