Incompatibilité de type

Bonjour !

J'obtiens l'erreur "Incompatibilité de type" avec le code suivant.

Code:

---

userform1.NbLettresMoyen1.Caption = (Len(userform1.Verification1.Caption) + (Nb - 1) * CInt(userform1.NbLettresMoyen1.Caption)) / Nb

---

NbLettresMoyen1 est un label

Verification1 est un label.

Nb est un integer défini antérieurement.

Quelqu'un a une idée ?

Merci d'avance !!!

Bonsoir

Il semble que NbLettresMoyen1.Caption ne contienne pas une valeur numérique.

Tu peux t'en assurer ainsi :

Code:

---

OK = IsNumeric(UserForm1.NbLettresMoyen1.Caption)

---

Bonjour,

Entre la valeur 0 dans le Caption de tes Labels avant de lancer la Form :

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize()   NbLettresMoyen1.Caption = 0 Verification1.Caption = 0   End Sub

---

Ça fonctionne !!

Merci ! :mrgreen: