Erreur lors de l'execution d'une macro simple

Version imprimable

06/09/2014, 11h28
Mat262

Erreur lors de l'execution d'une macro simple

Bonjour,

Voilà je fais un projet avec Excel et ses macros sous mac osx (Office:mac2011) et j'ai isolé un bout de macro qui me fait toujours une erreur et je ne comprends pas pourquoi... Je vous joins l'excel pour voir déjà si c'est pas un vieux bug du à l'adaptation de VBA de Windows à Mac OSX... Et si l'erreur se produit chez vous aussi, savez-vous pourquoi ?

Merci d'avance,
Matt
06/09/2014, 12h34
SfJ5Rpw8

bonjour,

poste ici entre balises [code] [/code] la partie de code qui cause problème ..

pense aussi as nous dire comment ce manifeste ton erreur , par exemple si un message s'affiche il faut relever la ligne de code concernée (voir ou se trouve le curseur ou la ligne surlignée en jaune) , lire le message essayer de le comprendre et si ce n'est pas le cas le "recopier" ici .. afin que l'on puisse t'aider

Cordialement.

http://www.developpez.net/forums/d84...s-discussions/

J'avais pas vu qu'il était mal venu de joindre un fichier excel au premier message, donc je vous joins le code de ma macro ;).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub Coucou() Dim client_tab As Range On Error GoTo errHandler dernier_client = Worksheets("Clients").Range("B4").End(xlDown).Address nombre_client = Mid(dernier_client, 4) - 4 4 Set client_tab = Worksheets("Clients").Range(Worksheets("Clients").Range("B4"), Worksheets("Clients").Range(dernier_client).Offset(0, 2)) 5 client_tab.Copy Destination:=Worksheets("Clients").Range("BB4") 6 Worksheets("Clients").Range(Range("BC4"), Range("BC4").Offset(nombre_client, 0)).Select Exit Sub errHandler: MsgBox "Une erreur est survenue CmdeClt, Ligne: " & Erl() & _ vbCrLf & "Numéro d'erreur: " & Err.Number & vbCrLf & Err.Description End Sub
Ça plante à la ligne 6 : "Numero d'erreur 1004 : Erreur définie par l'application ou l'objet". En bidouillant un peu, il semble que ça vienne de la méthode "Select"

Merci d'avance pour les infos.
Matt

06/09/2014, 12h45
SfJ5Rpw8

déjà Select dans la plus part des cas c'est inutile ... et mieux vaut l'éviter ...

à quoi sert cette ligne 6 ?

En fait, à la base ma macro était la suivante :

Code:

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
Sub Coucou()
 
Dim client_tab As Range
On Error GoTo errHandler
 
dernier_client = Worksheets("Clients").Range("B4").End(xlDown).Address
nombre_client = Mid(dernier_client, 4) - 4
 
4 Set client_tab = Worksheets("Clients").Range(Worksheets("Clients").Range("B4"), Worksheets("Clients").Range(dernier_client).Offset(0, 2))
 
5 client_tab.Copy Destination:=Worksheets("Clients").Range("BB4")
 
6 Worksheets("Clients").Range(Range("BC4"), Range("BC4").Offset(nombre_client, 0)).Select
7 Worksheets("Clients").Sort.SortFields.Clear
8 Worksheets("Clients").Sort.SortFields.Add Key:=Range("BC4"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With Worksheets("Clients").Sort
        .SetRange Range(Worksheets("Clients").Range("BB4"), Worksheets("Clients").Range("BB4").Offset(nombre_client, 2))
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
Exit Sub
errHandler:
    MsgBox "Une erreur est survenue CmdeClt, Ligne: " & Erl() & _
    vbCrLf & "Numéro d'erreur: " & Err.Number & vbCrLf & Err.Description
End Sub

Et donc la ligne 6 à 8 permettent de classer un tableau par ordre alphabétique. Donc pour se faire, j'ai utilisé l'outil "enregistreur de macro"; j'ai fait ensuite copier/coller et j'ai variabilité le tout. Ça marchais au début puis j'ai du changer quelques trucs et après ça marché plus mais sans raison parce que la méthode Select ne paraît pas si dangereuse que ca mais si tu trouve un moyen de m'en passer, je suis preneur ;).

Bonjour Mat, Bbil, bonjour le forum,

Pas bien compris ton code... Surtout cette ligne :

Code:

Worksheets("Clients").Range(Range("BC4"), Range("BC4").Offset(nombre_client, 0)).Select

que j'aurais écrite :

Code:

Worksheets("Clients").Range("BC4").Offset(nombre_client, 0).Select

Peut-être comme ça :

Code:

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
Sub Coucou()
Dim C As Object 'déclare la variable C (onglet Clients)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim NC As Integer 'déclare la variable NC (Nombre de clients)
 
On Error GoTo errHandler
Set C = Sheets("Clients") 'définit l'onglet C
DL = C.Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne éditée Dl de la colonne 2 (=B) de l'onglet C
Set PL = C.Range("B4:B" & DL) 'définit la plage PL
NC = PL.Cells.Count 'définit le nombre de clients NC
PL.Offset(0, 2).Copy C.Range("BB4") 'copie la plage PL décalée de deux colonnes à droite (=colonne D) et la colle dans la cellule BB4
Worksheets("Clients").Sort.SortFields.Clear
Worksheets("Clients").Sort.SortFields.Add Key:=C.Range("BC4"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With Worksheets("Clients").Sort
    .SetRange C.Range("BB4").Offset(NC, 2) 'pourquoi 2 ?
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
Exit Sub
errHandler:
MsgBox "Une erreur est survenue CmdeClt, Ligne: " & Erl() & _
vbCrLf & "Numéro d'erreur: " & Err.Number & vbCrLf & Err.Description
End Sub

Citation:

Peut-être comme ça :

Code:

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
Sub Coucou()
Dim C As Object 'déclare la variable C (onglet Clients)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim NC As Integer 'déclare la variable NC (Nombre de clients)
 
On Error GoTo errHandler
Set C = Sheets("Clients") 'définit l'onglet C
DL = C.Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne éditée Dl de la colonne 2 (=B) de l'onglet C
Set PL = C.Range("B4:B" & DL) 'définit la plage PL
NC = PL.Cells.Count 'définit le nombre de clients NC
PL.Offset(0, 2).Copy C.Range("BB4") 'copie la plage PL décalée de deux colonnes à droite (=colonne D) et la colle dans la cellule BB4
Worksheets("Clients").Sort.SortFields.Clear
Worksheets("Clients").Sort.SortFields.Add Key:=C.Range("BC4"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With Worksheets("Clients").Sort
    .SetRange C.Range("BB4").Offset(NC, 2) 'pourquoi 2 ?
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
Exit Sub
errHandler:
MsgBox "Une erreur est survenue CmdeClt, Ligne: " & Erl() & _
vbCrLf & "Numéro d'erreur: " & Err.Number & vbCrLf & Err.Description
End Sub

Bien joué, ca marche ;). En fait pour faire une sélection de plusieurs cellule du genre

Code:

"A1:D?"

, je faisais

Code:

Range(Range("A1"),Range("A1").Offset(X,Y))

ca je ne connais pas en avance la taille de mon tableau. Mais cette méthode :

Code:

Range(Range(),Range().offset())

semble faire planter vba. Du coup ta méthode

Code:

C.Range("B4:B" & DL)

est bien pratique, merci beaucoup ;)

06/09/2014, 20h50
SfJ5Rpw8

Citation:

Envoyé par Mat262

....parce que la méthode Select ne paraît pas si dangereuse que ca mais si tu trouve un moyen de m'en passer, je suis preneur ;).

ben ton problème viens de la : utiliser la méthode Select ou activate te permet de travailler sur la feuille courante et tu prends donc la mauvaise habitude d'utiliser Range sans préciser la feuille concernée ... ce qui semble être la cause de ton problème .. la feuille active, pour ce qui est de ne pas utiliser Select et Activate il y as plein de code sur ce forum qui s'en passe...
06/09/2014, 21h49
Mat262

Négatif, j'ai fait plein d'essai en précisant dans quelle feuille je travaillais, en rajoute

Code:

Worksheet("Client")

devant tout et n'importe quoi mais le problème restait là.

Bonjour,

Teste ceci :

Code:

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
 
Sub Coucou()
 
    Dim client_tab As Range
    Dim dernier_client As Range
    Dim nombre_client As Integer
 
    With Worksheets("Clients")
 
        Set dernier_client = .Range("B4").End(xlDown)
        nombre_client = dernier_client.Row - 4
 
        Set client_tab = .Range(.Range("B4"), dernier_client.Offset(, 2))
 
        client_tab.Copy Destination:=.Range("BB4")
 
        .Range(.Range("BC4"), .Range("BC4").Offset(nombre_client, 0)).Select
 
        .Sort.SortFields.Clear
 
        .Sort.SortFields.Add .Range("BC4"), xlSortOnValues, xlAscending, , xlSortNormal
 
        .Sort.SetRange .Range(.Range("BB4"), .Range("BB4").Offset(nombre_client, 2))
 
        With .Sort
 
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
 
        End With
 
    End With
 
End Sub

Hervé.