Bonjour,
j'ai un fichier synthèse qui importe par macro des feuilles de données de structure identique depuis plusieurs classeurs. La macro fonctionne bien.
Dans le fichier synthèse, j'ai une autre feuille (feuil7) qui fusionne les données des feuilles importées les unes à la suite des autres sans les lignes vides. Le code utilisé est le suivant et il fonctionne bien aussi :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim i As Long, T() As Variant
 
    Application.ScreenUpdating = False
    Feuil7.Range("a3:L3002").Cells.Clear
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> Feuil7.Name Then
            With Sheets(i)
            T = .Range("A3:L" & .Range("A" & Rows.Count).End(xlUp).Row).Value
            Feuil7.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(T, 1), UBound(T, 2)) = T
            End With
        End If
    Next i
    End Sub
Mon problème est le suivant: la première colonne des données importées est un n° de saisie formaté dans les propriétés des cellules "MTZ-"000 afin que lorsque l'opérateur tape par exemple 6 dans la cellule, cela devient MTZ-006
Ce formatage passe très bien à l'importation avec les codes PasteValues et PasteFormats mais lors de la fusion, il n'y a que la valeur chiffre qui se copie.
Comment modifier mon code pour avoir la fusion des valeurs et des formats ?
Merci