Discussion :

[grisan29]

bonjour a vous

je ne sais comment modifier le code ci dessous afin qu'il écrive avec le signe € dans la feuille en col F et G

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub CommandButton8_Click()
    Dim L As Long, C As Byte
 
    With Worksheets("Commande")
        L = .Range("A65536").End(xlUp).Row
        For i = 1 To Me.ListView1.ListItems.Count
            .Range("A" & L + i).Value = Me.ListView1.ListItems(i).ListSubItems(1).Text
            If UCase(.Range("A" & L + i).Value) <> .Range("A" & L + i).Value Then
                .Range("A" & L + i).Font.Italic = True
            End If
            If Me.ListView1.ListItems(i).ListSubItems(2).Text <> "" Then
                .Range("B" & L + i).Value = Me.ListView1.ListItems(i).ListSubItems(2).Text
            End If
            If Me.ListView1.ListItems(i).ListSubItems(3).Text <> "" Then
                .Range("D" & L + i).Value = Me.ListView1.ListItems(i).ListSubItems(3).Text
            End If
            If IsNumeric(Me.ListView1.ListItems(i).ListSubItems(4)) Then
                .Range("E" & L + i).Value = CDbl(Me.ListView1.ListItems(i).ListSubItems(4).Text) 'q
            End If
            If IsNumeric(Me.ListView1.ListItems(i).ListSubItems(5)) Then
                .Range("F" & L + i).Value = CDbl(Me.ListView1.ListItems(i).ListSubItems(5).Text) 'pu
 
            End If
            If IsNumeric(Me.ListView1.ListItems(i).ListSubItems(9)) Then
                .Range("G" & L + i).Value = CDbl(Me.ListView1.ListItems(i).ListSubItems(9).Text) 'q*pu
 
            End If
                Next i
            End With

Merci par avance

Pascal

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("F" & L + i).NumberFormat="#,##0.00 $"

[grisan29]

bonjour Mercatog

je revenais justement pour donner la solution que j'ai trouvé depuis midi et qui ressemble a ta solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("F" & L + i).NumberFormat = "#,##0.00€"

juste le signe apres les "zeros" qui change

Merci beaucoup car les solutions sont bonnes
cordialement

Pascal