Help pour une macro Excel

Help pour une macro Excel - VB/VBA/VBS - Programmation

Marsh Posté le 30-09-2003 à 14:48:18    

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 :
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Application.EnableEvents = False
  3. If Target.Row > 4 Then
  4.     Select Case Target.Column
  5.    
  6.    
  7.     Case 1
  8.      If Len(Target.Text) > 40 Then
  9.             MsgBox "Field is to long :" & Chr(13) & Chr(10) & "40 characters maximum", , "Error"
  10.             Target = ""
  11.         End If
  12.     Case Is = 2
  13.         If Len(Target.Text) > 12 Then
  14.             MsgBox "Field is to long :" & Chr(13) & Chr(10) & "12 characters maximum", , "Error"
  15.             Target = ""
  16.         End If
  17. ...


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
Reply

Marsh Posté le 30-09-2003 à 14:48:18   

Reply

Marsh Posté le 01-10-2003 à 01:35:51    

essaye:
 
if len(target.text) >40 then
temp=target.address
range(temp)=""
endif

Reply

Marsh Posté le 02-10-2003 à 10:07:31    

Nouvelle kestion :
 
l instruction : ActiveSheet.Copy fonctionne tres bien sous excel XP mais pas sous Excel 97. une idee pourkoi ?


---------------
#mais-chut
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed