AIDE pour macro excel/ déplacement de cellule active

Bonjour à tous

Voila mon problème

Je réalise de la prise de données biométrique (taille poids) de façon informatisée (balance et pied à coulisse)

pour chaque individu on prend la taille puis le poids (une donnée par colonne)

Lors de l'acquisition, un fois qu'une donnée est envoyée la cellule active passe par exemple de C1 à C2....

Je voudrais savoir comment faire pour qu'elle passe de C1 à D1 puis de D1 à C2 puis de C2 à D2 (de façon repété)

et que cela soit modifiable (pour passer par exemple de C1 à F1 puis de F1 à C2 ect etc...)

jsuis un peu perdu

Merci d'avance

précision: ou peut etre plus simplement pour que la prise de données se fasse par alternance sur la colonne c PUIS sur la colonne D en le répétant à chaque fois

Bonjour,

Colle ce code dans le module de la feuille.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Col
    Col = Target.Column
    If Target.Count > 1 Or Col > 2 Then Exit Sub
    Select Case Col
    Case 1: Target.Offset(, 1).Select
    Case 2: Target.Offset(1, -1).Select
    End Select

End Sub

Tu dis

A+

Merci bcp de cette réponse méga rapide..

Ceci dit j'y connais absolument rien en macro et du coup je ne sais meme pas ou coller ca...

Désolé, si tu peux m'éclairer..

Enfin non jsuis pas si nul

option/macro/virtual basic editor/INSERTION/module je copie colle...mais après ?

Executer/ il me demande un nom de macro que je lui donne...../créer....

Et quand je reviens sur la feuille ca ne fait rien

Clic droit sur le nom de l'onglet => Visualiser le code

Tu passe dans l'éditeur VBA et c'est le module de la feuille qui est ouvert.

C'est dans cette feuille que tu colle le code... et c'est tout.

A+

ca marche niquel!!! merci bcp!!!!

du coup...ca marche que pour les colonnes a vers B

que modifier ou que faire pour que ca fonctionne de n'importe quelle colonne vers n'importe quelle autre?

MERCI encore!!

c'est bon !! c'est trouvé !!! c'est réglé! pour 2 cases je peux faire ce que je veux!

merci bcp de l'aide!

Re,

Il est d'usage sur le forum de

A+

Bé en fait j'ai une dernière question.

Quelles sont les modifs a apporter si on veut faire, sur le meme schéma le chemin suivant

A1 B1 D1

A2 B2 D2

ETC...

Sans vouloir abuser!

edit: nan bah en fait c'est bon j'ai trouvé tout seul

encore une grand merci !

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Col
    Col = Target.Column
    If Target.Count > 1 Or Col > 2 Then Exit Sub
    Select Case Col
    Case 1,2: Target.Offset(, 1).Select
    Case 3: Target.Offset(1, -2).Select
    End Select

End Sub

A+