Discussion :

[bobob2]

Bonjour !

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!

[Docmarti]

Bonsoir

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

Tu peux t'en assurer ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OK = IsNumeric(UserForm1.NbLettresMoyen1.Caption)

[Theze]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub UserForm_Initialize()
 
    NbLettresMoyen1.Caption = 0
    Verification1.Caption = 0
 
End Sub

[bobob2]

Ça fonctionne !!

Merci !