Somme Produit dans un formulaire Userform

Bonjour

Au fait je suis entrain de faire un formulaire Userform qui comporte 2 colonne (TextBox) a partir desquels je veux faire leur somme de produit, quand je click sur calculer.

Premierement, j'ai posé ma formule pour le calcul. mais je constate que s'il ya pas d'entree dans une des plage des colonne, le calcul ne passe pas.

Sur ceux je sollicite votre aide.

Deuxiemement, le meme probleme je le constate dans les plages d'excel car apres avoir entrer les donnees dans le userform, je l'enregistre dans une base de donnees sous forme de tableau. une fois enregistré, je procede au calcul de leur SOMMEPROD. celle-ci ne passe pas aussi.

je suis disponible pour éventuels details afin de resoudre mon probleme car cela fait partie de mon Projet de fin d'etude.

merci d'avance

Bonjour et bienvenue sur le forum

Ne pas perdre de vue qu'un TextBox contient du texte...

un essai à tester. Te convient-il ?

Bye !

Formidable gmb!

ca fonctionne tres bien

Merci beaucoup

Pour mon deuxieme point qui consiste a faire la meme formule dans la feuille excel "Source". celle ci enregistre les entrees du formulaire apres clic sur "Enregistrer". quand je fais la formule [=SOMMEPROD(($B$4:$B$13)*($C$4:$C$13))] , le resultat affiche #valeur car tant que y'a des cellules vide entre (B4:C13) pas de resultat, sinon resultat s'affiche correctement.

quelle est la bonne formule ou la syntaxe correcte.

Merci une fois de plus

Nouvel essai

Bye !

Merci encore Gmb

j'ai juste convertie la colonne "A" en text en utilisant la fonction "CSTR".

Merci de simplifier davantage mes ligne de code car suis un debutant de 1e ordre...

Sache que je te reviendrai souvent car ceci concerne mon projet de fin d'etude.

Grand Merci une fois de plus

bonjour

pense aussi a mettre des KeyPress pour les chiffres exemple:

Private Sub txtq1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   If InStr("1234567890", Chr(KeyAscii)) = 0 Then KeyAscii = 0: Beep
End Sub

Private Sub txtP1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   If InStr("1234567890", Chr(KeyAscii)) = 0 Then KeyAscii = 0: Beep
End Sub

Private Sub btnAjout_Click()
Dim I As Long
    With Sheets("Source")
        For I = 1 To 10
            .Cells(I + 3, 1).Value = Controls("TxtE" & I)
            .Cells(I + 3, 2).Value = Val(Controls("txtq" & I))
            .Cells(I + 3, 3).Value = Val(Controls("TxtP" & I))
        Next I
    End With
End Sub

A+

Maurice