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 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85
|
'Code du bouton 1 de la feuil 3
Private Sub CommandButton1_Click()
Dim cell As Range
For Each cell In Range("C9:AH9")
If cell.Value = "Fils" Or cell.Value = "Vide" Then
cell.Select
'bug au niveau de cette ligne :/ et méme les ligne qui le suive quand je supprime méme la totalité de la ligne :(
Columns(cell.Column).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
End
End If
Next cell
Sheets(3).Select
ActiveSheet.Range("C18").Select
ActiveSheet.Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets(4).Select
ActiveSheet.Range("B15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(3).Select
ActiveSheet.Range("C19").Select
ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(4).Select
ActiveSheet.Range("B16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("C:C").EntireColumn.AutoFit
Sheets(3).Select
ActiveSheet.Range("A1").Select
Application.CutCopyMode = False
Sheets(4).Select
ActiveSheet.Rows("15:15").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Rows("6:6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("A1").Select
Application.CutCopyMode = False
ActiveSheet.Cells.Select
Selection.ColumnWidth = 7.5
With Selection
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Sheets(4).Select
ActiveSheet.Range("A1").Select
End Sub |
Partager