Pb d'éxecution d'une macro

[foufana]

Bonjour à tous !

Un message d'erreur apparaît lorsque je veux éxecuter une macro. Le message d'erreur est le suivant:
"Cette opération requiert que les cellules fusionnées soient de taille identique."

Quelqu'un peut-il m'expliquer ce problème svp?

Merci à tous !

 

[ERIC S]

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

 

[foufana]

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 !

 

[ERIC S]

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?

 

[foufana]

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.

 

[ERIC S]

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

 

[foufana]

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...

 

[ERIC S]

Re : Pb d'éxecution d'une macro

re

envoyée en message privé

 

[ERIC S]

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

 

[foufana]

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 !