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
Partager