XL 2010 Somme cellule en €

Eric C

XLDnaute Barbatruc

• 8 Octobre 2021

• #2

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

 

Vote positif 0 Vote négatif

M

mic6259

XLDnaute Occasionnel

• 8 Octobre 2021

• #3

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?

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 8 Octobre 2021

• #4

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 :

VB:

 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

 

Vote positif 0 Vote négatif

M

mic6259

XLDnaute Occasionnel

• 8 Octobre 2021

• #5

Merci Éric, je vais essayer demain matin
Cordialement

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 8 Octobre 2021

• #6

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

 

Vote positif 0 Vote négatif

M

mic6259

XLDnaute Occasionnel

• 9 Octobre 2021

• #7

Eric C à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

M

mic6259

XLDnaute Occasionnel

• 9 Octobre 2021

• #8

Eric C à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

M

mic6259

XLDnaute Occasionnel

• 9 Octobre 2021

• #9

mic6259 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 9 Octobre 2021

• #10

Bonjour le forum
Bonjour mic6259

Ton fichier modifié

Bon ouikand à toutes & à tous
@+ Eric c

 

Pièces jointes

• Test mic6259.xlsm

  41.6 KB · Affichages: 13

Vote positif 1 Vote négatif

Solution

M

mic6259

XLDnaute Occasionnel

• 9 Octobre 2021

• #11

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 9 Octobre 2021

• #12

@ 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.

 

Vote positif 0 Vote négatif

M

mic6259

XLDnaute Occasionnel

• 9 Octobre 2021

• #13

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 9 Octobre 2021

• #14

Re le fil

Tu places ceci pour les TextBoxs 4 & 5 :

VB:

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.

 

Vote positif 0 Vote négatif

M

mic6259

XLDnaute Occasionnel

• 9 Octobre 2021

• #15

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

 

Vote positif 0 Vote négatif