Déplacement automatique de la sélection d'une cellule

[langa68]

Bonjour,

Je cherche avec une macro à déplacer automatiquement de la sélection d'une cellule après l'avoir remplie.

En fait après avoir validé la cellule B6 (voir mon exemple) la sélection de la cellule doit aller en C6.
Puis après validation en B7, puis C7 etc...
Arrivé en C12, je dois pouvoir avec la souris aller en G6. La tout le processus continue, G6-> H6,
H6->G7 etc...
Arrivé en H12, je dois pouvoir avec la souris aller en B15. Et ainsi de suite.

Merci par avance à qui peut m'aider.

 

[phlaurent55]

Re : Déplacement automatique de la sélection d'une cellule

Bonjour langa,

avec ce code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 7 Then
Cells(Target.Row, Target.Column + 1).Select
End If
If Target.Column = 3 Or Target.Column = 8 Then
Cells(Target.Row + 1, Target.Column - 1).Select
End If
End Sub

à+
Philippe

 

[phlaurent55]

Re : Déplacement automatique de la sélection d'une cellule

Re,

on peut automatiser le chemin complet pour passer d'une zone à la suivante avec ce code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 12 And Target.Column = 3 Then
Cells(6, 7).Select
Exit Sub
End If
If Target.Row = 12 And Target.Column = 8 Then
Cells(15, 2).Select
Exit Sub
End If
If Target.Row = 21 And Target.Column = 3 Then
Cells(15, 7).Select
Exit Sub
End If
If Target.Column = 2 Or Target.Column = 7 Then
Cells(Target.Row, Target.Column + 1).Select
End If
If Target.Column = 3 Or Target.Column = 8 Then
Cells(Target.Row + 1, Target.Column - 1).Select
End If
End Sub

à+
Philippe

 

[langa68]

Re : Déplacement automatique de la sélection d'une cellule

Merci pour la réponse. Je vais tester tout cela cet après midi.
Pourrait tu me donner quelques explications??
Merci

 

[langa68]

Re : Déplacement automatique de la sélection d'une cellule

Bonjour,
J'ai encore un petit soucis: J'ai mis la macro dans ThisWorkbook\Modules\Module1, mais je n'arrive pas à activer la macro.
peut tu m'aider??

Merci

 

[Legolas]

Re : Déplacement automatique de la sélection d'une cellule

Bonjour,

Il faut mettre le code dans le module de la feuille.
Clique droit sur le nom de l'onglet, puis visualiser le code.
Copier-coller le code dans cette page.

A+

 

[langa68]

Re : Déplacement automatique de la sélection d'une cellule

Merci pour ton aide

 

[langa68]

Re : Déplacement automatique de la sélection d'une cellule

Bonjour,

J'ai fait ce que tu m'a demandé. tout fonctionne.
ce qui serait bien c'est que je puisse activer la macro avec un clic dans une cellule. (par exemple la celulle B6) et que la macro s'arrête dans la cellule C12.
Ensuite je clique dans une autre cellule (par exemple la G6 et que la macro s'arrête dans la cellule H12.
Et ainsi de suite.

Mon tableau peut éventuellement contenir plusieures plages comme celle-ci.

Merci pour votre aide.

 

[phlaurent55]

Re : Déplacement automatique de la sélection d'une cellule

Re Bonjour

ce qui serait bien c'est que je puisse activer la macro avec un clic dans une cellule. (par exemple la celulle B6) et que la macro s'arrête dans la cellule C12.

Dans ce cas le premier code donné à la réponse#2 suffit

à+
Philippe

 

[langa68]

Re : Déplacement automatique de la sélection d'une cellule

Bonjour,
je me suis sûrement mal exprimé au paravent.

Le code doit fonctionner n'importe ou dans mon fichier qui comporte plusieures feuilles.
Il est donc important pour moi en tant que débutant de savoir ou placer ce code.
J'ai fait un test en essayant d'adapter ton code, mais sans résultat satisfaisant. (voir ci dessous)

Private Sub Worksheet_Change(ByVal Target As Range)
cancel = True

Cells(Target.Row, Target.Column).Select
Cells(Target.Row, Target.Column + 1).Select

'Cells(Target.Row - 1, Target.Column).Select

End Sub

Ce serait vraiment gentil de ta part de m'aider.

Je te remercie d'avance.

 

[phlaurent55]

Re : Déplacement automatique de la sélection d'une cellule

Re Bonjour

en mettant le code dans ThisWorkBook, il fonctionnera pour toutes les feuilles du classeur

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 7 Then
Cells(Target.Row, Target.Column + 1).Select
End If
If Target.Column = 3 Or Target.Column = 8 Then
Cells(Target.Row + 1, Target.Column - 1).Select
End If
End Sub

voir fichier joint

à+
Philippe

 

[langa68]

Re : Déplacement automatique de la sélection d'une cellule

Bonjour,

Merci pour ton aide.
ça marche bien