automatisation changement cellule

lm87

XLDnaute Nouveau
Bonjour à tous,
je n'arrive pas à trouver de réponses et pourtant j'ai chercher.
Voilà mon soucis. Je viens de créer une feuille "paramètres" avec des cellules séparées. J'ai restreint dans ces cellules, la saisie à 1 chiffre et changer le sens du déplacement, vers la droite. J'aimerais maintenant automatiser le passage d'une cellule à la suivante sans pour cela avoir à taper ou sur TAB ou ENTREE ou utiliser les flèches directionnelles.

A1(saisie) passage auto sur B1

Une bonne âme aurait elle la solution à mon problème.
Je débute en VBA, mais je pense que la solution passe par là.

remerciements
 

Pierrot93

XLDnaute Barbatruc
Re : automatisation changement cellule

Bonjour lm, Bertrange

regarde le code ci dessous, à placer dans le module de la feuille concernée (click droit sur l'onglet, visualiser le code et tu colles) :

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Len(Target.Value) = 1 Then
    If Target.Column < 256 Then
        Target.Offset(0, 1).Select
    Else
        Target.Offset(1, -255).Select
    End If
End If
End Sub

bonne soirée
@+
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 023
Messages
2 084 713
Membres
102 637
dernier inscrit
TOTO33000