Bonjour,
J'utilisais une macro sans soucis jusqu'à présent, mais maintenant elle
bloque et me met le message " n'appartient pas à la sélection".
Je mets le début de la macro, qui avant fonctionnait très bien, mais plante
maintenant ??
Merci pour votre aide.
Sub Répart_JUR_QuandClic()
'
' Répart_JUR_QuandClic Macro
' Macro enregistrée le 28/09/2006 par da
'
Dim cell As Range, Nom$, Sht As Worksheet
' Application.ScreenUpdating = False
'----------------------------------------------------------------------------
'Filtre pour obtenir tous les Gestionnaires
Sheets("Totalité").Select
Range("A4:AF5000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=
_
Range("Ag1:Ag2"), CopyToRange:=Range("Ag4"), Unique:=True
lign = [ag65000].End(xlUp).Row
Range("Ag5:Ag" & lign).Select
Selection.Cut
Sheets("SyntHèse").Select
Range("D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
'----------------------------------------------------------------------------
'Tri décroissant pour créer les feuilles
Range("D2:d" & lign - 3).Select
Selection.Sort Key1:=Range("D2"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'----------------------------------------------------------------------------
'Création d'une feuille pour chaque Gestionnaire
For Each cell In Selection
Nom = cell.Value
If Nom <> "" Then
On Error Resume Next
Set Sht = Sheets(Nom) ---------------> c'est ici qu'apparaît le
message ??? sht = nothing et nom = 1er nom de la liste.
On Error GoTo 0
If Sht Is Nothing Then Sheets.Add.Name = Nom
End If
Next cell
Re... Merci JLuc, j'ai testé, mais non, pas ça... Ok lSteph je joins le fichier vidé de toutes ses données, juste l'essentiel. http://cjoint.com/?kitVMz5MSS Merci si vous pouvez vous pencher sur mon cas.... et pourquoi pas améliorer tout ça et surtout avec des explications, j'en ai bien besoin. Merci encore. Daniel
Re...
Merci JLuc, j'ai testé, mais non, pas ça...
Ok lSteph je joins le fichier vidé de toutes ses données, juste l'essentiel.
http://cjoint.com/?kitVMz5MSS
Merci si vous pouvez vous pencher sur mon cas.... et pourquoi pas améliorer
tout ça et surtout avec des explications, j'en ai bien besoin.
Merci encore.
Daniel
Re... Merci JLuc, j'ai testé, mais non, pas ça... Ok lSteph je joins le fichier vidé de toutes ses données, juste l'essentiel. http://cjoint.com/?kitVMz5MSS Merci si vous pouvez vous pencher sur mon cas.... et pourquoi pas améliorer tout ça et surtout avec des explications, j'en ai bien besoin. Merci encore. Daniel
JLuc
*Bonjour daniel*, Je viens de lancer ta macro, elle plante pas :/ Y aurait-il quelque chose dans d'autres code qui pourrai la faire planter ?
Re... Merci JLuc, j'ai testé, mais non, pas ça... Ok lSteph je joins le fichier vidé de toutes ses données, juste l'essentiel. http://cjoint.com/?kitVMz5MSS Merci si vous pouvez vous pencher sur mon cas.... et pourquoi pas améliorer tout ça et surtout avec des explications, j'en ai bien besoin. Merci encore. Daniel
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour daniel*,
Je viens de lancer ta macro, elle plante pas :/
Y aurait-il quelque chose dans d'autres code qui pourrai la faire
planter ?
Re...
Merci JLuc, j'ai testé, mais non, pas ça...
Ok lSteph je joins le fichier vidé de toutes ses données, juste l'essentiel.
http://cjoint.com/?kitVMz5MSS
Merci si vous pouvez vous pencher sur mon cas.... et pourquoi pas améliorer
tout ça et surtout avec des explications, j'en ai bien besoin.
Merci encore.
Daniel
*Bonjour daniel*, Je viens de lancer ta macro, elle plante pas :/ Y aurait-il quelque chose dans d'autres code qui pourrai la faire planter ?
Re... Merci JLuc, j'ai testé, mais non, pas ça... Ok lSteph je joins le fichier vidé de toutes ses données, juste l'essentiel. http://cjoint.com/?kitVMz5MSS Merci si vous pouvez vous pencher sur mon cas.... et pourquoi pas améliorer tout ça et surtout avec des explications, j'en ai bien besoin. Merci encore. Daniel
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
daniel
Bonsoir DarthMac, Je viens d'éteindre ma machine, comme tous les jours... rien de changé, merci quand même, ça devait être tenté. Bonne soirée.
Bonsoir DarthMac,
Je viens d'éteindre ma machine, comme tous les jours... rien de changé,
merci quand même, ça devait être tenté.
Bonne soirée.
Je viens de lancer ta macro, elle plante pas :/ super.... tout le code, jusqu'à la fin ???
Y aurait-il quelque chose dans d'autres code qui pourrai la faire planter ? ça se pourrait bien, mais quel genre de chose ?????
Je ne sais pas où chercher ??? Je continue à tatônner encore avant de craquer...... Merci d'avoir testéet à +
lSteph
Re,
Pour s'en tenir exclusivement à ce qui concernait ta question la routine qui génère les feuilles ne provoque pas d'erreur 9 chez moi.
@ +
lSteph
"daniel" a écrit dans le message de news:
Re... Merci JLuc, j'ai testé, mais non, pas ça... Ok lSteph je joins le fichier vidé de toutes ses données, juste l'essentiel. http://cjoint.com/?kitVMz5MSS Merci si vous pouvez vous pencher sur mon cas.... et pourquoi pas améliorer tout ça et surtout avec des explications, j'en ai bien besoin. Merci encore. Daniel
Re,
Pour s'en tenir exclusivement à ce qui concernait ta question
la routine qui génère les feuilles ne provoque pas d'erreur 9 chez moi.
@ +
lSteph
"daniel" <novice@neuf.fr> a écrit dans le message de news:
OoLCfJw6GHA.3384@TK2MSFTNGP05.phx.gbl...
Re...
Merci JLuc, j'ai testé, mais non, pas ça...
Ok lSteph je joins le fichier vidé de toutes ses données, juste
l'essentiel.
http://cjoint.com/?kitVMz5MSS
Merci si vous pouvez vous pencher sur mon cas.... et pourquoi pas
améliorer tout ça et surtout avec des explications, j'en ai bien besoin.
Merci encore.
Daniel
Pour s'en tenir exclusivement à ce qui concernait ta question la routine qui génère les feuilles ne provoque pas d'erreur 9 chez moi.
@ +
lSteph
"daniel" a écrit dans le message de news:
Re... Merci JLuc, j'ai testé, mais non, pas ça... Ok lSteph je joins le fichier vidé de toutes ses données, juste l'essentiel. http://cjoint.com/?kitVMz5MSS Merci si vous pouvez vous pencher sur mon cas.... et pourquoi pas améliorer tout ça et surtout avec des explications, j'en ai bien besoin. Merci encore. Daniel
JLuc
*Bonjour daniel*,
Bonsoir JLuc,
Je viens de lancer ta macro, elle plante pas :/ super.... tout le code, jusqu'à la fin ???
Oui, et plusieurs fois de suite
Y aurait-il quelque chose dans d'autres code qui pourrai la faire planter ? ça se pourrait bien, mais quel genre de chose ?????
Je ne sais pas où chercher ??? Je suis en train( non, sur mon pc :oÞ) de revoir ton code pour éviter
d'avoir tous ces flash à chaque Select
Je continue à tatônner encore avant de craquer...... Merci d'avoir testéet à +
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour daniel*,
Bonsoir JLuc,
Je viens de lancer ta macro, elle plante pas :/
super.... tout le code, jusqu'à la fin ???
Oui, et plusieurs fois de suite
Y aurait-il quelque chose dans d'autres code qui pourrai la faire planter ?
ça se pourrait bien, mais quel genre de chose ?????
Je ne sais pas où chercher ???
Je suis en train( non, sur mon pc :oÞ) de revoir ton code pour éviter
d'avoir tous ces flash à chaque Select
Je continue à tatônner encore avant de craquer......
Merci d'avoir testéet à +
Je viens de lancer ta macro, elle plante pas :/ super.... tout le code, jusqu'à la fin ???
Oui, et plusieurs fois de suite
Y aurait-il quelque chose dans d'autres code qui pourrai la faire planter ? ça se pourrait bien, mais quel genre de chose ?????
Je ne sais pas où chercher ??? Je suis en train( non, sur mon pc :oÞ) de revoir ton code pour éviter
d'avoir tous ces flash à chaque Select
Je continue à tatônner encore avant de craquer...... Merci d'avoir testéet à +
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
daniel
Re, Merci d'avoir testé, mais à propos, le test a été effectué plusieurs fois ??? Sinon, as-tu une idée sur la raison de mon erreur sur ma machine ???? Merci encore et bonne soirée. Daniel.
Re,
Merci d'avoir testé, mais à propos, le test a été effectué plusieurs fois
???
Sinon, as-tu une idée sur la raison de mon erreur sur ma machine ????
Merci encore et bonne soirée.
Daniel.
Re, Merci d'avoir testé, mais à propos, le test a été effectué plusieurs fois ??? Sinon, as-tu une idée sur la raison de mon erreur sur ma machine ???? Merci encore et bonne soirée. Daniel.
JLuc
*Bonjour daniel*, J'ai remanié un peu le code pour le réduire un tantinet, dis moi ce que tu en pense et si tu as encore des erreur. Chez moi il passe sans soucis http://cjoint.com/?kiv5dyUtIr
Bonsoir JLuc,
Je viens de lancer ta macro, elle plante pas :/ super.... tout le code, jusqu'à la fin ???
Y aurait-il quelque chose dans d'autres code qui pourrai la faire planter ? ça se pourrait bien, mais quel genre de chose ?????
Je ne sais pas où chercher ??? Je continue à tatônner encore avant de craquer...... Merci d'avoir testéet à +
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour daniel*,
J'ai remanié un peu le code pour le réduire un tantinet, dis moi ce que
tu en pense et si tu as encore des erreur. Chez moi il passe sans
soucis
http://cjoint.com/?kiv5dyUtIr
Bonsoir JLuc,
Je viens de lancer ta macro, elle plante pas :/
super.... tout le code, jusqu'à la fin ???
Y aurait-il quelque chose dans d'autres code qui pourrai la faire planter ?
ça se pourrait bien, mais quel genre de chose ?????
Je ne sais pas où chercher ???
Je continue à tatônner encore avant de craquer......
Merci d'avoir testéet à +
*Bonjour daniel*, J'ai remanié un peu le code pour le réduire un tantinet, dis moi ce que tu en pense et si tu as encore des erreur. Chez moi il passe sans soucis http://cjoint.com/?kiv5dyUtIr
Bonsoir JLuc,
Je viens de lancer ta macro, elle plante pas :/ super.... tout le code, jusqu'à la fin ???
Y aurait-il quelque chose dans d'autres code qui pourrai la faire planter ? ça se pourrait bien, mais quel genre de chose ?????
Je ne sais pas où chercher ??? Je continue à tatônner encore avant de craquer...... Merci d'avoir testéet à +
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
lSteph
Bonsoir,
Sinon, as-tu une idée..? Pourquoi pas un modèle vide, au lieu de te retartiner
le formatage et mise en page à chaque tour? ensuite on adapterait un truc du genre If Sht Is Nothing Then Sheets("modèle").Copy after:=Sheets(Sheets.Count)
Bonne nuit.
lSteph
"daniel" a écrit dans le message de news:
Re, Merci d'avoir testé, mais à propos, le test a été effectué plusieurs fois ??? Sinon, as-tu une idée sur la raison de mon erreur sur ma machine ???? Merci encore et bonne soirée. Daniel.
Bonsoir,
Sinon, as-tu une idée..?
Pourquoi pas un modèle vide, au lieu de te retartiner
le formatage et mise en page à chaque tour?
ensuite on adapterait un truc du genre
If Sht Is Nothing Then
Sheets("modèle").Copy after:=Sheets(Sheets.Count)
Bonne nuit.
lSteph
"daniel" <novice@neuf.fr> a écrit dans le message de news:
ediiXiw6GHA.1256@TK2MSFTNGP04.phx.gbl...
Re,
Merci d'avoir testé, mais à propos, le test a été effectué plusieurs fois
???
Sinon, as-tu une idée sur la raison de mon erreur sur ma machine ????
Merci encore et bonne soirée.
Daniel.
Sinon, as-tu une idée..? Pourquoi pas un modèle vide, au lieu de te retartiner
le formatage et mise en page à chaque tour? ensuite on adapterait un truc du genre If Sht Is Nothing Then Sheets("modèle").Copy after:=Sheets(Sheets.Count)
Bonne nuit.
lSteph
"daniel" a écrit dans le message de news:
Re, Merci d'avoir testé, mais à propos, le test a été effectué plusieurs fois ??? Sinon, as-tu une idée sur la raison de mon erreur sur ma machine ???? Merci encore et bonne soirée. Daniel.
daniel
Bonjour,
Merci JLuc, J'ai vu ton code, ça réduit énormément, je vais essayer de le tester rapidement (je n'ai pas eu le temps de tester au boulot et chez moi, cela plante toujours au même endroit ???) et ensuite de le comprendre, c'est pas gagné :-o. Mais je ne vois toujours pas la raison du plantage juste sur ma machine, alors qu'au boulot ça tourne, chez toi et chez lSteph ça passe aussi ????
lSteph, l'idée du modèle est très bonne et simplifie les manipulations, dès que je le peux, je teste tout ça.
Encore merci pour votre patience et je reviendrai si je trouve une solution.
Daniel
Bonjour,
Merci JLuc, J'ai vu ton code, ça réduit énormément, je vais essayer de le
tester rapidement (je n'ai pas eu le temps de tester au boulot et chez moi,
cela plante toujours au même endroit ???) et ensuite de le comprendre, c'est
pas gagné :-o.
Mais je ne vois toujours pas la raison du plantage juste sur ma machine,
alors qu'au boulot ça tourne, chez toi et chez lSteph ça passe aussi ????
lSteph, l'idée du modèle est très bonne et simplifie les manipulations, dès
que je le peux, je teste tout ça.
Encore merci pour votre patience et je reviendrai si je trouve une solution.
Merci JLuc, J'ai vu ton code, ça réduit énormément, je vais essayer de le tester rapidement (je n'ai pas eu le temps de tester au boulot et chez moi, cela plante toujours au même endroit ???) et ensuite de le comprendre, c'est pas gagné :-o. Mais je ne vois toujours pas la raison du plantage juste sur ma machine, alors qu'au boulot ça tourne, chez toi et chez lSteph ça passe aussi ????
lSteph, l'idée du modèle est très bonne et simplifie les manipulations, dès que je le peux, je teste tout ça.
Encore merci pour votre patience et je reviendrai si je trouve une solution.
