Discussion :

[tibss]

Bonjour,

Lorsque je veux affecter une macro boutton sur une macro excel qui fonctionne, cette dernière plante.

J'ai peur de ne pas avoi saisi les raisons. Voici 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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
Private Sub ToggleButton1_Click()
 
Dim WA As Workbook
Dim WB As Workbook
 
'Affectation du chemin d'accès 
Set WA = Workbooks.Open(Filename:="\\mon chemin d'accès\mon_fichier_excel1.xls")
Set WB = Workbooks.Open(Filename:="\\mon chemin d'accès\mon_fichier_excel2.xls")
'***********************************
 
'***********************************
'Supprimer colonnes 
ThisWorkbook.Sheets("mise_en_forme1").Activate
Rows("1:30").Delete
 
'Copier le tableau qui se trouve dans l'onglet "tableau1", sur une autre feuille Excel
WA.Sheets("tableau1").Cells(1, 1).Select
WA.Sheets("tableau1").Range(Selection, Selection.End(xlToRight)).Select
WA.Sheets("tableau1").Range(Selection, Selection.End(xlDown)).Select
Selection.Copy 
 
'Coller le tableau qui a été copié pour le copier sur ma feuille Excel
ThisWorkbook.Sheets("mise_en_forme1").Activate
ThisWorkbook.Sheets("mise_en_forme1").Cells(1, 1).Select
ActiveSheet.Paste
 
'Appelle la fonction de mise en forme
Call MEF_archive_non_archive()
 
'***********************************
'Supprimer colonnes 
ThisWorkbook.Sheets("mise_en_forme2").Activate
Rows("1:30").Delete
 
'Copier le tableau qui se trouve dans l'onglet "tableau2", sur une autre feuille Excel
WA.Sheets("tableau2").Cells(1, 1).Select
WA.Sheets("tableau2").Range(Selection, Selection.End(xlToRight)).Select
WA.Sheets("tableau2").Range(Selection, Selection.End(xlDown)).Select
Selection.Copy 
 
'Coller le tableau qui a été copié pour le copier sur ma feuille Excel
ThisWorkbook.Sheets("mise_en_forme2").Activate
ThisWorkbook.Sheets("mise_en_forme2").Cells(1, 1).Select
ActiveSheet.Paste
 
'Appelle la fonction de mise en forme
Call MEF_archive_non_archive()
 
End Sub
 
Function MEF_archive_non_archive()
 
'Mettre en forme les en-têtes du tableau
 
Range(Cells(1, 1), Cells(1, 4)).Select  !!! La fonction plante à cet endroit
With Selection
.Font.Bold = True ' mettre en gras
.Font.ColorIndex = 2 ' mettre en blanc
.Interior.ColorIndex = 14 ' mettre la cellule en vert
.Borders(xlEdgeBottom).Weight = xlMedium
.Borders(xlEdgeBottom).ColorIndex = 2
End With

Comme vous pouvez le constater dans l'annotation que j'ai mis au niveau du code, lorsque je fais appel à la fonction "Function MEF_archive_non_archive()" le code plante lorsque je veux sélectionner une plage de cellule : "Range(Cells(1, 1), Cells(1, 4)).Select". Pourtant avant d'appeler la fonction, je me trouve bien dans la bonne feuille (respectivement mise_en_forme1 et mise_en_forme2)...

Quelqu'un a-t-il une idée s'il vous plaît ?

Pour précision, Excel me renvoie l'erreur 1004 - Erreur définie par l'application ou par l'objet

Merci d'avance !

[mercatog]

Essaies ceci

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
Private Sub ToggleButton1_Click()
Dim WA As Workbook
 
Set WA = Workbooks.Open(Filename:="\\mon chemin d'accès\mon_fichier_excel1.xls")
Call Archive_Non_Archive(ThisWorkbook.Sheets("mise_en_forme1"), WA.Sheets("tableau1"))
Call Archive_Non_Archive(ThisWorkbook.Sheets("mise_en_forme2"), WA.Sheets("tableau2"))
Set WA = Nothing
End Sub
 
Sub Archive_Non_Archive(sh As Worksheet, ws As Worksheet)
 
sh.Rows("1:30").Delete
ws.Cells(1, 1).CurrentRegion.Copy sh.Cells(1, 1)
With sh.Range(sh.Cells(1, 1), sh.Cells(1, 4))
    .Font.Bold = True                           ' mettre en gras
    .Font.ColorIndex = 2                        ' mettre en blanc
    .Interior.ColorIndex = 14                   ' mettre la cellule en vert
    .Borders(xlEdgeBottom).Weight = xlMedium
    .Borders(xlEdgeBottom).ColorIndex = 2
End With
End Sub

Bien sûr le nom des feuilles et fichiers sont valables

[tibss]

Merci de la réponse !
Cela fonctionne à merveille

[babaothe]

enlève le premier sh. après with

[tibss]

J'ai une dernier petite question avant de clore ce post :
D'après ce que j'ai compris, je en peux pas faire de "Sh.Cells(x, y).Select" sans que VBA me renvoie une erreur.

De ce fait, je me demande comment faire por executer ce type de commande qui permet de sélectionner toute une colonne d'un tableau :

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Sh.Cells(1, 2).Select
For Each cellule In Sh.Range(Selection, Selection.End(xlDown))
If cellule.Value <> "" Then i = i + 1
Next

j'ai automatiquement un soucis sur "Sh.Cells(1, 2).Select"...

[tibss]

Merci, je crois que j'ai trouvé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For Each cellule In MEF.Range(MEF.Cells(1, 2), MEF.Cells(1, 2).End(xlDown))
If cellule.Value <> "" Then i = i + 1
Next

Merci beaucoup pour votre aide !

Re-Bonjour,

Toujours au sujet du macro-boutton, mon tri sur une colonne ne fonctionne plus, même quand je préciser la worksheet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sh.Range("A1").Sort , Key1:=Sh.Columns("A"), Header:=xlGuess, Order1:=xlDescending

Quelqu'un aurait-il une idée ?

merci d'avance