eliot raymond
XLDnaute Occasionnel
Mes salutations a tous, forum
Voila j'ai réussi a faire ce petit code, ca a l'air de bien marcher, sous XL 2007si quelqu'un peut l'améliorer ou me faire une remarque pas de soucis.
J'entre une donnée en colonne B4 je valide , le curseur se place C4 la j'aurai bien voulu une sorte D'INPUT mais pas de TEXTBOX qui aurai cette forme en colonne C et que ca m'affiche a chaque ligne.
N°-et la je rentre mes chiffres est'il possible de faire en sorte que ca ne dépasse pas la cellule lors des entrees, question de loock svp et merci
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 3 Then
If Len(.Value) > 7 Or Len(.Value) = "" Then .ClearContents: .Select
If .Value >= "0" And .Value <= "9" Or .Value = "€" Or .Value = "," Then
Else: .ClearContents: .Select
End If
End If
End With
End Sub
'Ca marche en format STANDARD et MONETAIRE
Je tient a remercier beaucoup au passage Mr Pierrot93 et Mr Vbacrumble de leur collaboration.
Bonne fin d'apres midi a tous
Raymond
Voila j'ai réussi a faire ce petit code, ca a l'air de bien marcher, sous XL 2007si quelqu'un peut l'améliorer ou me faire une remarque pas de soucis.
J'entre une donnée en colonne B4 je valide , le curseur se place C4 la j'aurai bien voulu une sorte D'INPUT mais pas de TEXTBOX qui aurai cette forme en colonne C et que ca m'affiche a chaque ligne.
N°-et la je rentre mes chiffres est'il possible de faire en sorte que ca ne dépasse pas la cellule lors des entrees, question de loock svp et merci
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 3 Then
If Len(.Value) > 7 Or Len(.Value) = "" Then .ClearContents: .Select
If .Value >= "0" And .Value <= "9" Or .Value = "€" Or .Value = "," Then
Else: .ClearContents: .Select
End If
End If
End With
End Sub
'Ca marche en format STANDARD et MONETAIRE
Je tient a remercier beaucoup au passage Mr Pierrot93 et Mr Vbacrumble de leur collaboration.
Bonne fin d'apres midi a tous
Raymond
