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 : Sélectionner tout - Visualiser dans une fenêtre à part
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