Pb d'éxecution d'une macro

ERIC S

XLDnaute Barbatruc

• 7 Avril 2010

• #2

Re : Pb d'éxecution d'une macro

Bonjour

un exemple serait bien venu

A priori, dans ta feuille excel tu as des cellules fusionnées (pour faire beau, un titre...)
le soucis est que cela plante toutes les manips comme copier coller (la fusion te fait pointer sur une zone et non pas une cellule unique)

l'idéal est de supprimer les fusions

 

Vote positif 0 Vote négatif

F

foufana

Guest

• 7 Avril 2010

• #3

Re : Pb d'éxecution d'une macro

Voici la macro en question :

Sub CroissantEp()
Dim MyDynamicRange As Range
Set MyDynamicRange = Range(Range("A9"), Range("N65536").End(xlUp))
MyDynamicRange.Sort Key1:=Range("J9"), Order1:=xlAscending, Header:=xlYes
End Sub

J'espère que cela peut t'aider !

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 7 Avril 2010

• #4

Re : Pb d'éxecution d'une macro

re

pourrais-tu joindre un exemple des premières lignes de la feuille

ton tableau à trier est entre A et N, tu as une ligne de titre, y-a-t'il des cellules fusionnées?

 

Vote positif 0 Vote négatif

F

foufana

Guest

• 7 Avril 2010

• #5

Re : Pb d'éxecution d'une macro

Je ne peux te le joindre le fichier est volumineux !

Par contre j'ai un titre qui contient des cellules fusionnées de B1 à I2.

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 7 Avril 2010

• #6

Re : Pb d'éxecution d'une macro

re

pour faire un essai, à ta place, j'enlèverais la fusion

sinon, peut-être en essayant d'enlever la ligne 9 de ta sélection (je bn'ai pas testé)

Set MyDynamicRange = Range(Range("A10"), Range("N65536").End(xlUp))
MyDynamicRange.Sort Key1:=Range("J10"), Order1:=xlAscending, Header:=xlNo

 

Vote positif 0 Vote négatif

F

foufana

Guest

• 7 Avril 2010

• #7

Re : Pb d'éxecution d'une macro

Tu n'as pas une adresse mail je t'envoi mon fichier stp parce que là j'ai tout essayer et ça ne fonctionne pas...

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 7 Avril 2010

• #8

Re : Pb d'éxecution d'une macro

re

envoyée en message privé

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 7 Avril 2010

• #9

Re : Pb d'éxecution d'une macro

re

tu n'as pas de données en colonnes M et N, donc

Range("N65536").End(xlUp)) te remonte sans doute vers la ligne 6
si tu remplaces N par L tu détectes la fin de tableau, cela a l'air de fonctionner , à tester :

Set MyDynamicRange = Range(Range("A10"), Range("L65536").End(xlUp))
MyDynamicRange.Sort Key1:=Range("J10"), Order1:=xlAscending, Header:=xlNo

là je pars, retour dans l'après midi. Je reprendrai le fil si besoin

 

Vote positif 0 Vote négatif

F

foufana

Guest

• 7 Avril 2010

• #10

Re : Pb d'éxecution d'une macro

C'est bon j'ai pigé le truc merci beaucoup c'est gentil...t'assures bonne fin de journée !

Merci encore !

A plus Eric !

 

Vote positif 0 Vote négatif