Problème d'execution "13"

[Wan]

Pouvez-vous m'aider ? Parce que là, je ne vois pas où est l'erreur !! lol

Voici le code :

Private Sub UserForm_Initialize()
Dim Prix As String
Dim nb As String
Dim ca As Long
Sheets('COMPTA ANALYTIQUE').Activate
'Nb de personne
nb = Range('D39').Value
'Prix moyen d'un repas
Prix = Range('E31').Value
'Calcul du chiffre d'affaires
ca = Round((Val(nb) * Val(Prix)) / 1.196, 2)
LblCa.Caption = ca + ' €'
End Sub

Là, un message d'erreur s'affiche 'Incompabilité de type' Erreur Exécution 13.

Merci d'avance pour votre aide

 

[Gorfael]

Re😛roblème d'execution

Wan écrit:

Pouvez-vous m'aider ? Parce que là, je ne vois pas où est l'erreur !! lol

Voici le code :

Private Sub UserForm_Initialize()
Dim Prix As String
Dim nb As String
Dim ca As Long
Sheets('COMPTA ANALYTIQUE').Activate
'Nb de personne
nb = Range('D39').Value
'Prix moyen d'un repas
Prix = Range('E31').Value
'Calcul du chiffre d'affaires
ca = Round((Val(nb) * Val(Prix)) / 1.196, 2)
LblCa.Caption = ca + ' €'
End Sub

Là, un message d'erreur s'affiche 'Incompabilité de type' Erreur Exécution 13.

Merci d'avance pour votre aide

Dim ca As Long : entier long
essaies
Dim ca As Double
ou
Dim ca As variant
A+

 

[Sérieux problème]

Re😛roblème d'execution

J'ai essayé les deux solutions, il ne veut pas !!

Bizzard

 

[PascalXLD]

Re😛roblème d'execution

Bonjour

tu ne précises pas quelle ligne est surlignée

sinon cette ligne

LblCa.Caption = ca + ' €'

c'est plutot

LblCa.Caption = ca & ' €'