Discussion :

[benoist.cardinal]

Bonjour,
Alors dans le cadre d'un projet durant mon stage, j'ai développé une petite application de suivi de contrat.
utilisant qq lignes de VBA, j'ai déja commencé à créer ma macro VBA sous un module pour pouvoir la testé. Apres avoir fini cette macro, j'ai créé un bouton pour l'executer sur une feuille.
Malgré le fait que l'application fonctionne sans pb ds le module, lorsque je clique sur le bouton il me revient un erreur du type 1004.
je vous met le code ou ca bug pour que vous voyez par vous m^me.

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
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
j = 2
i = 2
 
 
'permet de copier coller dans la feuille OA2008 glabaux au bon endroit
Sheets("OA 2008 bodycote IRLJ").Select
While Not IsEmpty(Cells(i, 1).Value)
    i = i + 1
Wend
Range(Cells(2, 1), Cells(i - 1, 17)).Select
Selection.Copy
Sheets("OA 2008 globaux").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("OA 2008 bodycote IRLJ").Select
Application.CutCopyMode = False

En fait au lieu d'aller chercher la derniere ligne non vide dans la feuille c'est a dire pour i=280 environ il s'arrete a i=4 et me met une erreur au niveau

Code :

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

Range(Cells(2, 1), Cells(i - 1, 17)).Select

Je précise encore une fois que le code marche tres bien en mode module ms pas lorsqu'il est attaché a un bouton sur une feuille...
Avez vous une idée du pb?
je vous remercie.

[casefayere]

Bonjour,
Déjà, à mon avis ton wend est placé au mauvais endroit.

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
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
j = 2
i = 2
 
 
'permet de copier coller dans la feuille OA2008 glabaux au bon endroit
Sheets("OA 2008 bodycote IRLJ").Select
While Not IsEmpty(Cells(i, 1).Value)
    i = i + 1
Range(Cells(2, 1), Cells(i - 1, 17)).Select
Wend
Selection.Copy
Sheets("OA 2008 globaux").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("OA 2008 bodycote IRLJ").Select
Application.CutCopyMode = False

[benoist.cardinal]

merci pour ta réponse mais je ne pense pas car déja dans module cela marché correctement et mon but est d'identifier la derniere case vide afin de tt selectionner avec range.
tu n'es pas d'accord?
Je viens de tester avec ton idée cela ne change rien.
Mais en tt cas je pense que le wend est bien placé.

[Gorfael]

Salut benoist.cardinal
D'après l'ititulé de la maco(Private Sub CommandButton1_Click) tu te trouves dans un module lié à une feuille. Si la feuille n'est pas "OA 2008 bodycote IRLJ", c'est normal, tu ne peux utiliser select (dans les modules de classe feuille) que pour la feuille.
Si on avait un code (et pas un lambeau de code ) on pourrait t'aider.
Pour trouver la dernière cellule tu peut utiliser .SpecialCells(xlCellTypeLastCell) ou, comme dans le texte tu dis vouloir sélectionner (beurk ) toute la plage de travail UsedRange
Mais sans le code...
A+

[casefayere]

Je suis d'accord avec gorfael, mais en attendant, moi j'ai bien placé ton code sur la feuille concernée au bouton de commande et avant de voir la réponse de Gorfael,
j'avais fait ceci et ça marche, mais tiens compte des conseils de Gorfael (plus expérimenté)

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
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
j = 2
i = 2
 
 
'permet de copier coller dans la feuille OA2008 glabaux au bon endroit
Sheets("OA 2008 bodycote IRLJ").Select
While Not IsEmpty(Cells(i, 1).Value)
    i = i + 1
Wend
Range(Cells(2, 1), Cells(i - 1, 17)).Select
Selection.Copy
Sheets("OA 2008 globaux").Activate
Sheets("OA 2008 globaux").Range("A2").Select
ActiveSheet.Paste
Sheets("OA 2008 bodycote IRLJ").Select
Application.CutCopyMode = False

End Sub

[benoist.cardinal]

je vais vour mettre tous le code et sachant que la feuille sur laquelle le bouton est attaché ne correspond à aucune des feuilles qui sont indiquées sur la page de progra.

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
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
j = 2
i = 2
 
 
'permet de copier coller dans la feuille OA2008 glabaux au bon endroit
Sheets("OA 2008 bodycote IRLJ").Select
While Not IsEmpty(Cells(i, 1).Value)
    i = i + 1
Wend
Range(Cells(2, 1), Cells(i - 1, 17)).Select
Selection.Copy
Sheets("OA 2008 globaux").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("OA 2008 bodycote IRLJ").Select
Application.CutCopyMode = False
 
 
'permet de copier coller dans la feuille OA2008 glabaux au bon endroit
Sheets("OA 2008 ss BODYCOTE IRLJ").Select
While Not IsEmpty(Cells(j, 1).Value)
    j = j + 1
Wend
Sheets("OA 2008 ss BODYCOTE IRLJ").Select
Range(Cells(2, 1), Cells(j - 1, 17)).Select
Selection.Copy
Sheets("OA 2008 globaux").Select
Cells(i, 1).Select
ActiveSheet.Paste
Sheets("OA 2008 ss BODYCOTE IRLJ").Select
Application.CutCopyMode = False
 
 
'permet de mettre à jour le TCD OA globaux
Sheets("TCD OA globaux").Select
Range("D3").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable
 
 
'permet de mettre à jour le panel des pièces délestées
'(contractualisées + non contractualisées)
Sheets("OA 2008 globaux").Select
Range("C:C,D:D,M:M,N:N,O:O,Q:Q").Select
Selection.Copy
Sheets("pieces delestées sans doublons").Select
Range("A1").Select
ActiveSheet.Paste
Cells.Select
Range("A1:F12690").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Columns("A:F").Select
Selection.Copy
Sheets("panel pieces delestage").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("pieces delestées sans doublons").Select
Application.CutCopyMode = False
Range("H6").Select
Sheets("OA 2008 globaux").Select
Application.CutCopyMode = False
Range("H6").Select
 
End Sub

Je ne comprend pas tres bien ce que tu as pu changer casefayere dans mon code mis a part

Code :

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

1
2
Sheets("OA 2008 globaux").Activate
Sheets("OA 2008 globaux").Range("A2").Select

mais la progra beuf avant cela...
j'ai du mal a comprendre la lol.
je suis un peu pommé.
Gorfael j'ai bien compris ce que tu as marqué mais dans ce cas la comment fait-on pour aller sélectionner des autres feuilles et travailler dessus.
je vous remercie pour votre aide.