Bonjour,

J'ai, sur mon ordi personnel, construit un fichier contenant des macros (une fournie par Ferrand le 24 mars à 23:17, l'aute par Galopin le 30 mars à 3:51) qui fonctionnent parfaitement sur mon ordi personnel.

J'ai transféré ce fichier, à l'aide d'une disquette, sur l'ordi du Bureau. Or là, les macros ne fonctionnent plus et le détail du débogage m'indique une erreur 1004

Qui pourrait me dire d'où provient cette anomalie et comment la réparer.

Merci d'avance

bonjour,

lorsque ton message de débogage s'affiche tu as la possibilité soit de cliquer sur débogage soit sur d'autres icônes (je ne me souviens exactement des libellés) qui te permettent de t'amener dans le détail de ta macro.

lorsque le détail de ta macro s'affiche tu as une ligne en surbrillance jaune (de mémoire) qui t'indique que c'est à cet endroit que ta macro plante

je ne suis pas sûre d'avoir été claire !

Salut,

L'erreur 1004 (=erreur de l'application), ça peut être n'importe quoi...

La première question à considérer est : est-ce que au bureau tu tournes sur une version différente d'Excel et laquelle ? (Et quelle est ta version personnelle tant qu'on y est).

Ensuite, sur quelle(s) ligne(s) ça bloque précisément ? Peux-tu nous les reproduire.

A plus.

Rebonjour,

Mon ordi perso est équipé de Excel 2003 et celui du Bureau de Excel 2000.

Voici les macros qui sont surlignées en jaune (indiqué ici en caractères rouge)

La macro Ferrand:

Module 4

Sub Tri_Noms()

Range("A6").Select
Application.Goto Reference:="R6C1:R150C3"
ActiveWindow.SmallScroll Down:=-5
Selection.Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
End Sub

Feuille 1

Private Sub Worksheet_Deactivate()
Sheets("Données").Range("A6:C150").Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End Sub

Macro Galopin

Module 3

Sub Tri_Clôture()
ActiveSheet.Unprotect
i = 3
Do
i = i + 1
Loop Until Cells(i + 1, 2) = 0
Range("B4:G" & (i)).Sort Key1:=Range("B4")
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
Range("G2").Select
End Sub

Si vous pouvez trouver une solution, Merci

Salut,

Voici la version modifiée que j'ai fourni le 26/03 à 13:13 :

Sub Tri_Liste()
Range("A6").Select
Application.Goto Reference:=Worksheets("Données").Range("A6:C150")
Selection.Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlSortColumns
End Sub

Une toute petite différence avec celle que tu utilises (qui plantait chez moi -- je travaille toujours sur Excel 2000). Fais donc un essai.

Re,

Et sur la macro de galopin, fais donc un essai en réduisant la ligne qui plante de cette façon :

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

A plus

Salut Ferrand,

Merci de ton obligeance. Je ne pourrais passer au bureau que demain soir. je te donnerai alors le résultat des modifications.

Toutefois, avec ta version du 03 mars à19:20, la macro à saisir dans la feuille est-elle toujours la même soit:

Sheets("Données").Range("A6:C150").Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

A bientôt

Bonsoir,

Il y a un problème d'incompatibilté entre le codage des passwords entre Excel 2000 et Excel 2003 : La seul manière de passer d'excel 2000 à 2003 et vice versa est de ne pas protéger par mot de passe.

A+

Salut,

En règle générale la compatibilité entre versions successives d'un programme est ascendante mais non descendante. Excel 2003 va en principe pouvoir utiliser sans difficulté des fichiers issus de Excel 2000 mais l'inverse n'est pas forcément vrai. Depuis Excel 97 (jusqu'à 2003) il n'y a pas eu modification du type de fichiers créés par Excel mais il y a parfois quelques petits détails, pas forcément décrits dans les nouveautés de la version et pas toujours facile à déceler.

Pour faire fonctionner ta procédure de tri sous Excel 2000, j'avais simplement passé en revue tous les arguments utilisés et éliminés ceux qui n'étaient pas répertoriés pour Excel 2000 (VBA 6). Ceci fait, ça ne boguait plus. Je me souviens avoir eu l'idée de te le signaler pour que tu puisses vérifier l'impact des arguments supprimés dans l'aide de VBA pour Excel 2003 et j'ai oublié de le faire.

Modification opérée sur la dernière que tu indiques :

Sheets("Données").Range("A6:C150").Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlSortColumns xlTopToBottom, _
DataOption1:=xlSortNormal

en rouge = supprimé, en vert = ajouté

A plus

Bonsoir et merci messieurs. Que ferais-je sans vous! Vos précieux conseils m'ont permis de faire fonctionner mon fichier comme il faut.

Le problème est donc résolu.

A une prochaine fois