E
Eric
Guest
Bonsoir à tous & à toutes,
grace aux bons conseils de SylSyl, de Moxom & de Michel, j'ai réussi à avancer dans mes fichiers. En effet, je suis amené à faire de longues donc fastidieuses saisies de chiffres.
Avec les # codes obtenus :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 7 Then
Cells(Target.Row + 1, 1).Select
End If
End Sub
Private Sub WorkSheet_Change(ByVal Target As Range)
If Len(Range("F1")) = 7 And IsNumeric(Range("F1")) Then
Range("A2").Select
End If
End Sub
je pensais pouvoir faire une synthèse du genre :
if len(Target.column) = 7 then
Cells(Target.Row + 1, 1).Select
MAIS en VAIN.
J'ai bidouillé toute l'après midi main NIET.
Il doit exister une solution qui automatise le passage
à la cellule du dessous que l'on désigne; et ce sans intervention de la
touche ENTRER, si un nombre de 7 chiffres est
saisi, Non ????
A bientôt de vous lire & bonnes fêtes de fin d'année
Eric
grace aux bons conseils de SylSyl, de Moxom & de Michel, j'ai réussi à avancer dans mes fichiers. En effet, je suis amené à faire de longues donc fastidieuses saisies de chiffres.
Avec les # codes obtenus :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 7 Then
Cells(Target.Row + 1, 1).Select
End If
End Sub
Private Sub WorkSheet_Change(ByVal Target As Range)
If Len(Range("F1")) = 7 And IsNumeric(Range("F1")) Then
Range("A2").Select
End If
End Sub
je pensais pouvoir faire une synthèse du genre :
if len(Target.column) = 7 then
Cells(Target.Row + 1, 1).Select
MAIS en VAIN.
J'ai bidouillé toute l'après midi main NIET.
Il doit exister une solution qui automatise le passage
à la cellule du dessous que l'on désigne; et ce sans intervention de la
touche ENTRER, si un nombre de 7 chiffres est
saisi, Non ????
A bientôt de vous lire & bonnes fêtes de fin d'année
Eric