Erreur définie par l'application ou par l'objet [Résolu]

[PPN83]

Bonjour,

Lorsque je tape le 911 ème caractères jai l'erreur 1004 "Erreur définie par l'application ou par l'objet" sur la ligne 13 de mon code alors que le MaxLength est à 1000.
Je ne comprends pas pourquoi ?
Merci d'avance

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub text0_Change()
Dim ctp
 
ctp = Len(text0.Value)
If ctp = 1000 Then
MsgBox "Rappel le Nombre de caractères est limité à 1000"
End If
If ctp > 1 Then
Range("c5").Value = ctp & " caractères"
Else
Range("c5").Value = ctp & " caractère"
End If
Sheets("Données").Range("b1") = text0
 
End Sub

[Daniel.C]

Bonjour,

J'ai essayé de reproduire l'erreur, en supposant que text0 soit un textbox sur un userform. Je n'y ai pas réussi. Quelle est ta version d'Excel ?

[PPN83]

bonjour,

Oui il s'agit d'un textbox mais il se trouve sur une feuille de calcul différente de la feuille "Données" . La version est Excel 2003.

[aalex_38]

text0.value ?

[Daniel.C]

C'est un bug "officiel" Excel 2003. Plus de détails ici :

http://support.microsoft.com/kb/818808

[PPN83]

Bonjour,

Merci à tous les 2, la solution d'aalex_38 fonctionne.