XL 2016 Garder la largueur des colonnes et hauteurs des lignes

[fenec]

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.

 

[Staple1600]

Bonsoir

Cela semble OK ainsi, non ?

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

 

[fenec]

Bonjour le forum, Staple1600

Merci, votre code permet en effet de pouvoir définir la largueur de chaque colonne avec :

ActiveSheet.Columns("B:I").ColumnWidth = 15.43

 

[Staple1600]

Bonsoir fenec

J'ai aussi fait quelques autres petits ajouts et modifs, non ? 😉