voilà, j'ai souci pour activer une macro. J'ai un modèle de macro que je souhaiterai appliquer à plusieurs documents excel 2007, seulement lorsque je veux l'exécuter ça me dit que mes macros ne sont pas activées. J'ai donc cherché comment les activer... mais en vain. Lorsque dans paramètre macros je coche "activer toutes les macros" rien ne se passe, ça ne fonctionne pas. Quelqu'un aurait-il une solution?
quel est la valeur de f au moment du message d'erreur ?
f=1
euh... question suivante : est-ce qu'il y a bien une feuille nommé "Feuil1" une suivante "Feuil2" etc etc
PS : ça serait plus pratique si vous répondiez au message qui pose la question plutot qu'à un autre, c'est plus facile pour suivre
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est là : http://faq-outlook.fr/
vicho
JièL a écrit le 02/09/2010 à 12h34 :
Le 02/09/2010 12:21, vicho a écrit :
isabelle a écrit le 02/09/2010 à 11h49 :
quel est la valeur de f au moment du message d'erreur ?
f=1
euh... question suivante : est-ce qu'il y a bien une feuille nommé "Feuil1" une suivante "Feuil2" etc etc
PS : ça serait plus pratique si vous répondiez au message qui pose la question plutot qu'à un autre, c'est plus facile pour suivre
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est là : http://faq-outlook.fr/
Pardon Jean-Louis, c'est la première fois que je viens sur ce forum et j'avoue que j'ai du mal aussi à suivre les différentes réponses. Il me semblait que je répondais à chaque message, mais apparemment ce n'est pas clair donc je vais essayer d'y faire attention.
Concernant le problème que je rencontre, j'ai plusieurs feuilles dans mon classeur mais qui sont nommées différemment. J'ai une feuille 1, une feuille 2, une feuille 6 et 5 autres qui sont nommées avec du texte.
Le problème tient-il au fait qu'elles ne soient pas toutes nommées pareil?
JièL a écrit le 02/09/2010 à 12h34 :
Le 02/09/2010 12:21, vicho a écrit :
isabelle a écrit le 02/09/2010 à 11h49 :
quel est la valeur de f au moment du message d'erreur ?
f=1
euh... question suivante : est-ce qu'il y a bien une feuille nommé
"Feuil1" une suivante "Feuil2" etc etc
PS : ça serait plus pratique si vous répondiez au message qui
pose la
question plutot qu'à un autre, c'est plus facile pour suivre
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est là : http://faq-outlook.fr/
Pardon Jean-Louis, c'est la première fois que je viens sur ce forum et j'avoue que j'ai du mal aussi à suivre les différentes réponses. Il me semblait que je répondais à chaque message, mais apparemment ce n'est pas clair donc je vais essayer d'y faire attention.
Concernant le problème que je rencontre, j'ai plusieurs feuilles dans mon classeur mais qui sont nommées différemment. J'ai une feuille 1, une feuille 2, une feuille 6 et 5 autres qui sont nommées avec du texte.
Le problème tient-il au fait qu'elles ne soient pas toutes nommées pareil?
quel est la valeur de f au moment du message d'erreur ?
f=1
euh... question suivante : est-ce qu'il y a bien une feuille nommé "Feuil1" une suivante "Feuil2" etc etc
PS : ça serait plus pratique si vous répondiez au message qui pose la question plutot qu'à un autre, c'est plus facile pour suivre
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est là : http://faq-outlook.fr/
Pardon Jean-Louis, c'est la première fois que je viens sur ce forum et j'avoue que j'ai du mal aussi à suivre les différentes réponses. Il me semblait que je répondais à chaque message, mais apparemment ce n'est pas clair donc je vais essayer d'y faire attention.
Concernant le problème que je rencontre, j'ai plusieurs feuilles dans mon classeur mais qui sont nommées différemment. J'ai une feuille 1, une feuille 2, une feuille 6 et 5 autres qui sont nommées avec du texte.
Le problème tient-il au fait qu'elles ne soient pas toutes nommées pareil?
isabelle
bonjour Vincent,
j'ai modifié la macro pour l'adapter à différent nom de feuille.
Sub MonTri() Dim f, i As Integer For Each f In Worksheets Sheets(f.Name).Select For i = 1 To 256 Columns(i).Sort Key1:Îlls(1, i), _ Order1:=xlAscending, _ Header:=xlNo, _ OrderCustom:=1, _ MatchCase:úlse, _ Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers Next Next End Sub
isabelle .
Le 2010-09-02 07:47, vicho a écrit :
JièL a écrit le 02/09/2010 à 12h34 :
Le 02/09/2010 12:21, vicho a écrit :
isabelle a écrit le 02/09/2010 à 11h49 :
quel est la valeur de f au moment du message d'erreur ?
f=1
euh... question suivante : est-ce qu'il y a bien une feuille nommé "Feuil1" une suivante "Feuil2" etc etc
PS : ça serait plus pratique si vous répondiez au message qui pose la question plutot qu'à un autre, c'est plus facile pour suivre
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est là : http://faq-outlook.fr/
Pardon Jean-Louis, c'est la première fois que je viens sur ce forum et j'avoue que j'ai du mal aussi à suivre les différentes réponses. Il me semblait que je répondais à chaque message, mais apparemment ce n'est pas clair donc je vais essayer d'y faire attention.
Concernant le problème que je rencontre, j'ai plusieurs feuilles dans mon classeur mais qui sont nommées différemment. J'ai une feuille 1, une feuille 2, une feuille 6 et 5 autres qui sont nommées avec du texte.
Le problème tient-il au fait qu'elles ne soient pas toutes nommées pareil?
bonjour Vincent,
j'ai modifié la macro pour l'adapter à différent nom de feuille.
Sub MonTri()
Dim f, i As Integer
For Each f In Worksheets
Sheets(f.Name).Select
For i = 1 To 256
Columns(i).Sort Key1:Îlls(1, i), _
Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:úlse, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Next
Next
End Sub
isabelle
.
Le 2010-09-02 07:47, vicho a écrit :
JièL a écrit le 02/09/2010 à 12h34 :
Le 02/09/2010 12:21, vicho a écrit :
isabelle a écrit le 02/09/2010 à 11h49 :
quel est la valeur de f au moment du message d'erreur ?
f=1
euh... question suivante : est-ce qu'il y a bien une feuille nommé
"Feuil1" une suivante "Feuil2" etc etc
PS : ça serait plus pratique si vous répondiez au message qui
pose la
question plutot qu'à un autre, c'est plus facile pour suivre
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est là : http://faq-outlook.fr/
Pardon Jean-Louis, c'est la première fois que je viens sur ce forum et j'avoue
que j'ai du mal aussi à suivre les différentes réponses. Il me semblait que je
répondais à chaque message, mais apparemment ce n'est pas clair donc je vais
essayer d'y faire attention.
Concernant le problème que je rencontre, j'ai plusieurs feuilles dans mon
classeur mais qui sont nommées différemment. J'ai une feuille 1, une feuille 2,
une feuille 6 et 5 autres qui sont nommées avec du texte.
Le problème tient-il au fait qu'elles ne soient pas toutes nommées pareil?
j'ai modifié la macro pour l'adapter à différent nom de feuille.
Sub MonTri() Dim f, i As Integer For Each f In Worksheets Sheets(f.Name).Select For i = 1 To 256 Columns(i).Sort Key1:Îlls(1, i), _ Order1:=xlAscending, _ Header:=xlNo, _ OrderCustom:=1, _ MatchCase:úlse, _ Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers Next Next End Sub
isabelle .
Le 2010-09-02 07:47, vicho a écrit :
JièL a écrit le 02/09/2010 à 12h34 :
Le 02/09/2010 12:21, vicho a écrit :
isabelle a écrit le 02/09/2010 à 11h49 :
quel est la valeur de f au moment du message d'erreur ?
f=1
euh... question suivante : est-ce qu'il y a bien une feuille nommé "Feuil1" une suivante "Feuil2" etc etc
PS : ça serait plus pratique si vous répondiez au message qui pose la question plutot qu'à un autre, c'est plus facile pour suivre
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est là : http://faq-outlook.fr/
Pardon Jean-Louis, c'est la première fois que je viens sur ce forum et j'avoue que j'ai du mal aussi à suivre les différentes réponses. Il me semblait que je répondais à chaque message, mais apparemment ce n'est pas clair donc je vais essayer d'y faire attention.
Concernant le problème que je rencontre, j'ai plusieurs feuilles dans mon classeur mais qui sont nommées différemment. J'ai une feuille 1, une feuille 2, une feuille 6 et 5 autres qui sont nommées avec du texte.
Le problème tient-il au fait qu'elles ne soient pas toutes nommées pareil?
vicho
isabelle a écrit le 02/09/2010 à 14h16 :
bonjour Vincent,
j'ai modifié la macro pour l'adapter à différent nom de feuille.
Sub MonTri() Dim f, i As Integer For Each f In Worksheets Sheets(f.Name).Select For i = 1 To 256 Columns(i).Sort Key1:Îlls(1, i), _ Order1:=xlAscending, _ Header:=xlNo, _ OrderCustom:=1, _ MatchCase:úlse, _ Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers Next Next End Sub
isabelle .
Le 2010-09-02 07:47, vicho a écrit :
JièL a écrit le 02/09/2010 à 12h34 :
Le 02/09/2010 12:21, vicho a écrit :
isabelle a écrit le 02/09/2010 à 11h49 :
quel est la valeur de f au moment du message d'erreur ?
f=1
euh... question suivante : est-ce qu'il y a bien une feuille nommé "Feuil1" une suivante "Feuil2" etc etc
PS : ça serait plus pratique si vous répondiez au message qui pose la question plutot qu'à un autre, c'est plus facile pour suivre
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est là : http://faq-outlook.fr/
Pardon Jean-Louis, c'est la première fois que je viens sur ce forum et j'avoue que j'ai du mal aussi à suivre les différentes réponses. Il me semblait que je répondais à chaque message, mais apparemment ce n'est pas clair donc je vais essayer d'y faire attention.
Concernant le problème que je rencontre, j'ai plusieurs feuilles dans mon classeur mais qui sont nommées différemment. J'ai une feuille 1, une feuille 2, une feuille 6 et 5 autres qui sont nommées avec du texte.
Le problème tient-il au fait qu'elles ne soient pas toutes nommées pareil?
Merci Isabelle. Je viens de tester, mais cela me dit qu'il y a une erreur de syntaxe dans le passage suivant: Columns(i).Sort Key1:Îlls(1, i), _ Order1:=xlAscending, _ Header:=xlNo, _ OrderCustom:=1, _ MatchCase:úlse, _ Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers
isabelle a écrit le 02/09/2010 à 14h16 :
bonjour Vincent,
j'ai modifié la macro pour l'adapter à différent nom de
feuille.
Sub MonTri()
Dim f, i As Integer
For Each f In Worksheets
Sheets(f.Name).Select
For i = 1 To 256
Columns(i).Sort Key1:Îlls(1, i), _
Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:úlse, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Next
Next
End Sub
isabelle
.
Le 2010-09-02 07:47, vicho a écrit :
JièL a écrit le 02/09/2010 à 12h34 :
Le 02/09/2010 12:21, vicho a écrit :
isabelle a écrit le 02/09/2010 à 11h49 :
quel est la valeur de f au moment du message d'erreur ?
f=1
euh... question suivante : est-ce qu'il y a bien une feuille nommé
"Feuil1" une suivante "Feuil2" etc etc
PS : ça serait plus pratique si vous répondiez au message qui
pose la
question plutot qu'à un autre, c'est plus facile pour suivre
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est là : http://faq-outlook.fr/
Pardon Jean-Louis, c'est la première fois que je viens sur ce forum et
j'avoue
que j'ai du mal aussi à suivre les différentes réponses.
Il me semblait que je
répondais à chaque message, mais apparemment ce n'est pas clair
donc je vais
essayer d'y faire attention.
Concernant le problème que je rencontre, j'ai plusieurs feuilles dans
mon
classeur mais qui sont nommées différemment. J'ai une feuille 1,
une feuille 2,
une feuille 6 et 5 autres qui sont nommées avec du texte.
Le problème tient-il au fait qu'elles ne soient pas toutes
nommées pareil?
Merci Isabelle. Je viens de tester, mais cela me dit qu'il y a une erreur de syntaxe dans le passage suivant:
Columns(i).Sort Key1:Îlls(1, i), _
Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:úlse, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
j'ai modifié la macro pour l'adapter à différent nom de feuille.
Sub MonTri() Dim f, i As Integer For Each f In Worksheets Sheets(f.Name).Select For i = 1 To 256 Columns(i).Sort Key1:Îlls(1, i), _ Order1:=xlAscending, _ Header:=xlNo, _ OrderCustom:=1, _ MatchCase:úlse, _ Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers Next Next End Sub
isabelle .
Le 2010-09-02 07:47, vicho a écrit :
JièL a écrit le 02/09/2010 à 12h34 :
Le 02/09/2010 12:21, vicho a écrit :
isabelle a écrit le 02/09/2010 à 11h49 :
quel est la valeur de f au moment du message d'erreur ?
f=1
euh... question suivante : est-ce qu'il y a bien une feuille nommé "Feuil1" une suivante "Feuil2" etc etc
PS : ça serait plus pratique si vous répondiez au message qui pose la question plutot qu'à un autre, c'est plus facile pour suivre
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est là : http://faq-outlook.fr/
Pardon Jean-Louis, c'est la première fois que je viens sur ce forum et j'avoue que j'ai du mal aussi à suivre les différentes réponses. Il me semblait que je répondais à chaque message, mais apparemment ce n'est pas clair donc je vais essayer d'y faire attention.
Concernant le problème que je rencontre, j'ai plusieurs feuilles dans mon classeur mais qui sont nommées différemment. J'ai une feuille 1, une feuille 2, une feuille 6 et 5 autres qui sont nommées avec du texte.
Le problème tient-il au fait qu'elles ne soient pas toutes nommées pareil?
Merci Isabelle. Je viens de tester, mais cela me dit qu'il y a une erreur de syntaxe dans le passage suivant: Columns(i).Sort Key1:Îlls(1, i), _ Order1:=xlAscending, _ Header:=xlNo, _ OrderCustom:=1, _ MatchCase:úlse, _ Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers
isabelle
au copier coller dans ce message il semble que les lettres c et e mit ensembles sont traduit en un i majuscule avec chapeau. voir Key1: modifie le i majuscule avec chapeau par les lettres c et e
isabelle
Le 2010-09-02 08:45, vicho a écrit :
Merci Isabelle. Je viens de tester, mais cela me dit qu'il y a une erreur de syntaxe dans le passage suivant: Columns(i).Sort Key1:Îlls(1, i), _ Order1:=xlAscending, _ Header:=xlNo, _ OrderCustom:=1, _ MatchCase:úlse, _ Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers
au copier coller dans ce message il semble que les lettres c et e mit ensembles
sont traduit en un i majuscule avec chapeau.
voir Key1: modifie le i majuscule avec chapeau par les lettres c et e
isabelle
Le 2010-09-02 08:45, vicho a écrit :
Merci Isabelle. Je viens de tester, mais cela me dit qu'il y a une erreur de
syntaxe dans le passage suivant:
Columns(i).Sort Key1:Îlls(1, i), _
Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:úlse, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
au copier coller dans ce message il semble que les lettres c et e mit ensembles sont traduit en un i majuscule avec chapeau. voir Key1: modifie le i majuscule avec chapeau par les lettres c et e
isabelle
Le 2010-09-02 08:45, vicho a écrit :
Merci Isabelle. Je viens de tester, mais cela me dit qu'il y a une erreur de syntaxe dans le passage suivant: Columns(i).Sort Key1:Îlls(1, i), _ Order1:=xlAscending, _ Header:=xlNo, _ OrderCustom:=1, _ MatchCase:úlse, _ Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers
vicho
isabelle a écrit le 02/09/2010 à 16h37 :
au copier coller dans ce message il semble que les lettres c et e mit ensembles sont traduit en un i majuscule avec chapeau. voir Key1: modifie le i majuscule avec chapeau par les lettres c et e
isabelle
Le 2010-09-02 08:45, vicho a écrit :
Merci Isabelle. Je viens de tester, mais cela me dit qu'il y a une erreur de syntaxe dans le passage suivant: Columns(i).Sort Key1:Îlls(1, i), _ Order1:=xlAscending, _ Header:=xlNo, _ OrderCustom:=1, _ MatchCase:úlse, _ Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers
Bonjour Isabelle,
j'ai essayé en modifiant le "î" par "ce" mais ça me dit qu'il y des erreurs dans ce passage (tout est écrit en rouge):
Après (1,i) tu avais mis une virgule et apparemment ce qui était attendu c'est =. Donc j'ai remplacé. Mais ensuite ça me dit que qu'il y une erreur de syntaxe!
A "Order1:=" ça me dit que ce qui est attendu à la place de := c'est fin d'instruction. Et là je sais pas comment remplacer.
isabelle a écrit le 02/09/2010 à 16h37 :
au copier coller dans ce message il semble que les lettres c et e mit ensembles
sont traduit en un i majuscule avec chapeau.
voir Key1: modifie le i majuscule avec chapeau par les lettres c et e
isabelle
Le 2010-09-02 08:45, vicho a écrit :
Merci Isabelle. Je viens de tester, mais cela me dit qu'il y a une erreur de
syntaxe dans le passage suivant:
Columns(i).Sort Key1:Îlls(1, i), _
Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:úlse, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Bonjour Isabelle,
j'ai essayé en modifiant le "î" par "ce" mais ça me dit qu'il y des erreurs dans ce passage (tout est écrit en rouge):
Après (1,i) tu avais mis une virgule et apparemment ce qui était attendu c'est =. Donc j'ai remplacé. Mais ensuite ça me dit que qu'il y une erreur de syntaxe!
A "Order1:=" ça me dit que ce qui est attendu à la place de := c'est fin d'instruction. Et là je sais pas comment remplacer.
au copier coller dans ce message il semble que les lettres c et e mit ensembles sont traduit en un i majuscule avec chapeau. voir Key1: modifie le i majuscule avec chapeau par les lettres c et e
isabelle
Le 2010-09-02 08:45, vicho a écrit :
Merci Isabelle. Je viens de tester, mais cela me dit qu'il y a une erreur de syntaxe dans le passage suivant: Columns(i).Sort Key1:Îlls(1, i), _ Order1:=xlAscending, _ Header:=xlNo, _ OrderCustom:=1, _ MatchCase:úlse, _ Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers
Bonjour Isabelle,
j'ai essayé en modifiant le "î" par "ce" mais ça me dit qu'il y des erreurs dans ce passage (tout est écrit en rouge):
Après (1,i) tu avais mis une virgule et apparemment ce qui était attendu c'est =. Donc j'ai remplacé. Mais ensuite ça me dit que qu'il y une erreur de syntaxe!
A "Order1:=" ça me dit que ce qui est attendu à la place de := c'est fin d'instruction. Et là je sais pas comment remplacer.
isabelle
bonjour XYLEBO,
si peut tu, dépose ton fichier ici :
http://www.cjoint.com
et reviens donner ici le lien de téléchargement que le site va générer. je pourrai alors le télécharger, le corriger et te le retourner.
isabelle
Le 2010-09-08 02:05, vicho a écrit :
isabelle a écrit le 02/09/2010 à 16h37 :
au copier coller dans ce message il semble que les lettres c et e mit
ensembles
sont traduit en un i majuscule avec chapeau. voir Key1: modifie le i majuscule avec chapeau par les lettres c et e
isabelle
Le 2010-09-02 08:45, vicho a écrit :
Merci Isabelle. Je viens de tester, mais cela me dit qu'il y a une erreur
de
syntaxe dans le passage suivant: Columns(i).Sort Key1:Îlls(1, i), _ Order1:=xlAscending, _ Header:=xlNo, _ OrderCustom:=1, _ MatchCase:úlse, _ Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers
Bonjour Isabelle,
j'ai essayé en modifiant le "î" par "ce" mais ça me dit qu'il y des erreurs dans ce passage (tout est écrit en rouge):
Après (1,i) tu avais mis une virgule et apparemment ce qui était attendu c'est =. Donc j'ai remplacé. Mais ensuite ça me dit que qu'il y une erreur de syntaxe!
A "Order1:=" ça me dit que ce qui est attendu à la place de := c'est fin d'instruction. Et là je sais pas comment remplacer.
bonjour XYLEBO,
si peut tu, dépose ton fichier ici :
http://www.cjoint.com
et reviens donner ici le lien de téléchargement que le site va générer.
je pourrai alors le télécharger, le corriger et te le retourner.
isabelle
Le 2010-09-08 02:05, vicho a écrit :
isabelle a écrit le 02/09/2010 à 16h37 :
au copier coller dans ce message il semble que les lettres c et e mit
ensembles
sont traduit en un i majuscule avec chapeau.
voir Key1: modifie le i majuscule avec chapeau par les lettres c et e
isabelle
Le 2010-09-02 08:45, vicho a écrit :
Merci Isabelle. Je viens de tester, mais cela me dit qu'il y a une erreur
de
syntaxe dans le passage suivant:
Columns(i).Sort Key1:Îlls(1, i), _
Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:úlse, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Bonjour Isabelle,
j'ai essayé en modifiant le "î" par "ce" mais ça me dit qu'il y des erreurs
dans ce passage (tout est écrit en rouge):
Après (1,i) tu avais mis une virgule et apparemment ce qui était attendu c'est
=. Donc j'ai remplacé. Mais ensuite ça me dit que qu'il y une erreur de
syntaxe!
A "Order1:=" ça me dit que ce qui est attendu à la place de := c'est fin
d'instruction. Et là je sais pas comment remplacer.
Après (1,i) tu avais mis une virgule et apparemment ce qui était attendu c'est =. Donc j'ai remplacé. Mais ensuite ça me dit que qu'il y une erreur de syntaxe!
A "Order1:=" ça me dit que ce qui est attendu à la place de := c'est fin d'instruction. Et là je sais pas comment remplacer.
