XL 2010 Conversion format monétaire [RESOLU]

[cathodique]

Bonjour,

Avec cette macro j'extrais des données d'une feuille et mets celles-ci sur une autre feuille.

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.

 

[Paritec]

Bonjour Cathodique le forum
oui mais ta solution tu dois la tester, car si par malheur tu as une cellule vide tu vas avoir un bug
du style
if isnumeric(cel.Offset(0, -1)) then
a+
Papou

 

[cathodique]

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.