Bouton pour faire somme

[Fathi NASRAOUI]

bonjour

je veux faire un bouton pour faire la somme de deux cellules et de mettre le résultat dans une 3eme cellule
ce que j'ai mis :

Private Sub CommandButton1_Click()
With Worksheets("Feuil2")
.Range("I6") = Val(.Range("E6")) + Val(.Range("H6"))
End With

End Sub

il me fait en couleur jaune la ligne : With Worksheets("Feuil2") ,, sachant que la feuille 2 est nommée Devis et j'ai esssayé avec feuil2 et devis mais toujours mm erreur


et merci d'avance

 

[Johan]

Problème de syntaxe VBA, fais tout simplement :

.Range("I6") = Range("E6") + Range("H6")

 

[Fathi NASRAOUI]

slt johan
merci pour la réponse
j'ai essayé de cette facon mais tjr : With Worksheets("Feuil2") sélectionné en jaune
comme dans les figures

merci

 

[Johan]

T'as bien une feuille "Feuil2" ?

Essaye avec le fichier que j'ai inséré en PJ

Envoie ton fichier sinon, ce sera plus simple

Johan

 

[Fathi NASRAOUI]

le voi

T'as bien une feuille "Feuil2" ?

Essaye avec le fichier que j'ai inséré en PJ

Envoie ton fichier sinon, ce sera plus simple

Johan

la mon fichier

 

[Fathi NASRAOUI]

le voila johan
le fchier est en PJ

et merci

 

[Johan]

Re,

Remplace "Feuil2" par "Devis" et renomme bien ta feuille 2 "Devis", y'avait un espace quelque part qui empechait l'addition

 

[Johan]

D'ailleurs c'est en cellule J que tu veux ton résultat, pas I.

Bon je te rend ton fichier ca sera plus simple ^^

 

[Fathi NASRAOUI]

oui exactement ,

merci beaucoup Johan

sa marche Bien