Feuille Excel

[CAULIER]

bonjour à tous;
Mon problème est le suivant :
-- Je désire que lorsque j'ai entré un nombre de X chiffres, le focus passe à la ligne suivante et ce ainsi de suite, à savoir qu'un jour je saisi 10 lignes alors que le lendemain je vais en saisir 30.

 

[sylsyl]

Salut Caulier,

je ne pense pas qu'il soit possible de compter le nombre de characteres dans une cellule pendant que celle-ci est active (i.e. pendant que tu rentres les donnees).

Le plus simple est donc de creer un petit userform lie a un module.
Mon (ou Ma ?) userform contient simplement une zone de texte ("Textbox1") et un bouton pour sortir ("Button1")
Le module peut etre lie a un raccourci clavier...

-------------------------
Module1
-------------------------

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 12/12/03 by Sylsyl
'
' Keyboard Shortcut: Ctrl+d
'
UserForm1.Show
End Sub


----------------------
Userform1
----------------------
Private Sub CommandButton1_Click()
Unload Me ' ferme le userform
End Sub

Private Sub TextBox1_Change()
Dim X As Integer
X = 5
If Len(TextBox1) = X Then 'lorsque le texte atteint X characteres...
ActiveCell = TextBox1 '... inscrire le texte dans la cellule active
TextBox1 = "" '...effacer la textbox
ActiveCell.Offset(1, 0).Select '...rendre active la cellule suivante.
End If
End Sub

A++, Sylsyl.