XL 2010 Conversion format monétaire [RESOLU]

cathodique

XLDnaute Barbatruc
Bonjour,

Avec cette macro j'extrais des données d'une feuille et mets celles-ci sur une autre feuille.
VB:
Sub extraction()
    Dim Tblo() As Variant, Orders As ListObject
    Dim cel As Range, f As Integer
    Sheets("6010").Range("D12:H2500").ClearContents
    ''''''''''''''''''''''''''''''''
    Set Orders = Sheets("Comptes").ListObjects("Tableau_dep")
    For Each cel In Orders.DataBodyRange.Columns(2).Cells
        If cel.Value = 6010 Then
            f = f + 1
            ReDim Preserve Tblo(1 To 5, 1 To f)
            Tblo(1, f) = CDbl(cel.Offset(0, -1).Value)  'format source monetaire
            Tblo(2, f) = cel.Value
            Tblo(3, f) = cel.Offset(0, 1).Value
            Tblo(4, f) = cel.Offset(0, 2).Value
            Tblo(5, f) = cel.Offset(0, 3).Value
        End If
    Next cel
    ActiveSheet.Range("D12").Resize(f, 5) = Application.Transpose(Tblo)
End Sub
La première colonne de la feuille "comptes" et au format monétaire.

Etant donné que je passe par un tableau, comment modifier le code pour avoir le même format sur la feuille 6010 (actuellement, les valeurs sont au format texte).

En vous remerciant par avance

Edit: il fallait convertir en CDbl. Merci pour la consultation.
 
Dernière édition:

cathodique

XLDnaute Barbatruc
Bonjour Paritec:),

Merci pour l'astuce. En effet, je n'y avais pas pensé.
Je vais revenir avec ce bout de code sur une autre discussion pour un problème de transfert que je ne comprends pas du tout, d'autant plus que je viens de me mettre aux variables tableaux (je prépare un fichier).

Merci et bonne journée.
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 942
Membres
101 849
dernier inscrit
florentMIG