Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel message du 12/9 10h53

message du 12/9 10h53

9 réponses
Avatar
claire
bonjour
pourquoi aucune réponse à mon mail ?
-la question est idiote
-déjà traitée
-pas assez d'éléments
-n'interresse personne
Ou autre
en attendant je patauge tjrs et n'ai pas trouvé
sniff.......
avec ça si j'ai pas de réponse ..............
Merci
--
Claire
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Rouch
Chez moi ça marche bien et ça passe la 5eme ligne sans encombre. ( Win
XP SP2 + Excel 2003 SP1)

Es tu sure de bien avoir une plage dénommée : ZF_département?

@+



bonjour



pourquoi aucune réponse à mon mail ?
-la question est idiote
-déjà traitée
-pas assez d'éléments
-n'interresse personne
Ou autre
en attendant je patauge tjrs et n'ai pas trouvé
sniff.......
avec ça si j'ai pas de réponse ..............
Merci


--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com

Avatar
isabelle
bonjour Claire,

je n'ai pas xl2003, donc je ne peux tester.

mais dit moi à quoi correspond "ZF_Département" de

Application.Goto Reference:="ZF_Département"

est ce un objet ou une variable ?

isabelle


bonjour
pourquoi aucune réponse à mon mail ?
-la question est idiote
-déjà traitée
-pas assez d'éléments
-n'interresse personne
Ou autre
en attendant je patauge tjrs et n'ai pas trouvé
sniff.......
avec ça si j'ai pas de réponse ..............
Merci
--
Claire


Avatar
claire
Merci à Rouch qui me dit que ça marche chez lui
Pour Isabelle :ZF_Département est une plage nommée qui est dans une autre
feuille :sys_département,à partir de laquelle j'ai fait une listede
validation. Je n'ai pas d'autre variable déclarée autre que Z_Cell
Je devrai peut-etre déplacer ma plage nommée dans la feuille principale
CAMOYEN
l'objectif est de ventiler en creant un nouveau classeur par département où
seront copiées les information filtrées par "selection autofilter" A l'oeil
, comme ça , qu'est-ce qui cloche ? surtout si ça marche chez Rouch.
merci
--
Claire

isabelle wrote:
bonjour Claire,

je n'ai pas xl2003, donc je ne peux tester.

mais dit moi à quoi correspond "ZF_Département" de

Application.Goto Reference:="ZF_Département"

est ce un objet ou une variable ?

isabelle


bonjour
pourquoi aucune réponse à mon mail ?
-la question est idiote
-déjà traitée
-pas assez d'éléments
-n'interresse personne
Ou autre
en attendant je patauge tjrs et n'ai pas trouvé
sniff.......
avec ça si j'ai pas de réponse ..............
Merci
--
Claire




Avatar
Rouch
Comment t'es tu apperçu que ta macro fait appel à une mfc si tu n'as
pas d'erreur?

Pour éviter de faire apppel une mise en forme conditionnelle, as tu
essayé de changer le nom de la plage de celule : remplacer
ZD_Département par autre chose pour voir. Evite aussi les accents dans
tes variables, ça peux poser des problèmes.


Tiens nous au courant des tes essais.

@+



Merci à Rouch qui me dit que ça marche chez lui
Pour Isabelle :ZF_Département est une plage nommée qui est dans une autre
feuille :sys_département,à partir de laquelle j'ai fait une listede
validation. Je n'ai pas d'autre variable déclarée autre que Z_Cell
Je devrai peut-etre déplacer ma plage nommée dans la feuille principale
CAMOYEN
l'objectif est de ventiler en creant un nouveau classeur par département où
seront copiées les information filtrées par "selection autofilter" A l'oeil
, comme ça , qu'est-ce qui cloche ? surtout si ça marche chez Rouch.
merci
--
Claire

isabelle wrote:
bonjour Claire,

je n'ai pas xl2003, donc je ne peux tester.

mais dit moi à quoi correspond "ZF_Département" de

Application.Goto Reference:="ZF_Département"

est ce un objet ou une variable ?

isabelle


bonjour
pourquoi aucune réponse à mon mail ?
-la question est idiote
-déjà traitée
-pas assez d'éléments
-n'interresse personne
Ou autre
en attendant je patauge tjrs et n'ai pas trouvé
sniff.......
avec ça si j'ai pas de réponse ..............
Merci
--
Claire




--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com



Avatar
isabelle
bonjour Claire,

je crois qu'il faudrait remplacer
Application.Goto Reference:="ZF_Département"
par
Application.Goto Reference:=Range("ZF_Département")

isabelle


Merci à Rouch qui me dit que ça marche chez lui
Pour Isabelle :ZF_Département est une plage nommée qui est dans une autre
feuille :sys_département,à partir de laquelle j'ai fait une listede
validation. Je n'ai pas d'autre variable déclarée autre que Z_Cell
Je devrai peut-etre déplacer ma plage nommée dans la feuille principale
CAMOYEN
l'objectif est de ventiler en creant un nouveau classeur par département où
seront copiées les information filtrées par "selection autofilter" A l'oeil
, comme ça , qu'est-ce qui cloche ? surtout si ça marche chez Rouch.
merci
--
Claire

isabelle wrote:
bonjour Claire,

je n'ai pas xl2003, donc je ne peux tester.

mais dit moi à quoi correspond "ZF_Département" de

Application.Goto Reference:="ZF_Département"

est ce un objet ou une variable ?

isabelle


bonjour
pourquoi aucune réponse à mon mail ?
-la question est idiote
-déjà traitée
-pas assez d'éléments
-n'interresse personne
Ou autre
en attendant je patauge tjrs et n'ai pas trouvé
sniff.......
avec ça si j'ai pas de réponse ..............
Merci
--
Claire






Avatar
michdenis
Bonjour Claire,

J'ai tenté de transcrire ta procédure dans ce code.... mais il n'est pas évident de le faire ... c'était seulement pour
le plaisir !

'-----------------------------------
Sub Macro1()

Dim Z_Cell As Range, Wk As Workbook

With Worksheets("CAMOYEN")
If .AutoFilterMode = True Then
.Range("ZF_Département").AutoFilter
End If
For Each Z_Cell In Range("ZF_Département")
With Range("ZF_Département")
.AutoFilter Field:=5, Criteria1:=Z_Cell
Set Wk = Workbooks.Add - 4167
.Range("_filterdatabase").Copy Wk.Sheets(1).Range("A1")
Wk.Close True, "C:Documents and Settingsclaire" & _
"Mes documentsClasseur" & Z_Cell & ".xls"
End With
Next
End With
Set Wk = Nothing
End Sub
'-----------------------------------


Salutations!




"claire" a écrit dans le message de news:41472e18$0$19419$
bonjour
pourquoi aucune réponse à mon mail ?
-la question est idiote
-déjà traitée
-pas assez d'éléments
-n'interresse personne
Ou autre
en attendant je patauge tjrs et n'ai pas trouvé
sniff.......
avec ça si j'ai pas de réponse ..............
Merci
--
Claire
Avatar
claire
ouiiiiiiiiiiii ça marche avec juste une petite modif de détail
pourtant il y des mots que je ne connais même pas dans le code de michdenis
je vais reprendre mon code avec ZF_Departement en tant qu'objet, je crois
que la clé est là, d'ailleurs c'est ce qu'a fait michdenis
Que vous ètes forts ! moi je suis crevée, mais maintenant je suis sure que
je vais y arriver.............demain
un grand merci
en revanche je ne saurais jamais pourquoi la fenêtre de code de ma fonction
de mfc s'affichait sournoisement par dessus la fenetre de code de la proc
principale alors que je ne lui demandais rien. Je comprendrai un jour
peut-etre...
--
Claire




michdenis wrote:
Bonjour Claire,

J'ai tenté de transcrire ta procédure dans ce code.... mais il n'est
pas évident de le faire ... c'était seulement pour le plaisir !

'-----------------------------------
Sub Macro1()

Dim Z_Cell As Range, Wk As Workbook

With Worksheets("CAMOYEN")
If .AutoFilterMode = True Then
.Range("ZF_Département").AutoFilter
End If
For Each Z_Cell In Range("ZF_Département")
With Range("ZF_Département")
.AutoFilter Field:=5, Criteria1:=Z_Cell
Set Wk = Workbooks.Add - 4167
.Range("_filterdatabase").Copy Wk.Sheets(1).Range("A1")
Wk.Close True, "C:Documents and Settingsclaire" & _
"Mes documentsClasseur" & Z_Cell & ".xls"
End With
Next
End With
Set Wk = Nothing
End Sub
'-----------------------------------


Salutations!




"claire" a écrit dans le message de
news:41472e18$0$19419$
bonjour
pourquoi aucune réponse à mon mail ?
-la question est idiote
-déjà traitée
-pas assez d'éléments
-n'interresse personne
Ou autre
en attendant je patauge tjrs et n'ai pas trouvé
sniff.......
avec ça si j'ai pas de réponse ..............
Merci


Avatar
michdenis
Bonjour Claire,

à la relecture, je me suis aperçu que j'avais oublié quelque chose dans la procédure dans la ligne de code suivante :
.Range("_filterdatabase").SpecialCells(xlCellTypeVisible).Copy ....

SpecialCells(xlCellTypeVisible) qui permet de recopier seulement les valeurs visibles obtenues par le filtre vers le
nouveau classeur.


'------------------------------------
Sub Macro1()

Dim Z_Cell As Range, Wk As Workbook

With Worksheets("CAMOYEN")
If .AutoFilterMode = True Then
.Range("ZF_Département").AutoFilter
End If
Application.ScreenUpdating = False
For Each Z_Cell In Range("ZF_Département")
With Range("ZF_Département")
.AutoFilter Field:=5, Criteria1:=Z_Cell
Set Wk = Workbooks.Add - 4167
.Range("_filterdatabase").SpecialCells(xlCellTypeVisible).Copy _
Wk.Sheets(1).Range("A1")
Wk.Close True, "C:Documents and Settingsclaire" & _
"Mes documentsClasseur" & Z_Cell & ".xls"
End With
Next
End With
Set Wk = Nothing

End Sub
'------------------------------------


Salutations!



"claire" a écrit dans le message de news:41475b24$0$19405$
ouiiiiiiiiiiii ça marche avec juste une petite modif de détail
pourtant il y des mots que je ne connais même pas dans le code de michdenis
je vais reprendre mon code avec ZF_Departement en tant qu'objet, je crois
que la clé est là, d'ailleurs c'est ce qu'a fait michdenis
Que vous ètes forts ! moi je suis crevée, mais maintenant je suis sure que
je vais y arriver.............demain
un grand merci
en revanche je ne saurais jamais pourquoi la fenêtre de code de ma fonction
de mfc s'affichait sournoisement par dessus la fenetre de code de la proc
principale alors que je ne lui demandais rien. Je comprendrai un jour
peut-etre...
--
Claire




michdenis wrote:
Bonjour Claire,

J'ai tenté de transcrire ta procédure dans ce code.... mais il n'est
pas évident de le faire ... c'était seulement pour le plaisir !

'-----------------------------------
Sub Macro1()

Dim Z_Cell As Range, Wk As Workbook

With Worksheets("CAMOYEN")
If .AutoFilterMode = True Then
.Range("ZF_Département").AutoFilter
End If
For Each Z_Cell In Range("ZF_Département")
With Range("ZF_Département")
.AutoFilter Field:=5, Criteria1:=Z_Cell
Set Wk = Workbooks.Add - 4167
.Range("_filterdatabase").Copy Wk.Sheets(1).Range("A1")
Wk.Close True, "C:Documents and Settingsclaire" & _
"Mes documentsClasseur" & Z_Cell & ".xls"
End With
Next
End With
Set Wk = Nothing
End Sub
'-----------------------------------


Salutations!




"claire" a écrit dans le message de
news:41472e18$0$19419$
bonjour
pourquoi aucune réponse à mon mail ?
-la question est idiote
-déjà traitée
-pas assez d'éléments
-n'interresse personne
Ou autre
en attendant je patauge tjrs et n'ai pas trouvé
sniff.......
avec ça si j'ai pas de réponse ..............
Merci


Avatar
sabatier
"claire" a écrit dans le message de
news:41475b24$0$19405$
pourtant il y des mots que je ne connais même pas dans le code de
michdenis

je vais reprendre mon code avec ZF_Departement en tant qu'objet, je crois
que la clé est là, d'ailleurs c'est ce qu'a fait michdenis
appelle-le denis, claire, il préfèrera....et si affinités, tu pourras aussi

dire michel
Que vous ètes forts !
si peu....

jps