Code qui ne fonctionne pas sous excel 2003
#1
Débutant XLPages

Inscription: 03/05/2011

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 27-11-2012 15h12

Bonjour a tous,
J'espére que vous allez Bien!!
 
Voila j'ai un code vba qui a était créé sous excel 2007 et qui ne fonctionne pas sous excel 2003 
est ce qu'il serais possible de le modifier pour qu'il fonctionne sous excel 2003?
Voici le code:



Private Sub Worksheet_Activate()

    Application.ScreenUpdating = False
    Range("B3:N22").Select
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add(Range("C3:C22"), _
                                                            xlSortOnCellColor, xlDescending, , xlSortNormal).SortOnValue.Color = RGB(255, _
                                                                                                                                     255, 255)
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add Key:=Range("B3:B22") _
                                                          , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add Key:=Range("H3:H22") _
                                                          , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("classement").Sort.SortFields.Add Key:=Range("J3:J22") _
                                                          , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Classement").Sort
        .SetRange Range("B2:N22")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply

    Range("A1").Select
    Application.ScreenUpdating = True

End Sub

 
Merci  Beaucoup

Phil

Hors Ligne
Rapport   Haut 

Re: Code qui ne fonctionne pas sous excel 2003
#2
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 27-11-2012 21h03

Bonsoir phil59110, le Forum,

 

Je vais faire court...


Si tu veux de l'aide :

 

Cordialement,

 

 

 


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Code qui ne fonctionne pas sous excel 2003
#3
Débutant XLPages

Inscription: 03/05/2011

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 28-11-2012 11h22
Citation :
myDearFriend! a écrit :

Bonsoir phil59110, le Forum,

 

Je vais faire court...


Si tu veux de l'aide :

 

Cordialement,

 

 

 











Bonjour a tous,


Ben je suis d'accord avec toi! mais quand j'ai voulu méttre le code commme tu me le préconise rien a faire la fenétre reste bloqué et je doit redémarer mon ordi est cela trois fois de suite donc je me suis résolu a coler le code!







Je vais tenter encore une foie d'appiquer la procédure pour voir!

Cordialement
Hors Ligne
Rapport   Haut 

Re: Code qui ne fonctionne pas sous excel 2003
#4
Débutant XLPages

Inscription: 03/05/2011

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 28-11-2012 11h28
ça ne fonctione pas, la fenétre reste bloqué!!!
Hors Ligne
Rapport   Haut 

Re: Code qui ne fonctionne pas sous excel 2003
#5
Débutant XLPages

Inscription: 03/05/2011

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 28-11-2012 18h39
J'y comprend rien j'ai beau faire !pour moi ça ne fonctionne pas il y a bien une fenétre qui s'ouvre mais elle reste bloqué!!et cela sur mes deux pcl'un avec win7 32 et IE9 l'autre avec win7 64 et IE9






 
Donc ?


 
Bonne soirée a tous!

 
Phil
Hors Ligne
Rapport   Haut 

Re: Code qui ne fonctionne pas sous excel 2003
#6
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 28-11-2012 23h47
Bonsoir phil59110, le Forum,

Bon, tout d'abord, on se calme phil59110 si tu veux bien....

Ensuite, je découvre moi aussi un problème avec l'éditeur de post depuis la mise à jour Firefox (en version 17) de mon côté
Du coup, je change notre éditeur un peu en catastrophe et temporairement... en attendant de trouver une autre solution.

Laisse donc tomber pour le mode d'insertion du code VBA, le nouvel éditeur installé ne possède pas le bouton dédié.

Cela dit, la deuxième partie de ma remarque tient toujours : un fichier exemple allégé en pièce jointe (voir le lien fourni plus haut) me parait un minimum pour t'aider.

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Code qui ne fonctionne pas sous excel 2003
#7
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 29-11-2012 01h00
Salut le forum

Déjà que xlSortOnCellColor n'est pas reconnu par les versions antérieurs à 2007.

Mytå

Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes