XL 2010 Afficher dans TextBox en Euro

[mic6259]

Bonjour
Pourriez-vous m'aider a afficher dans TextBox3 et TextBox4 une somme et que dans les colonne D et E les cellules s'affiche en euro.
Merci beaucoup

 

[patricktoulon]

Bonjour
ben tu met ces deux colonnes en format monétaire c'est tout

après pour que le format s'applique
il faut envoyer la valeur des textbox en numérique en l’état les deux textbox etant du string(texte même le nombres) les cellules le reçoivent en texte

mais si tu y tiens voilà l'event revue et corrigé

Private Sub CommandButton1_Click()

    Dim L As Integer

    If MsgBox("Confirmez-vous l'insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
        L = Sheets("Adhérents").Range("a65536").End(xlUp).Row + 1    'Pour placer le nouvel enregistrement à la première ligne de tableau non vide

        Range("A" & L).Value = ComboBox1
        Range("B" & L).Value = TextBox1
        Range("C" & L).Value = TextBox2
        If TextBox3 <> "" Then Range("D" & L).Value = CDbl(TextBox3)
        If TextBox4 <> "" Then Range("E" & L).Value = CDbl(TextBox4)
        Range("D:E").Rows(L).NumberFormat = "#0.00€"
    End If
End Sub

 

[mic6259]

J'ai essayé, ça ne marche pas

 

[patricktoulon]

c'est normal que ca ne marche pas je te dis pourquoi dans mon précédent message

 

[Eric C]

Bonjour le forum
Bonjour mic6259, bonjour Patrick

Ce thème a été abordé ICI il n'y a pas si longtemps.

Bon dimanche à toutes & à tous
@+ Eric c

 

[mic6259]

c'est normal que ca ne marche pas je te dis pourquoi dans mon précédent message

Merci patricktoulon
Je vais essayer tout à l'heure. J'ai essayé plusieurs codes sans succès, mais je pense que le tien me conviendra
Cordialement

 

[patricktoulon]

re
j'ai revu aussi le bouton modifier car bien entendu il faut faire pareil

Private Sub CommandButton1_Click()'bouton nouveau

    Dim L As Integer

    If MsgBox("Confirmez-vous l'insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
        L = Sheets("Adhérents").Range("a65536").End(xlUp).Row + 1    'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
        Range("A" & L).Value = ComboBox1
        Range("B" & L).Value = TextBox1
        Range("C" & L).Value = TextBox2
        If TextBox3 <> "" Then Range("D" & L).Value = CDbl(TextBox3)
        If TextBox4 <> "" Then Range("E" & L).Value = CDbl(TextBox4)
        Range("D:E").Rows(L).NumberFormat = "#0.00€"
    End If
End Sub
Private Sub CommandButton2_Click() ' bouton modifier
    Dim Ligne&, i%
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
       If MsgBox("Confirmez-vous la modification de ce contact ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
         Ligne = Me.ComboBox1.ListIndex + 2
        Range("B" & i + 1).Value = TextBox1
        Range("C" & i + 1).Value = TextBox2
        If TextBox3 <> "" Then Range("D" & i + 1).Value = CDbl(TextBox3)
        If TextBox4 <> "" Then Range("E" & i + 1).Value = CDbl(TextBox4)
       End If
End Sub

 

[mic6259]

Re:
Je viens d'essayé mais les modifications se font a partir de la ligne 1
Cordialement

 

[mic6259]

C'est bon j'ai trouvé
Merci beaucoup