Report tableau numérique

Bonjour,

Je saisis des données sur une feuille "camp" et je les archive sur une autre feuille "BD" en utilisant des variables tableaux.

Mon souci est le report des données de la colonne "B" de la feuille "BD", je sais à priori que les données de cette colonne sont sont de type Alphanumérique ou numérique (ENTIER).

Je voudrai, si les données sont des entiers les reporter en tant qu'entier, ce que je n'arrive pas à obtenir.

Avec mon code, si c'est par exemple 23, il est reporter sur la feuille BD en 23,00 alors que je voudrais qu'il soit reporté à l'identique (23).

Option Explicit

Sub Archivage()
Dim i&, J&
Dim Plg As Range, PLg_EnTete As Range, c As Range
Dim T_EnTete As Variant, T_Data As Variant, T_Report As Variant
Dim bd As Object

Set bd = Sheets("Camp") 'définit l'onglet bd
dl = bd.Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit derlg col1 onglet bd

Application.ScreenUpdating = True          'désactive mise à jour écran

With bd
    Set PLg_EnTete = .Range("C2:C3,E2:E4,G2:G3")
    Set Plg = .Range(.Cells(8, 2), .Cells(.Rows.Count, 2).End(3).Offset(, 4))
    T_EnTete = .Range("A1:G3")
End With

T_Data = Plg
ReDim T_Report(1 To UBound(T_Data, 1), 1 To 30)

For i = LBound(T_Data, 1) To UBound(T_Data, 1)

    T_Report(i, 1) = T_EnTete(1, 5)       
    T_Report(i, 3) = CDate(T_EnTete(2, 5))
    T_Report(i, 18) = T_EnTete(1, 4)      
    T_Report(i, 19) = T_EnTete(1, 2)
    T_Report(i, 22) = T_EnTete(3, 3)
    T_Report(i, 4) = T_EnTete(2, 3) 
    T_Report(i, 24) = T_EnTete(2, 7)
    T_Report(i, 25) = T_EnTete(3, 7)

   'On boucle sur les colonnes du tableau T_Report

   J = 7
   T_Report(i, J) = Int(T_Data(i, J - 6))    '************si c'est numérique     

   J = 17
   T_Report(i, J) = T_Data(i, J - 13)        'OBSERVATION

Next i

Sheets("BD").Cells(Rows.Count, 1).End(3)(2).Resize(UBound(T_Report, 1), UBound(T_Report, 2)) = T_Report
MsgBox "Archivage terminé!", vbInformation, "Archivage des données"
Application.ScreenUpdating = True
End Sub

Mon souci est avec la ligne pour j=7

En vous remerciant par avance.

Bon week-end.

Cordialement,

bonjour

suggestion pour contourner la difficulté : dans ton tableau de destination, créer une colonne où tu mets la formule

= (tacolonnequicontientdesentiersetdestextes) * 1

Bonjour Jmd,

Je m'excuse pour le retard indépendant de ma volonté, j'ai eu un souci matériel sur mon pc.

Je te remercie pour ta proposition. Ma colonne peut aussi contenir du texte (code alphanumérique genre: pm11).

J'ai mis le format de cellules de cette colonne en standard, ça semble fonctionner.

Je n'avais pas précisé que via un bouton je peux mettre à jour la feuille BD à partir d'un fichier CSV que je reçois.

N'ayant pas encore ce fichier csv je ne sais pas ce que ça va donner.

Je te remercie beaucoup pour ton aide.

Cordialement,