cathodique
XLDnaute Barbatruc
Bonjour,
Avec cette macro j'extrais des données d'une feuille et mets celles-ci sur une autre feuille.
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.
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 SubEtant 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: