hitzig
salwender
Salut,
je vien pas souvent sur ce forum dans la mesure ou j ai rarement l occasion de "programmer"
bon je vous expose mon probleme en esperant que vous pourrez m aider :
en fait, je voudrais m assurer ke lors de la saisie de cellule, les colonnes ne depasse pas un certain nombre de caractere. J ai donc fait un truc comme ca :
Code :
- Private Sub Worksheet_Change(ByVal Target As Range)
- Application.EnableEvents = False
- If Target.Row > 4 Then
- Select Case Target.Column
-
-
- Case 1
- If Len(Target.Text) > 40 Then
- MsgBox "Field is to long :" & Chr(13) & Chr(10) & "40 characters maximum", , "Error"
- Target = ""
- End If
- Case Is = 2
- If Len(Target.Text) > 12 Then
- MsgBox "Field is to long :" & Chr(13) & Chr(10) & "12 characters maximum", , "Error"
- Target = ""
- End If
- ...
|
Ca marche bien pour tout ce qui est saisie une par une, le problemme ce situe au nivo d un copier coller avec ou la, le test ne semble pas ce faire.
kk1 a une idee ou ca cloche ?
---------------
#mais-chut
