Discussion :

[babybell]

Bonjour amis du forum

J'aimerais savoir s'il existe une instruction pour que , au bout de la saisie d'un certain nombre de caractères dans une cellule, une autre cellule soit sélectionnée automatiquement; par exemple, après avoir saisi 12345 en cellule "B5", la cellule "C5" soit sélectionnée. Je demande cela car, ayant beaucoup de saisie à faire, l'appuie sur "Enter" me fait perdre du temps.

Merci à vous de me répondre.

[ouskel'n'or]

La seule idée qui me vient serait, à chaque changement de cellule, d'afficher une textbox sur la cellule elle-même qui permet de compter les caractères.
Le transfert des données dans la cellule se ferait également lors de ce changement.
La macro qui afficherait la textbox serait placer dans Worksheet_Selection change. Celle qui compterait le nombre de caractères et provoquerait le déplacement dans la cellule suivante serait à placer dans Textbox_Change.
Le saut de ligne quand la dernière colonne serait atteinte, ou le saut de colonne quand la dernière ligne serait atteinte, pourrait également être provoqué dans Textbox_Change
Pour faire un test, colle le code suivant dans dans la feuille de code de la feuille de calculs et place une textbox de la boîte à outils Contrôles dans la feuille de calculs. (Pour la placer dans la cellule visée, on verra après si besoin est )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Cel As Range
Private Sub TextBox1_Change() 'traite les saisies et compte les caractères
    If Len(TextBox1) <= 5 Then
        Cel = TextBox1
        Else
        'Tu dois préciser si tu avances sur la même colonne (Col = Col + 1)...
        'Cells(Cel.Row + 1, Cel.Column).Select
        '... ou si tu avances sur la même ligne (NoLig = NoLig + 1)
        Cells(Cel.Row, Cel.Column + 1).Select
        TextBox1 = Right(TextBox1, 1)
    End If
End Sub

Active la première cellule à renseigner dans la feuille
Ici tu pourrais trouver la première cellule vide de la plage de données déjà renseignée et t'y placer.

Code :

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

1
2
3
Private Sub Worksheet_Activate()
Cells(1, 1).Select
End Sub

Sélectionne la cellule suivante afin de récupérer Target dans Cel

Code :

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

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Cel = Target
TextBox1.Activate
End Sub

Important
Pour réaliser ton test, change de feuille de calculs (pour revenir sur la bonne feuille) afin de provoquer l'événement Worksheet_Activate nécessaire au bon fonctionnement des macros
Bons tests