XL 2016 Garder la largueur des colonnes et hauteurs des lignes

fenec

XLDnaute Impliqué
Bonjour le forum,

Je viens une nouvelle fois vers vous car je ne parviens pas à modifier ma macro pour qu'elle garde la largueur des colonnes et la hauteurs des lignes lors de l'extraction.

D'avance merci pour l'aide que vous pourrez me donner.

Cordialement,

Fenec.
 

Pièces jointes

  • Exemple Macro extraction .xlsm
    33.5 KB · Affichages: 12

Staple1600

XLDnaute Barbatruc
Bonsoir

Cela semble OK ainsi, non ?
VB:
Sub Scinder_Base()
Dim Feuil As Worksheet, Cellule As Range
Application.ScreenUpdating = False
    For Each Feuil In Sheets
        If Feuil.Name <> "Mouvements" And Feuil.Name <> "BdD" Then  'Feuil.Delete
            Application.DisplayAlerts = False
                Feuil.Delete
            Application.DisplayAlerts = True
        End If
    Next
'CREATION DES FEUILLES AUTOMATIQUE
Sheets("BdD").Select
    For Each Cellule In Range("A2", Range("A1000").End(xlDown))
        If Cellule.Value <> "" Then
            Sheets.Add after:=Sheets(Sheets.Count)
            ActiveSheet.Name = Cellule.Value
            ActiveSheet.Range("K1:K2").Value = Application.Transpose(Array("Produits", ActiveSheet.Name))
Sheets("Mouvements").Range("B3:P2000").AdvancedFilter Action:=xlFilterCopy, criteriarange:=ActiveSheet.Range("K1:K2"), copytorange:=ActiveSheet.Range("B4")
ActiveSheet.Columns("B:I").ColumnWidth = 15.43
ActiveSheet.Rows(4).AutoFit
        'POUR REACTIVER LES FILTRES
        Sheets("Mouvements").Range("G9").AutoFilter
        End If
    Next Cellule
End Sub
 

Discussions similaires