Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et sur ma bécane à la
maison. no problème. Par contre au boulot, inévitablement excel plantait,
générait une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en txt, collé puis inséré,
vérifié la syntaxe, l'orthographe ( ;-) jps) que néni... j'ai même copié
les feuilles et le code dans un autre classeur, changé de nom etc.. à la
fin, j'ai imprimé le code et après avoir supprimé les quelques macros qui
étaient dans mon document, j'ai écris (manuellement)le tout dans un
nouveau classeur et là, divine surprise tout est rentré dans l'ordre et je
peux maintenant continuer à peaufiner la chose.
Si quelqu'un avait un commencement de début d'explication...je l'en
remercie d'avance..
--
merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et sur ma bécane à la
maison. no problème. Par contre au boulot, inévitablement excel plantait,
générait une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en txt, collé puis inséré,
vérifié la syntaxe, l'orthographe ( ;-) jps) que néni... j'ai même copié
les feuilles et le code dans un autre classeur, changé de nom etc.. à la
fin, j'ai imprimé le code et après avoir supprimé les quelques macros qui
étaient dans mon document, j'ai écris (manuellement)le tout dans un
nouveau classeur et là, divine surprise tout est rentré dans l'ordre et je
peux maintenant continuer à peaufiner la chose.
Si quelqu'un avait un commencement de début d'explication...je l'en
remercie d'avance..
--
merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et sur ma bécane à la
maison. no problème. Par contre au boulot, inévitablement excel plantait,
générait une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en txt, collé puis inséré,
vérifié la syntaxe, l'orthographe ( ;-) jps) que néni... j'ai même copié
les feuilles et le code dans un autre classeur, changé de nom etc.. à la
fin, j'ai imprimé le code et après avoir supprimé les quelques macros qui
étaient dans mon document, j'ai écris (manuellement)le tout dans un
nouveau classeur et là, divine surprise tout est rentré dans l'ordre et je
peux maintenant continuer à peaufiner la chose.
Si quelqu'un avait un commencement de début d'explication...je l'en
remercie d'avance..
--
merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans ton
code
qui aurait pu faire que ...appel à un objet qui
n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel" a
écrit dans le message de news:Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et sur
ma bécane à la maison. no problème. Par contre au
boulot, inévitablement excel plantait, générait une
erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en
txt, collé puis inséré, vérifié la syntaxe,
l'orthographe ( ;-) jps) que néni... j'ai même copié
les feuilles et le code dans un autre classeur,
changé de nom etc.. à la fin, j'ai imprimé le code et
après avoir supprimé les quelques macros qui étaient
dans mon document, j'ai écris (manuellement)le tout
dans un nouveau classeur et là, divine surprise tout
est rentré dans l'ordre et je peux maintenant
continuer à peaufiner la chose.
Si quelqu'un avait un commencement de début
d'explication...je l'en remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans ton
code
qui aurait pu faire que ...appel à un objet qui
n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel" <prive.ma-boite_sans_spam@laposte.net> a
écrit dans le message de news:
mn.8c897d4be5bfa2d7.11921@laposte.net...
Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et sur
ma bécane à la maison. no problème. Par contre au
boulot, inévitablement excel plantait, générait une
erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en
txt, collé puis inséré, vérifié la syntaxe,
l'orthographe ( ;-) jps) que néni... j'ai même copié
les feuilles et le code dans un autre classeur,
changé de nom etc.. à la fin, j'ai imprimé le code et
après avoir supprimé les quelques macros qui étaient
dans mon document, j'ai écris (manuellement)le tout
dans un nouveau classeur et là, divine surprise tout
est rentré dans l'ordre et je peux maintenant
continuer à peaufiner la chose.
Si quelqu'un avait un commencement de début
d'explication...je l'en remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans ton
code
qui aurait pu faire que ...appel à un objet qui
n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel" a
écrit dans le message de news:Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et sur
ma bécane à la maison. no problème. Par contre au
boulot, inévitablement excel plantait, générait une
erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en
txt, collé puis inséré, vérifié la syntaxe,
l'orthographe ( ;-) jps) que néni... j'ai même copié
les feuilles et le code dans un autre classeur,
changé de nom etc.. à la fin, j'ai imprimé le code et
après avoir supprimé les quelques macros qui étaient
dans mon document, j'ai écris (manuellement)le tout
dans un nouveau classeur et là, divine surprise tout
est rentré dans l'ordre et je peux maintenant
continuer à peaufiner la chose.
Si quelqu'un avait un commencement de début
d'explication...je l'en remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Bonne idée...
voili voila..
ci-dessous le code qui posait problème au boulot. le code associé au
bouton provoquait une erreur et la fermeture d'excel..
Sub ARCHIVAGE()
deb = Range("a9")
If deb <> "+ d'un an" Then MsgBox "triez par DATES avant d'archiver"
If deb <> "+ d'un an" Then Exit Sub
deb = Range("a9").Address
Dim cell As Range
For Each cell In Range("historique")
If cell.Value = " - d'un an" Then
fintab = cell.Offset(-1, 10).Address
Range(deb, fintab).Select
Selection.Cut
Sheets("archives").Activate
Range("a9").Select
Selection.Insert shift:=xlDown
Sheets("maladies").Activate
Range(deb, fintab).Delete shift:=xlUp
Range("a7").Select
Call base
MsgBox "ARCHIVAGE EFFECTUE"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Exit Sub
End If
Next cell
End Sub
LeSteph a exprimé avec précision :Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans ton code
qui aurait pu faire que ...appel à un objet qui n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel" a écrit dans le
message de news:Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et sur ma bécane à la
maison. no problème. Par contre au boulot, inévitablement excel
plantait, générait une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en txt, collé puis
inséré, vérifié la syntaxe, l'orthographe ( ;-) jps) que néni... j'ai
même copié les feuilles et le code dans un autre classeur, changé de nom
etc.. à la fin, j'ai imprimé le code et après avoir supprimé les
quelques macros qui étaient dans mon document, j'ai écris
(manuellement)le tout dans un nouveau classeur et là, divine surprise
tout est rentré dans l'ordre et je peux maintenant continuer à peaufiner
la chose.
Si quelqu'un avait un commencement de début d'explication...je l'en
remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
--
merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Bonne idée...
voili voila..
ci-dessous le code qui posait problème au boulot. le code associé au
bouton provoquait une erreur et la fermeture d'excel..
Sub ARCHIVAGE()
deb = Range("a9")
If deb <> "+ d'un an" Then MsgBox "triez par DATES avant d'archiver"
If deb <> "+ d'un an" Then Exit Sub
deb = Range("a9").Address
Dim cell As Range
For Each cell In Range("historique")
If cell.Value = " - d'un an" Then
fintab = cell.Offset(-1, 10).Address
Range(deb, fintab).Select
Selection.Cut
Sheets("archives").Activate
Range("a9").Select
Selection.Insert shift:=xlDown
Sheets("maladies").Activate
Range(deb, fintab).Delete shift:=xlUp
Range("a7").Select
Call base
MsgBox "ARCHIVAGE EFFECTUE"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Exit Sub
End If
Next cell
End Sub
LeSteph a exprimé avec précision :
Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans ton code
qui aurait pu faire que ...appel à un objet qui n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel" <prive.ma-boite_sans_spam@laposte.net> a écrit dans le
message de news: mn.8c897d4be5bfa2d7.11921@laposte.net...
Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et sur ma bécane à la
maison. no problème. Par contre au boulot, inévitablement excel
plantait, générait une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en txt, collé puis
inséré, vérifié la syntaxe, l'orthographe ( ;-) jps) que néni... j'ai
même copié les feuilles et le code dans un autre classeur, changé de nom
etc.. à la fin, j'ai imprimé le code et après avoir supprimé les
quelques macros qui étaient dans mon document, j'ai écris
(manuellement)le tout dans un nouveau classeur et là, divine surprise
tout est rentré dans l'ordre et je peux maintenant continuer à peaufiner
la chose.
Si quelqu'un avait un commencement de début d'explication...je l'en
remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
--
merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Bonne idée...
voili voila..
ci-dessous le code qui posait problème au boulot. le code associé au
bouton provoquait une erreur et la fermeture d'excel..
Sub ARCHIVAGE()
deb = Range("a9")
If deb <> "+ d'un an" Then MsgBox "triez par DATES avant d'archiver"
If deb <> "+ d'un an" Then Exit Sub
deb = Range("a9").Address
Dim cell As Range
For Each cell In Range("historique")
If cell.Value = " - d'un an" Then
fintab = cell.Offset(-1, 10).Address
Range(deb, fintab).Select
Selection.Cut
Sheets("archives").Activate
Range("a9").Select
Selection.Insert shift:=xlDown
Sheets("maladies").Activate
Range(deb, fintab).Delete shift:=xlUp
Range("a7").Select
Call base
MsgBox "ARCHIVAGE EFFECTUE"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Exit Sub
End If
Next cell
End Sub
LeSteph a exprimé avec précision :Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans ton code
qui aurait pu faire que ...appel à un objet qui n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel" a écrit dans le
message de news:Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et sur ma bécane à la
maison. no problème. Par contre au boulot, inévitablement excel
plantait, générait une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en txt, collé puis
inséré, vérifié la syntaxe, l'orthographe ( ;-) jps) que néni... j'ai
même copié les feuilles et le code dans un autre classeur, changé de nom
etc.. à la fin, j'ai imprimé le code et après avoir supprimé les
quelques macros qui étaient dans mon document, j'ai écris
(manuellement)le tout dans un nouveau classeur et là, divine surprise
tout est rentré dans l'ordre et je peux maintenant continuer à peaufiner
la chose.
Si quelqu'un avait un commencement de début d'explication...je l'en
remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
--
merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Bonne idée...
voili voila..
ci-dessous le code qui posait problème au boulot. le code associé au
bouton provoquait une erreur et la fermeture d'excel..
Sub ARCHIVAGE()
deb = Range("a9")
If deb <> "+ d'un an" Then MsgBox "triez par DATES avant d'archiver"
If deb <> "+ d'un an" Then Exit Sub
deb = Range("a9").Address
Dim cell As Range
For Each cell In Range("historique")
If cell.Value = " - d'un an" Then
fintab = cell.Offset(-1, 10).Address
Range(deb, fintab).Select
Selection.Cut
Sheets("archives").Activate
Range("a9").Select
Selection.Insert shift:=xlDown
Sheets("maladies").Activate
Range(deb, fintab).Delete shift:=xlUp
Range("a7").Select
Call base
MsgBox "ARCHIVAGE EFFECTUE"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Exit Sub
End If
Next cell
End Sub
LeSteph a exprimé avec précision :Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans ton code
qui aurait pu faire que ...appel à un objet qui n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel" a écrit dans le
message de news:Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et sur ma bécane à la
maison. no problème. Par contre au boulot, inévitablement excel
plantait, générait une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en txt, collé puis
inséré, vérifié la syntaxe, l'orthographe ( ;-) jps) que néni... j'ai
même copié les feuilles et le code dans un autre classeur, changé de nom
etc.. à la fin, j'ai imprimé le code et après avoir supprimé les
quelques macros qui étaient dans mon document, j'ai écris
(manuellement)le tout dans un nouveau classeur et là, divine surprise
tout est rentré dans l'ordre et je peux maintenant continuer à peaufiner
la chose.
Si quelqu'un avait un commencement de début d'explication...je l'en
remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
--
merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Bonne idée...
voili voila..
ci-dessous le code qui posait problème au boulot. le code associé au
bouton provoquait une erreur et la fermeture d'excel..
Sub ARCHIVAGE()
deb = Range("a9")
If deb <> "+ d'un an" Then MsgBox "triez par DATES avant d'archiver"
If deb <> "+ d'un an" Then Exit Sub
deb = Range("a9").Address
Dim cell As Range
For Each cell In Range("historique")
If cell.Value = " - d'un an" Then
fintab = cell.Offset(-1, 10).Address
Range(deb, fintab).Select
Selection.Cut
Sheets("archives").Activate
Range("a9").Select
Selection.Insert shift:=xlDown
Sheets("maladies").Activate
Range(deb, fintab).Delete shift:=xlUp
Range("a7").Select
Call base
MsgBox "ARCHIVAGE EFFECTUE"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Exit Sub
End If
Next cell
End Sub
LeSteph a exprimé avec précision :
Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans ton code
qui aurait pu faire que ...appel à un objet qui n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel" <prive.ma-boite_sans_spam@laposte.net> a écrit dans le
message de news: mn.8c897d4be5bfa2d7.11921@laposte.net...
Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et sur ma bécane à la
maison. no problème. Par contre au boulot, inévitablement excel
plantait, générait une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en txt, collé puis
inséré, vérifié la syntaxe, l'orthographe ( ;-) jps) que néni... j'ai
même copié les feuilles et le code dans un autre classeur, changé de nom
etc.. à la fin, j'ai imprimé le code et après avoir supprimé les
quelques macros qui étaient dans mon document, j'ai écris
(manuellement)le tout dans un nouveau classeur et là, divine surprise
tout est rentré dans l'ordre et je peux maintenant continuer à peaufiner
la chose.
Si quelqu'un avait un commencement de début d'explication...je l'en
remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
--
merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Bonne idée...
voili voila..
ci-dessous le code qui posait problème au boulot. le code associé au
bouton provoquait une erreur et la fermeture d'excel..
Sub ARCHIVAGE()
deb = Range("a9")
If deb <> "+ d'un an" Then MsgBox "triez par DATES avant d'archiver"
If deb <> "+ d'un an" Then Exit Sub
deb = Range("a9").Address
Dim cell As Range
For Each cell In Range("historique")
If cell.Value = " - d'un an" Then
fintab = cell.Offset(-1, 10).Address
Range(deb, fintab).Select
Selection.Cut
Sheets("archives").Activate
Range("a9").Select
Selection.Insert shift:=xlDown
Sheets("maladies").Activate
Range(deb, fintab).Delete shift:=xlUp
Range("a7").Select
Call base
MsgBox "ARCHIVAGE EFFECTUE"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Exit Sub
End If
Next cell
End Sub
LeSteph a exprimé avec précision :Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans ton code
qui aurait pu faire que ...appel à un objet qui n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel" a écrit dans le
message de news:Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et sur ma bécane à la
maison. no problème. Par contre au boulot, inévitablement excel
plantait, générait une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en txt, collé puis
inséré, vérifié la syntaxe, l'orthographe ( ;-) jps) que néni... j'ai
même copié les feuilles et le code dans un autre classeur, changé de nom
etc.. à la fin, j'ai imprimé le code et après avoir supprimé les
quelques macros qui étaient dans mon document, j'ai écris
(manuellement)le tout dans un nouveau classeur et là, divine surprise
tout est rentré dans l'ordre et je peux maintenant continuer à peaufiner
la chose.
Si quelqu'un avait un commencement de début d'explication...je l'en
remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
--
merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Bonsoir,
Pour ma part, j'aurais mis Range("A9").select
juste après le Sub ARCHIVAGE()
car dans certain cas, si le bouton de commande est
considéré comme sélectionné, il arrive effectivement
qu'excel plante au moment de modifier la valeur d'une
cellule,
mais ce n'est qu'une piste....
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Mavichavel" a
écrit dans le message de news:Bonne idée...
voili voila..
ci-dessous le code qui posait problème au boulot. le
code associé au bouton provoquait une erreur et la
fermeture d'excel..
Sub ARCHIVAGE()
deb = Range("a9")
If deb <> "+ d'un an" Then MsgBox "triez par DATES
avant d'archiver"
If deb <> "+ d'un an" Then Exit Sub
deb = Range("a9").Address
Dim cell As Range
For Each cell In Range("historique")
If cell.Value = " - d'un an" Then
fintab = cell.Offset(-1, 10).Address
Range(deb, fintab).Select
Selection.Cut
Sheets("archives").Activate
Range("a9").Select
Selection.Insert shift:=xlDown
Sheets("maladies").Activate
Range(deb, fintab).Delete shift:=xlUp
Range("a7").Select
Call base
MsgBox "ARCHIVAGE EFFECTUE"
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
Exit Sub
End If
Next cell
End Sub
LeSteph a exprimé avec précision :Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier
soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans
ton code
qui aurait pu faire que ...appel à un objet qui
n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel"
a écrit dans le message de news:Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et
sur ma bécane à la maison. no problème. Par contre
au boulot, inévitablement excel plantait, générait
une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en
txt, collé puis inséré, vérifié la syntaxe,
l'orthographe ( ;-) jps) que néni... j'ai même
copié les feuilles et le code dans un autre
classeur, changé de nom etc.. à la fin, j'ai
imprimé le code et après avoir supprimé les
quelques macros qui étaient dans mon document, j'ai
écris (manuellement)le tout dans un nouveau
classeur et là, divine surprise tout est rentré
dans l'ordre et je peux maintenant continuer à
peaufiner la chose.
Si quelqu'un avait un commencement de début
d'explication...je l'en remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Bonsoir,
Pour ma part, j'aurais mis Range("A9").select
juste après le Sub ARCHIVAGE()
car dans certain cas, si le bouton de commande est
considéré comme sélectionné, il arrive effectivement
qu'excel plante au moment de modifier la valeur d'une
cellule,
mais ce n'est qu'une piste....
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Mavichavel" <prive.ma-boite_sans_spam@laposte.net> a
écrit dans le message de news:
mn.8ccc7d4b7dac3f3b.11921@laposte.net...
Bonne idée...
voili voila..
ci-dessous le code qui posait problème au boulot. le
code associé au bouton provoquait une erreur et la
fermeture d'excel..
Sub ARCHIVAGE()
deb = Range("a9")
If deb <> "+ d'un an" Then MsgBox "triez par DATES
avant d'archiver"
If deb <> "+ d'un an" Then Exit Sub
deb = Range("a9").Address
Dim cell As Range
For Each cell In Range("historique")
If cell.Value = " - d'un an" Then
fintab = cell.Offset(-1, 10).Address
Range(deb, fintab).Select
Selection.Cut
Sheets("archives").Activate
Range("a9").Select
Selection.Insert shift:=xlDown
Sheets("maladies").Activate
Range(deb, fintab).Delete shift:=xlUp
Range("a7").Select
Call base
MsgBox "ARCHIVAGE EFFECTUE"
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
Exit Sub
End If
Next cell
End Sub
LeSteph a exprimé avec précision :
Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier
soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans
ton code
qui aurait pu faire que ...appel à un objet qui
n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel" <prive.ma-boite_sans_spam@laposte.net>
a écrit dans le message de news:
mn.8c897d4be5bfa2d7.11921@laposte.net...
Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et
sur ma bécane à la maison. no problème. Par contre
au boulot, inévitablement excel plantait, générait
une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en
txt, collé puis inséré, vérifié la syntaxe,
l'orthographe ( ;-) jps) que néni... j'ai même
copié les feuilles et le code dans un autre
classeur, changé de nom etc.. à la fin, j'ai
imprimé le code et après avoir supprimé les
quelques macros qui étaient dans mon document, j'ai
écris (manuellement)le tout dans un nouveau
classeur et là, divine surprise tout est rentré
dans l'ordre et je peux maintenant continuer à
peaufiner la chose.
Si quelqu'un avait un commencement de début
d'explication...je l'en remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Bonsoir,
Pour ma part, j'aurais mis Range("A9").select
juste après le Sub ARCHIVAGE()
car dans certain cas, si le bouton de commande est
considéré comme sélectionné, il arrive effectivement
qu'excel plante au moment de modifier la valeur d'une
cellule,
mais ce n'est qu'une piste....
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Mavichavel" a
écrit dans le message de news:Bonne idée...
voili voila..
ci-dessous le code qui posait problème au boulot. le
code associé au bouton provoquait une erreur et la
fermeture d'excel..
Sub ARCHIVAGE()
deb = Range("a9")
If deb <> "+ d'un an" Then MsgBox "triez par DATES
avant d'archiver"
If deb <> "+ d'un an" Then Exit Sub
deb = Range("a9").Address
Dim cell As Range
For Each cell In Range("historique")
If cell.Value = " - d'un an" Then
fintab = cell.Offset(-1, 10).Address
Range(deb, fintab).Select
Selection.Cut
Sheets("archives").Activate
Range("a9").Select
Selection.Insert shift:=xlDown
Sheets("maladies").Activate
Range(deb, fintab).Delete shift:=xlUp
Range("a7").Select
Call base
MsgBox "ARCHIVAGE EFFECTUE"
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
Exit Sub
End If
Next cell
End Sub
LeSteph a exprimé avec précision :Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier
soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans
ton code
qui aurait pu faire que ...appel à un objet qui
n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel"
a écrit dans le message de news:Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et
sur ma bécane à la maison. no problème. Par contre
au boulot, inévitablement excel plantait, générait
une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en
txt, collé puis inséré, vérifié la syntaxe,
l'orthographe ( ;-) jps) que néni... j'ai même
copié les feuilles et le code dans un autre
classeur, changé de nom etc.. à la fin, j'ai
imprimé le code et après avoir supprimé les
quelques macros qui étaient dans mon document, j'ai
écris (manuellement)le tout dans un nouveau
classeur et là, divine surprise tout est rentré
dans l'ordre et je peux maintenant continuer à
peaufiner la chose.
Si quelqu'un avait un commencement de début
d'explication...je l'en remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Re,
chez moi ton archivage fonctionne parfaitement
ainsi que tes évennements beforeclose et open de
thisworkbook
qui désactivent le menu contextuel d'onglet et le
réactivent (ply)
sinon je ne saisis pas bien pourquoi tu redéfinis la
base de données
à la fois en fermant et en ouvrant. Mais c'est
peut-être plus sûr ou voulu et
sans lien avec ta question.
Pour ma part, je ne vois rien dans ton code qui génère
le bug que tu décris .
lSteph
"Mavichavel" a
écrit dans le message de news:Bonne idée...
voili voila..
ci-dessous le code qui posait problème au boulot. le
code associé au bouton provoquait une erreur et la
fermeture d'excel..
Sub ARCHIVAGE()
deb = Range("a9")
If deb <> "+ d'un an" Then MsgBox "triez par DATES
avant d'archiver"
If deb <> "+ d'un an" Then Exit Sub
deb = Range("a9").Address
Dim cell As Range
For Each cell In Range("historique")
If cell.Value = " - d'un an" Then
fintab = cell.Offset(-1, 10).Address
Range(deb, fintab).Select
Selection.Cut
Sheets("archives").Activate
Range("a9").Select
Selection.Insert shift:=xlDown
Sheets("maladies").Activate
Range(deb, fintab).Delete shift:=xlUp
Range("a7").Select
Call base
MsgBox "ARCHIVAGE EFFECTUE"
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
Exit Sub
End If
Next cell
End Sub
LeSteph a exprimé avec précision :Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier
soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans
ton code
qui aurait pu faire que ...appel à un objet qui
n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel"
a écrit dans le message de news:Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et
sur ma bécane à la maison. no problème. Par contre
au boulot, inévitablement excel plantait, générait
une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en
txt, collé puis inséré, vérifié la syntaxe,
l'orthographe ( ;-) jps) que néni... j'ai même
copié les feuilles et le code dans un autre
classeur, changé de nom etc.. à la fin, j'ai
imprimé le code et après avoir supprimé les
quelques macros qui étaient dans mon document, j'ai
écris (manuellement)le tout dans un nouveau
classeur et là, divine surprise tout est rentré
dans l'ordre et je peux maintenant continuer à
peaufiner la chose.
Si quelqu'un avait un commencement de début
d'explication...je l'en remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Re,
chez moi ton archivage fonctionne parfaitement
ainsi que tes évennements beforeclose et open de
thisworkbook
qui désactivent le menu contextuel d'onglet et le
réactivent (ply)
sinon je ne saisis pas bien pourquoi tu redéfinis la
base de données
à la fois en fermant et en ouvrant. Mais c'est
peut-être plus sûr ou voulu et
sans lien avec ta question.
Pour ma part, je ne vois rien dans ton code qui génère
le bug que tu décris .
lSteph
"Mavichavel" <prive.ma-boite_sans_spam@laposte.net> a
écrit dans le message de news:
mn.8ccc7d4b7dac3f3b.11921@laposte.net...
Bonne idée...
voili voila..
ci-dessous le code qui posait problème au boulot. le
code associé au bouton provoquait une erreur et la
fermeture d'excel..
Sub ARCHIVAGE()
deb = Range("a9")
If deb <> "+ d'un an" Then MsgBox "triez par DATES
avant d'archiver"
If deb <> "+ d'un an" Then Exit Sub
deb = Range("a9").Address
Dim cell As Range
For Each cell In Range("historique")
If cell.Value = " - d'un an" Then
fintab = cell.Offset(-1, 10).Address
Range(deb, fintab).Select
Selection.Cut
Sheets("archives").Activate
Range("a9").Select
Selection.Insert shift:=xlDown
Sheets("maladies").Activate
Range(deb, fintab).Delete shift:=xlUp
Range("a7").Select
Call base
MsgBox "ARCHIVAGE EFFECTUE"
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
Exit Sub
End If
Next cell
End Sub
LeSteph a exprimé avec précision :
Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier
soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans
ton code
qui aurait pu faire que ...appel à un objet qui
n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel" <prive.ma-boite_sans_spam@laposte.net>
a écrit dans le message de news:
mn.8c897d4be5bfa2d7.11921@laposte.net...
Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et
sur ma bécane à la maison. no problème. Par contre
au boulot, inévitablement excel plantait, générait
une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en
txt, collé puis inséré, vérifié la syntaxe,
l'orthographe ( ;-) jps) que néni... j'ai même
copié les feuilles et le code dans un autre
classeur, changé de nom etc.. à la fin, j'ai
imprimé le code et après avoir supprimé les
quelques macros qui étaient dans mon document, j'ai
écris (manuellement)le tout dans un nouveau
classeur et là, divine surprise tout est rentré
dans l'ordre et je peux maintenant continuer à
peaufiner la chose.
Si quelqu'un avait un commencement de début
d'explication...je l'en remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Re,
chez moi ton archivage fonctionne parfaitement
ainsi que tes évennements beforeclose et open de
thisworkbook
qui désactivent le menu contextuel d'onglet et le
réactivent (ply)
sinon je ne saisis pas bien pourquoi tu redéfinis la
base de données
à la fois en fermant et en ouvrant. Mais c'est
peut-être plus sûr ou voulu et
sans lien avec ta question.
Pour ma part, je ne vois rien dans ton code qui génère
le bug que tu décris .
lSteph
"Mavichavel" a
écrit dans le message de news:Bonne idée...
voili voila..
ci-dessous le code qui posait problème au boulot. le
code associé au bouton provoquait une erreur et la
fermeture d'excel..
Sub ARCHIVAGE()
deb = Range("a9")
If deb <> "+ d'un an" Then MsgBox "triez par DATES
avant d'archiver"
If deb <> "+ d'un an" Then Exit Sub
deb = Range("a9").Address
Dim cell As Range
For Each cell In Range("historique")
If cell.Value = " - d'un an" Then
fintab = cell.Offset(-1, 10).Address
Range(deb, fintab).Select
Selection.Cut
Sheets("archives").Activate
Range("a9").Select
Selection.Insert shift:=xlDown
Sheets("maladies").Activate
Range(deb, fintab).Delete shift:=xlUp
Range("a7").Select
Call base
MsgBox "ARCHIVAGE EFFECTUE"
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
Exit Sub
End If
Next cell
End Sub
LeSteph a exprimé avec précision :Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier
soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans
ton code
qui aurait pu faire que ...appel à un objet qui
n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel"
a écrit dans le message de news:Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et
sur ma bécane à la maison. no problème. Par contre
au boulot, inévitablement excel plantait, générait
une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en
txt, collé puis inséré, vérifié la syntaxe,
l'orthographe ( ;-) jps) que néni... j'ai même
copié les feuilles et le code dans un autre
classeur, changé de nom etc.. à la fin, j'ai
imprimé le code et après avoir supprimé les
quelques macros qui étaient dans mon document, j'ai
écris (manuellement)le tout dans un nouveau
classeur et là, divine surprise tout est rentré
dans l'ordre et je peux maintenant continuer à
peaufiner la chose.
Si quelqu'un avait un commencement de début
d'explication...je l'en remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Re,
chez moi ton archivage fonctionne parfaitement
ainsi que tes évennements beforeclose et open de
thisworkbook
qui désactivent le menu contextuel d'onglet et le
réactivent (ply)
sinon je ne saisis pas bien pourquoi tu redéfinis la
base de données
à la fois en fermant et en ouvrant. Mais c'est
peut-être plus sûr ou voulu et
sans lien avec ta question.
Pour ma part, je ne vois rien dans ton code qui génère
le bug que tu décris .
lSteph
"Mavichavel" a
écrit dans le message de news:Bonne idée...
voili voila..
ci-dessous le code qui posait problème au boulot. le
code associé au bouton provoquait une erreur et la
fermeture d'excel..
Sub ARCHIVAGE()
deb = Range("a9")
If deb <> "+ d'un an" Then MsgBox "triez par DATES
avant d'archiver"
If deb <> "+ d'un an" Then Exit Sub
deb = Range("a9").Address
Dim cell As Range
For Each cell In Range("historique")
If cell.Value = " - d'un an" Then
fintab = cell.Offset(-1, 10).Address
Range(deb, fintab).Select
Selection.Cut
Sheets("archives").Activate
Range("a9").Select
Selection.Insert shift:=xlDown
Sheets("maladies").Activate
Range(deb, fintab).Delete shift:=xlUp
Range("a7").Select
Call base
MsgBox "ARCHIVAGE EFFECTUE"
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
Exit Sub
End If
Next cell
End Sub
LeSteph a exprimé avec précision :Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier
soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans
ton code
qui aurait pu faire que ...appel à un objet qui
n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel"
a écrit dans le message de news:Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et
sur ma bécane à la maison. no problème. Par contre
au boulot, inévitablement excel plantait, générait
une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en
txt, collé puis inséré, vérifié la syntaxe,
l'orthographe ( ;-) jps) que néni... j'ai même
copié les feuilles et le code dans un autre
classeur, changé de nom etc.. à la fin, j'ai
imprimé le code et après avoir supprimé les
quelques macros qui étaient dans mon document, j'ai
écris (manuellement)le tout dans un nouveau
classeur et là, divine surprise tout est rentré
dans l'ordre et je peux maintenant continuer à
peaufiner la chose.
Si quelqu'un avait un commencement de début
d'explication...je l'en remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Re,
chez moi ton archivage fonctionne parfaitement
ainsi que tes évennements beforeclose et open de
thisworkbook
qui désactivent le menu contextuel d'onglet et le
réactivent (ply)
sinon je ne saisis pas bien pourquoi tu redéfinis la
base de données
à la fois en fermant et en ouvrant. Mais c'est
peut-être plus sûr ou voulu et
sans lien avec ta question.
Pour ma part, je ne vois rien dans ton code qui génère
le bug que tu décris .
lSteph
"Mavichavel" <prive.ma-boite_sans_spam@laposte.net> a
écrit dans le message de news:
mn.8ccc7d4b7dac3f3b.11921@laposte.net...
Bonne idée...
voili voila..
ci-dessous le code qui posait problème au boulot. le
code associé au bouton provoquait une erreur et la
fermeture d'excel..
Sub ARCHIVAGE()
deb = Range("a9")
If deb <> "+ d'un an" Then MsgBox "triez par DATES
avant d'archiver"
If deb <> "+ d'un an" Then Exit Sub
deb = Range("a9").Address
Dim cell As Range
For Each cell In Range("historique")
If cell.Value = " - d'un an" Then
fintab = cell.Offset(-1, 10).Address
Range(deb, fintab).Select
Selection.Cut
Sheets("archives").Activate
Range("a9").Select
Selection.Insert shift:=xlDown
Sheets("maladies").Activate
Range(deb, fintab).Delete shift:=xlUp
Range("a7").Select
Call base
MsgBox "ARCHIVAGE EFFECTUE"
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
Exit Sub
End If
Next cell
End Sub
LeSteph a exprimé avec précision :
Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier
soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans
ton code
qui aurait pu faire que ...appel à un objet qui
n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel" <prive.ma-boite_sans_spam@laposte.net>
a écrit dans le message de news:
mn.8c897d4be5bfa2d7.11921@laposte.net...
Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et
sur ma bécane à la maison. no problème. Par contre
au boulot, inévitablement excel plantait, générait
une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en
txt, collé puis inséré, vérifié la syntaxe,
l'orthographe ( ;-) jps) que néni... j'ai même
copié les feuilles et le code dans un autre
classeur, changé de nom etc.. à la fin, j'ai
imprimé le code et après avoir supprimé les
quelques macros qui étaient dans mon document, j'ai
écris (manuellement)le tout dans un nouveau
classeur et là, divine surprise tout est rentré
dans l'ordre et je peux maintenant continuer à
peaufiner la chose.
Si quelqu'un avait un commencement de début
d'explication...je l'en remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Re,
chez moi ton archivage fonctionne parfaitement
ainsi que tes évennements beforeclose et open de
thisworkbook
qui désactivent le menu contextuel d'onglet et le
réactivent (ply)
sinon je ne saisis pas bien pourquoi tu redéfinis la
base de données
à la fois en fermant et en ouvrant. Mais c'est
peut-être plus sûr ou voulu et
sans lien avec ta question.
Pour ma part, je ne vois rien dans ton code qui génère
le bug que tu décris .
lSteph
"Mavichavel" a
écrit dans le message de news:Bonne idée...
voili voila..
ci-dessous le code qui posait problème au boulot. le
code associé au bouton provoquait une erreur et la
fermeture d'excel..
Sub ARCHIVAGE()
deb = Range("a9")
If deb <> "+ d'un an" Then MsgBox "triez par DATES
avant d'archiver"
If deb <> "+ d'un an" Then Exit Sub
deb = Range("a9").Address
Dim cell As Range
For Each cell In Range("historique")
If cell.Value = " - d'un an" Then
fintab = cell.Offset(-1, 10).Address
Range(deb, fintab).Select
Selection.Cut
Sheets("archives").Activate
Range("a9").Select
Selection.Insert shift:=xlDown
Sheets("maladies").Activate
Range(deb, fintab).Delete shift:=xlUp
Range("a7").Select
Call base
MsgBox "ARCHIVAGE EFFECTUE"
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
Exit Sub
End If
Next cell
End Sub
LeSteph a exprimé avec précision :Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier
soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans
ton code
qui aurait pu faire que ...appel à un objet qui
n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel"
a écrit dans le message de news:Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et
sur ma bécane à la maison. no problème. Par contre
au boulot, inévitablement excel plantait, générait
une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en
txt, collé puis inséré, vérifié la syntaxe,
l'orthographe ( ;-) jps) que néni... j'ai même
copié les feuilles et le code dans un autre
classeur, changé de nom etc.. à la fin, j'ai
imprimé le code et après avoir supprimé les
quelques macros qui étaient dans mon document, j'ai
écris (manuellement)le tout dans un nouveau
classeur et là, divine surprise tout est rentré
dans l'ordre et je peux maintenant continuer à
peaufiner la chose.
Si quelqu'un avait un commencement de début
d'explication...je l'en remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
me demande si jen'ai pas une vérole sur la machine..voilà que je reçois
une nouvelle fois ton mail de réponse à mon envoi de hier soir.. 8-o 8-o
LeSteph a tenté de faire fumer son clavier pour :Re,
chez moi ton archivage fonctionne parfaitement
ainsi que tes évennements beforeclose et open de thisworkbook
qui désactivent le menu contextuel d'onglet et le réactivent (ply)
sinon je ne saisis pas bien pourquoi tu redéfinis la base de données
à la fois en fermant et en ouvrant. Mais c'est peut-être plus sûr ou
voulu et
sans lien avec ta question.
Pour ma part, je ne vois rien dans ton code qui génère le bug que tu
décris .
lSteph
"Mavichavel" a écrit dans le
message de news:Bonne idée...
voili voila..
ci-dessous le code qui posait problème au boulot. le code associé au
bouton provoquait une erreur et la fermeture d'excel..
Sub ARCHIVAGE()
deb = Range("a9")
If deb <> "+ d'un an" Then MsgBox "triez par DATES avant d'archiver"
If deb <> "+ d'un an" Then Exit Sub
deb = Range("a9").Address
Dim cell As Range
For Each cell In Range("historique")
If cell.Value = " - d'un an" Then
fintab = cell.Offset(-1, 10).Address
Range(deb, fintab).Select
Selection.Cut
Sheets("archives").Activate
Range("a9").Select
Selection.Insert shift:=xlDown
Sheets("maladies").Activate
Range(deb, fintab).Delete shift:=xlUp
Range("a7").Select
Call base
MsgBox "ARCHIVAGE EFFECTUE"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Exit Sub
End If
Next cell
End Sub
LeSteph a exprimé avec précision :Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans ton code
qui aurait pu faire que ...appel à un objet qui n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel" a écrit dans le
message de news:Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et sur ma bécane à la
maison. no problème. Par contre au boulot, inévitablement excel
plantait, générait une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en txt, collé puis
inséré, vérifié la syntaxe, l'orthographe ( ;-) jps) que néni... j'ai
même copié les feuilles et le code dans un autre classeur, changé de
nom etc.. à la fin, j'ai imprimé le code et après avoir supprimé les
quelques macros qui étaient dans mon document, j'ai écris
(manuellement)le tout dans un nouveau classeur et là, divine surprise
tout est rentré dans l'ordre et je peux maintenant continuer à
peaufiner la chose.
Si quelqu'un avait un commencement de début d'explication...je l'en
remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
--
merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
me demande si jen'ai pas une vérole sur la machine..voilà que je reçois
une nouvelle fois ton mail de réponse à mon envoi de hier soir.. 8-o 8-o
LeSteph a tenté de faire fumer son clavier pour :
Re,
chez moi ton archivage fonctionne parfaitement
ainsi que tes évennements beforeclose et open de thisworkbook
qui désactivent le menu contextuel d'onglet et le réactivent (ply)
sinon je ne saisis pas bien pourquoi tu redéfinis la base de données
à la fois en fermant et en ouvrant. Mais c'est peut-être plus sûr ou
voulu et
sans lien avec ta question.
Pour ma part, je ne vois rien dans ton code qui génère le bug que tu
décris .
lSteph
"Mavichavel" <prive.ma-boite_sans_spam@laposte.net> a écrit dans le
message de news: mn.8ccc7d4b7dac3f3b.11921@laposte.net...
Bonne idée...
voili voila..
ci-dessous le code qui posait problème au boulot. le code associé au
bouton provoquait une erreur et la fermeture d'excel..
Sub ARCHIVAGE()
deb = Range("a9")
If deb <> "+ d'un an" Then MsgBox "triez par DATES avant d'archiver"
If deb <> "+ d'un an" Then Exit Sub
deb = Range("a9").Address
Dim cell As Range
For Each cell In Range("historique")
If cell.Value = " - d'un an" Then
fintab = cell.Offset(-1, 10).Address
Range(deb, fintab).Select
Selection.Cut
Sheets("archives").Activate
Range("a9").Select
Selection.Insert shift:=xlDown
Sheets("maladies").Activate
Range(deb, fintab).Delete shift:=xlUp
Range("a7").Select
Call base
MsgBox "ARCHIVAGE EFFECTUE"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Exit Sub
End If
Next cell
End Sub
LeSteph a exprimé avec précision :
Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans ton code
qui aurait pu faire que ...appel à un objet qui n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel" <prive.ma-boite_sans_spam@laposte.net> a écrit dans le
message de news: mn.8c897d4be5bfa2d7.11921@laposte.net...
Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et sur ma bécane à la
maison. no problème. Par contre au boulot, inévitablement excel
plantait, générait une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en txt, collé puis
inséré, vérifié la syntaxe, l'orthographe ( ;-) jps) que néni... j'ai
même copié les feuilles et le code dans un autre classeur, changé de
nom etc.. à la fin, j'ai imprimé le code et après avoir supprimé les
quelques macros qui étaient dans mon document, j'ai écris
(manuellement)le tout dans un nouveau classeur et là, divine surprise
tout est rentré dans l'ordre et je peux maintenant continuer à
peaufiner la chose.
Si quelqu'un avait un commencement de début d'explication...je l'en
remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
--
merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
me demande si jen'ai pas une vérole sur la machine..voilà que je reçois
une nouvelle fois ton mail de réponse à mon envoi de hier soir.. 8-o 8-o
LeSteph a tenté de faire fumer son clavier pour :Re,
chez moi ton archivage fonctionne parfaitement
ainsi que tes évennements beforeclose et open de thisworkbook
qui désactivent le menu contextuel d'onglet et le réactivent (ply)
sinon je ne saisis pas bien pourquoi tu redéfinis la base de données
à la fois en fermant et en ouvrant. Mais c'est peut-être plus sûr ou
voulu et
sans lien avec ta question.
Pour ma part, je ne vois rien dans ton code qui génère le bug que tu
décris .
lSteph
"Mavichavel" a écrit dans le
message de news:Bonne idée...
voili voila..
ci-dessous le code qui posait problème au boulot. le code associé au
bouton provoquait une erreur et la fermeture d'excel..
Sub ARCHIVAGE()
deb = Range("a9")
If deb <> "+ d'un an" Then MsgBox "triez par DATES avant d'archiver"
If deb <> "+ d'un an" Then Exit Sub
deb = Range("a9").Address
Dim cell As Range
For Each cell In Range("historique")
If cell.Value = " - d'un an" Then
fintab = cell.Offset(-1, 10).Address
Range(deb, fintab).Select
Selection.Cut
Sheets("archives").Activate
Range("a9").Select
Selection.Insert shift:=xlDown
Sheets("maladies").Activate
Range(deb, fintab).Delete shift:=xlUp
Range("a7").Select
Call base
MsgBox "ARCHIVAGE EFFECTUE"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Exit Sub
End If
Next cell
End Sub
LeSteph a exprimé avec précision :Bonsoir Michel,
j'ai toujours le classeur que tu m'a envoyé hier soir
qui d'emblée ne provoquait aucun bug chez moi
et celui que je t'ai réenregistré sous un autre nom
après l'avoir changé de version et qui fonctionnait
miraculeusement à nouveau chez toi mais franchement
j'ignore pourquoi il pouvait bugger à ton travail.
Donc les voix ou les voies , je ne vois pas .
Je vais quand même regarder ce qu'il y avait dans ton code
qui aurait pu faire que ...appel à un objet qui n'existe pas ou
que sais-je pb version...
Tu devrais peut -être publier(sans pj évidemment)
ton code en texte brut dans le message
si tu veux que quelqu'un y regarde.
lSteph
"Mavichavel" a écrit dans le
message de news:Bonsoir LeSteph et à tous ceux qui lirons ce fil.
(voir mon post du 16/11 à 22:03:30)
J'ai récupéré le fichier que tu m'as retourné et sur ma bécane à la
maison. no problème. Par contre au boulot, inévitablement excel
plantait, générait une erreur et se fermait. (sous W2000pro)
J'ai trituré le code dans tous les sens, copié en txt, collé puis
inséré, vérifié la syntaxe, l'orthographe ( ;-) jps) que néni... j'ai
même copié les feuilles et le code dans un autre classeur, changé de
nom etc.. à la fin, j'ai imprimé le code et après avoir supprimé les
quelques macros qui étaient dans mon document, j'ai écris
(manuellement)le tout dans un nouveau classeur et là, divine surprise
tout est rentré dans l'ordre et je peux maintenant continuer à
peaufiner la chose.
Si quelqu'un avait un commencement de début d'explication...je l'en
remercie d'avance..
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
-- merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
--
merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Vérifies si c'est pas une histoire de HS nouveau
%}
Est-ce HS pour
Vérifies si c'est pas une histoire de HS nouveau
%}
Est-ce HS pour
Vérifies si c'est pas une histoire de HS nouveau
%}
Est-ce HS pour
