Bonjour à tous ,

Je viens de développez ce code et je l'est isérer dans un boutoin activX dans la Feuil 3 de mon classeur Excel , Or quand j'ai recopier le code dedans dans un autre boutton dans la feuil 1 du méme classeur çà bug ... :/ ...

La ligne est indiqué au comentaire du code ci dessus :

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
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
Merci d'avance pour votre aide ...