Bonjour les maitres du vba
Mon soucis
j'importe des données apres filtre d'une autre feuille de calcul du meme fichier pour les coller dans une une feuille 3 de mise en page; pour certains chiffres, j'ai mis un format de nombre(lignes 24-25 du code)(2 ou trois chiffres apres la virgule selon la colonne). probleme certains chiffres ne sont pas modifie selon le critere
Pouvez vous m'aider?
mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40 Sub Impression_liste() Dim dl As Long, d As Long, i As Long dl = Worksheets("BD").Range("A" & Worksheets("BD").Rows.Count).End(xlUp).Row d = Worksheets("Feuil3").Range("A" & Worksheets("Feuil3").Rows.Count).End(xlUp).Row ' Définition de la zone d'impression avec variable dl 'Selectionne la plage filtrée et le copie vers la feuille "BD" With Worksheets("BD") .Range("P1:Q" & dl).SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("Feuil3").Range("A7") Union(.Range("C1:C" & dl), .Range("I1:I" & dl)).SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("Feuil3").Range("C7") .Range("D1:D" & dl).SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("Feuil3").Range("E7") Union(.Range("F1:H" & dl), .Range("M1:M" & dl)).SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("Feuil3").Range("F7") End With 'largeur des colonnes With Worksheets("Feuil3") .Columns("A:A").ColumnWidth = 18 .Columns("B:B").ColumnWidth = 7.29 .Columns("C:C").ColumnWidth = 12 .Columns("D:D").ColumnWidth = 6.86 .Columns("E:G").ColumnWidth = 8.7 .Columns("H:H").ColumnWidth = 3.57 .Columns("I:I").ColumnWidth = 7.43 'format des chiffres des colonnes .Range("F8:G" & d).NumberFormat = "0.00" .Range("I8:I" & d).NumberFormat = "0.000" 'couleur de la premiere ligne .Range("A7:I7").Interior.Color = 52377 'couleur texte entete With .Range("A7:I7").Font .ThemeColor = xlThemeColorDark1 .Bold = True .Name = "Calibri" End With End With End Sub
Partager