XL 2010 Somme cellule en €

[mic6259]

Bonjour
J'ai un petit soucis de calculer dans le cellule H2 la somme en euro des cellules D2 a D4.
Quand je choisi dans le formulaire la TextBox 5 et que je mets par exemple 8.00€ dans la cellule E3, le calcul dans H2 marque 0,00€, mais quand je mets directement 8,00€ dans la cellule E3 çà marche.
Pourriez-vous résoudre le problème et m'expliquer pourquoi?
Merci beaucoup

 

[Eric C]

Bonjour le forum
Bonjour mic6259

Dans ta case E3 (en haut à gauche) tu as un sigle sur lequel tu dois cliquer afin de convertir ta valeur en numéraire.

Bonne soirée à toutes & à tous
@+ Eric c

 

[mic6259]

Bonsoir Eric
A chaque fois il faut reconvertir en nombre, ne serait-il pas possible de le faire automatiquement a chaque changement dans TextBox 5?

 

[Eric C]

Re le fil

Déjà dans le code de ton CommandButton1, il y des erreurs (2 fois la colonne "E") ?? Place ce code dans ton Bouton1 pour que les valeurs soient cohérentes et au bon format :

 Range("a" & L).Value = TextBox1
     Range("b" & L).Value = TextBox2
     Range("c" & L).Value = TextBox3
    
  If TextBox4 <> "" Then Range("D" & L).Value = CDbl(TextBox4)
        If TextBox5 <> "" Then Range("E" & L).Value = CDbl(TextBox5)
        Range("D:E").Rows(L).NumberFormat = "#0.00€"

@+ Eric c

 

[mic6259]

Merci Éric, je vais essayer demain matin
Cordialement

 

[Eric C]

De mémoire, il me semble que ce code t'a déjà été suggéré ....

 

[mic6259]

De mémoire, il me semble que ce code t'a déjà été suggéré ....

Effectivement ce code ma déjà été proposé. Mais ce que je voudrais c'est quand je clique dans TextBox 5 et que je mets dans TextBox5 8 est que je clique sur modifier la valeur ce mets a 8.00€ dans la cellule concernée et que la somme total dans H2 soit en en euro mais non a 0.00€
Merci a toi pour se pencher sur le problème

 

[mic6259]

De mémoire, il me semble que ce code t'a déjà été suggéré ....

Ha, il faut aussi que dans la colonne E les cellules reste en euro
Cordialement

 

[mic6259]

Ha, il faut aussi que dans la colonne E les cellules reste en euro
Cordialement

Bon je pense que je revenir en mode standard vu qu'il n'y a pas de solution.
Merci quand même

 

[Eric C]

Bonjour le forum
Bonjour mic6259

Ton fichier modifié

Bon ouikand à toutes & à tous
@+ Eric c

 

[mic6259]

Formidable Eric, çà marche du tonnerre.
Merci beaucoup
cordialement

 

[Eric C]

@ mic6259 - Il y a l'histoire du ComboBox qui affiche un sigle à la fin (une croche). Il faut que j'y regarde mais là je vais tondre ma pelouse. Bye.

 

[mic6259]

Je reviens sur le sujet
Après saisie et confirmation pour supprimer la somme d'une cellule çà ne marche pas

 

[Eric C]

Re le fil

Tu places ceci pour les TextBoxs 4 & 5 :

Private Sub TextBox4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox4 = "0"
TextBox4.Value = Format(TextBox4, "# ##0.00 €")
End Sub

Ainsi, lorsque tu doubles cliques sur ta TextBox, la valeur "0,00€" s'affiche.

 

[mic6259]

Très bien vu. Je considère le sujet résolu.
Merci beaucoup