Changement de cellule si cellule contient 8 caractères

Bonjour Frenchie, bonjour tout le monde,

J'ajoute +100 au +100 de ThauTheme, se qui place la mise à plus de 200...

Une petite variante en complément de ta procédure, en utilisant une macro paramétrée. OnKey le permet en encadrant le nom et le paramètre de la macro de simple quote ' :

Application.OnKey "{48}",  "'maMacro 48'"

Ce qui nous donne :

Sub auto_open()
    Dim i As Byte
    'désactivation des touches du pavé alphanumérique
    For i = 48 To 57
        Application.OnKey "{" & i & "}", "'Chiffre " & i & "'"
    Next
    'désactivation des touches du pavé numérique
    For i = 96 To 105
        Application.OnKey "{" & i & "}", "'Chiffre " & i & "'"
    Next
End Sub

Sub Chiffre(Num As Byte)
    If Len(ActiveCell) >= 8 Then Exit Sub 'Sécurité supplémentaire pour interdire de pouvoir taper un chiffre dans une cellule déjà pleine
    ActiveCell.Value = ActiveCell.Value & IIf(Num > 57, Chr(Num - 48), Chr(Num))
    If Len(ActiveCell) >= 8 Then ActiveCell.Offset(1, 0).Select
End Sub

Sub Auto_close()
    Dim i As Byte
    'désactivation des touches du pavé alphanumérique
    For i = 48 To 57
        Application.OnKey "{" & i & "}"
    Next
    'désactivation des touches du pavé numérique
    For i = 96 To 105
        Application.OnKey "{" & i & "}"
    Next
End Sub

Nota : Pour passer plusieurs paramètres à une macro paramétrée via Onkey, il convient de séparer les paramètres d'une virgule. Le premier paramètre n'est toutefois séparé du nom de la macro que par un espace. Toujours entouré le tout de '...
Exemple :

Dim i As Byte, p As Byte, q As Byte
Application.OnKey "{48}", "'maMacro " & i & ", " & p & ", " & q & "'"

et Un + pour Frank après celui de ce matin pour Frenchie :o))
Discussion plus que précieuse et enrichissante
Bravo à tous les 2

Bonjour Frenchie,

Merci pour ton aide !!! C'est vraiment super !!!!!
Ca va vraiment me changer la vie !!!!!
Pas contre, peux tu m'expliquer comment tu as fait?
A quoi sert l'activation / desactivation des touches ?
Et ça, c'est quoi ?
Sub Chiffre8()
ActiveCell.Value = ActiveCell.Value & "8"

Pourquoi ça ne marche pas si on met seulement :
Sub Deplacement()
If Len(ActiveCell) = 8 Then ActiveCell.Offset(1, 0).Select


Merci pour tes explications, j'essaye d'apprendre tout douvement le VBA.

Cdt,

Merci pour tes explications, c'est trés clair.
Par contre juste un dernier point : j'ai remarqué que la macro ne fonctionne qu'avec le pavé numérique. ( codes clavier de 96 à 105 si j'ai bien compris) comment puis je changer cela pour que cela fonctionne avec les chiffres au dessus du clavier. MAJ+& pour le 1 par exemple.

Merci bcp,