Bonjour à toutes et tous.
J'ai cette proc qui fonctionne très bien 7 fois sur 10, apparement
l'écriture est très simple, mais pourquoi cela plante.
Merci beaucoup.
Patrick.
Sheets("tableau").Select
ActiveSheet.Unprotect Password:="toto"
Range("A" & ActiveCell.Row & ":L" & ActiveCell.Row).Select
Selection.Copy
Sheets("lettresus").Select
calcul_edition ' copie sur la lettre certains éléments
ActiveWindow.SmallScroll Down:=-500
Sheets("lettresus").Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues ' la ligne qui plante
régulièrement
ActiveSheet.Protect Password:="toto"
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
Patrick Catarsi
Le 6/07/03 9:24, dans eh$, « Crel » a écrit :
Bonjour à toutes et tous. J'ai cette proc qui fonctionne très bien 7 fois sur 10, apparement l'écriture est très simple, mais pourquoi cela plante. Merci beaucoup. Patrick.
Sheets("tableau").Select ActiveSheet.Unprotect Password:="toto" Range("A" & ActiveCell.Row & ":L" & ActiveCell.Row).Select Selection.Copy Sheets("lettresus").Select calcul_edition ' copie sur la lettre certains éléments ActiveWindow.SmallScroll Down:=-500 Sheets("lettresus").Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues ' la ligne qui plante régulièrement ActiveSheet.Protect Password:="toto"
Slt
J'ai eu un jour ce problème. Apparemment, calcul-édition est une macro. Je pense que certaine fois calcul-édition doit effectuer quelque chose qui fait perdre Sélection.Copy . Il en résulte que Collage spécial plante puisque rien n'est Copier.
Bonne chance Patrick
Le 6/07/03 9:24, dans eh$7694QDHA.2460@TK2MSFTNGP10.phx.gbl, « Crel »
<nospam-mouedra@club-internet.fr> a écrit :
Bonjour à toutes et tous.
J'ai cette proc qui fonctionne très bien 7 fois sur 10, apparement
l'écriture est très simple, mais pourquoi cela plante.
Merci beaucoup.
Patrick.
Sheets("tableau").Select
ActiveSheet.Unprotect Password:="toto"
Range("A" & ActiveCell.Row & ":L" & ActiveCell.Row).Select
Selection.Copy
Sheets("lettresus").Select
calcul_edition ' copie sur la lettre certains éléments
ActiveWindow.SmallScroll Down:=-500
Sheets("lettresus").Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues ' la ligne qui plante
régulièrement
ActiveSheet.Protect Password:="toto"
Slt
J'ai eu un jour ce problème. Apparemment, calcul-édition est une macro.
Je pense que certaine fois calcul-édition doit effectuer quelque chose qui
fait perdre Sélection.Copy . Il en résulte que Collage spécial plante
puisque rien n'est Copier.
Bonjour à toutes et tous. J'ai cette proc qui fonctionne très bien 7 fois sur 10, apparement l'écriture est très simple, mais pourquoi cela plante. Merci beaucoup. Patrick.
Sheets("tableau").Select ActiveSheet.Unprotect Password:="toto" Range("A" & ActiveCell.Row & ":L" & ActiveCell.Row).Select Selection.Copy Sheets("lettresus").Select calcul_edition ' copie sur la lettre certains éléments ActiveWindow.SmallScroll Down:=-500 Sheets("lettresus").Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues ' la ligne qui plante régulièrement ActiveSheet.Protect Password:="toto"
Slt
J'ai eu un jour ce problème. Apparemment, calcul-édition est une macro. Je pense que certaine fois calcul-édition doit effectuer quelque chose qui fait perdre Sélection.Copy . Il en résulte que Collage spécial plante puisque rien n'est Copier.
Bonne chance Patrick
Crel
Merci beaucoup Patrick, Effectivement, je cherche de ce côté. Patrick.
"Patrick Catarsi" a écrit dans le message de news: BB2DB360.23AA%
Le 6/07/03 9:24, dans eh$, « Crel »
Bonjour à toutes et tous. J'ai cette proc qui fonctionne très bien 7 fois sur 10, apparement l'écriture est très simple, mais pourquoi cela plante. Merci beaucoup. Patrick.
Sheets("tableau").Select ActiveSheet.Unprotect Password:="toto" Range("A" & ActiveCell.Row & ":L" & ActiveCell.Row).Select Selection.Copy Sheets("lettresus").Select calcul_edition ' copie sur la lettre certains éléments ActiveWindow.SmallScroll Down:=-500 Sheets("lettresus").Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues ' la ligne qui plante
J'ai eu un jour ce problème. Apparemment, calcul-édition est une macro. Je pense que certaine fois calcul-édition doit effectuer quelque chose qui fait perdre Sélection.Copy . Il en résulte que Collage spécial plante puisque rien n'est Copier.
Bonne chance Patrick
Merci beaucoup Patrick,
Effectivement, je cherche de ce côté.
Patrick.
"Patrick Catarsi" <patrick.catarsi@wanadoo.fr> a écrit dans le message de
news: BB2DB360.23AA%patrick.catarsi@wanadoo.fr...
Le 6/07/03 9:24, dans eh$7694QDHA.2460@TK2MSFTNGP10.phx.gbl, « Crel »
Bonjour à toutes et tous.
J'ai cette proc qui fonctionne très bien 7 fois sur 10, apparement
l'écriture est très simple, mais pourquoi cela plante.
Merci beaucoup.
Patrick.
Sheets("tableau").Select
ActiveSheet.Unprotect Password:="toto"
Range("A" & ActiveCell.Row & ":L" & ActiveCell.Row).Select
Selection.Copy
Sheets("lettresus").Select
calcul_edition ' copie sur la lettre certains éléments
ActiveWindow.SmallScroll Down:=-500
Sheets("lettresus").Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues ' la ligne qui
plante
J'ai eu un jour ce problème. Apparemment, calcul-édition est une macro.
Je pense que certaine fois calcul-édition doit effectuer quelque chose qui
fait perdre Sélection.Copy . Il en résulte que Collage spécial plante
puisque rien n'est Copier.
Merci beaucoup Patrick, Effectivement, je cherche de ce côté. Patrick.
"Patrick Catarsi" a écrit dans le message de news: BB2DB360.23AA%
Le 6/07/03 9:24, dans eh$, « Crel »
Bonjour à toutes et tous. J'ai cette proc qui fonctionne très bien 7 fois sur 10, apparement l'écriture est très simple, mais pourquoi cela plante. Merci beaucoup. Patrick.
Sheets("tableau").Select ActiveSheet.Unprotect Password:="toto" Range("A" & ActiveCell.Row & ":L" & ActiveCell.Row).Select Selection.Copy Sheets("lettresus").Select calcul_edition ' copie sur la lettre certains éléments ActiveWindow.SmallScroll Down:=-500 Sheets("lettresus").Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues ' la ligne qui plante
J'ai eu un jour ce problème. Apparemment, calcul-édition est une macro. Je pense que certaine fois calcul-édition doit effectuer quelque chose qui fait perdre Sélection.Copy . Il en résulte que Collage spécial plante puisque rien n'est Copier.
