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 gros probleme insoluble (pour moi)

gros probleme insoluble (pour moi)

10 réponses
Avatar
Comres.metz
Salut à tous,

Voici mon probléme.
Dans un classeur, j'ai des onglets (CHAUFFAGE, ASCENSEURS, IMP_FINALE ....).
Je veux récupérer les données de Ascenseurs que je colle dans Imp-Finale,
puis je copie les données de Chauffage que je copie à la suite dans
Imp_Finale.
Hors j'ai une erreur au niveau de la ligne : ActiveSheet.Paste et je ne vois
pas pourquoi.
Cette erreur est pénalisante, car j'ai plus de 7 onglets à copier les uns à
la suite des autres.
Voici un bout du code. Si quelqu'un pouvez m'aider. D'avance merci.


Sheets("ASCENSEURS").Select
Sheets("ASCENSEURS").Copy Before:=Sheets(10)
Sheets("ASCENSEURS (2)").Select
Sheets("ASCENSEURS (2)").Name = "TEMPO"
ActiveSheet.Unprotect

Sheets("TEMPO").Select
derlig = ActiveSheet.Range("b65536").End(xlUp).Row
Sheets("TEMPO").Select
Sheets("TEMPO").Range("A3:Q" & derlig).Select
Range("Q" & derlig).Activate
Selection.Copy

Sheets("Impr_Finale").Select
derlig_Imp = ActiveSheet.Range("b65536").End(xlUp).Row
derlign_Imp = derlig_Imp + 1
Sheets("Impr_Finale").Select
Sheets("Impr_Finale").Range("A" & derlign_Imp).Select
ActiveSheet.Paste

Sheets("TEMPO").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Signaler un problème avec ce contenu

10 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
anonymousA
Bonjour,

exécuté avec des chiffres bidon dans les onglets et dans les conditions
que to programme indique, il n'y a aucun plantage pour moi (Excel 2000).
Peux-tu en communiquer + ou carrément publier ton fichier ?
Par ailleurs , ton programme peut-être sans doute rendu plus compact,
enfin si j'en ai bien compris l'essence ! D'ailleurs toujours selon ce
que j'ai compris, et bien que je l'ai porté dans la proc ci-dessous, je
ne vois pas l'intéret de réaliser une copie de la feuille "ASCENSEURS"

Sheets("ASCENSEURS").Copy Before:=Sheets(10)
With ActiveSheet
.Unprotect
.Range("A3:Q" & .Range("b65536").End(xlUp).Row).Copy _
Sheets("Impr_Finale").Range("A" & Sheets("Impr_Finale") _
.Range("b65536").End(xlUp).Row)
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With

A+


Salut à tous,

Voici mon probléme.
Dans un classeur, j'ai des onglets (CHAUFFAGE, ASCENSEURS, IMP_FINALE ....).
Je veux récupérer les données de Ascenseurs que je colle dans Imp-Finale,
puis je copie les données de Chauffage que je copie à la suite dans
Imp_Finale.
Hors j'ai une erreur au niveau de la ligne : ActiveSheet.Paste et je ne vois
pas pourquoi.
Cette erreur est pénalisante, car j'ai plus de 7 onglets à copier les uns à
la suite des autres.
Voici un bout du code. Si quelqu'un pouvez m'aider. D'avance merci.


Sheets("ASCENSEURS").Select
Sheets("ASCENSEURS").Copy Before:=Sheets(10)
Sheets("ASCENSEURS (2)").Select
Sheets("ASCENSEURS (2)").Name = "TEMPO"
ActiveSheet.Unprotect

Sheets("TEMPO").Select
derlig = ActiveSheet.Range("b65536").End(xlUp).Row
Sheets("TEMPO").Select
Sheets("TEMPO").Range("A3:Q" & derlig).Select
Range("Q" & derlig).Activate
Selection.Copy

Sheets("Impr_Finale").Select
derlig_Imp = ActiveSheet.Range("b65536").End(xlUp).Row
derlign_Imp = derlig_Imp + 1
Sheets("Impr_Finale").Select
Sheets("Impr_Finale").Range("A" & derlign_Imp).Select
ActiveSheet.Paste

Sheets("TEMPO").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True




Avatar
Comres.metz
Bonjour,

J'ai essayé votre méthode mais j'ai une erreur sur la grande ligne :
.Range("A3:Q" & .Range("b65536").End(xlUp).Row).Copy
Sheets("Impr_Finale").Range("A" &
Sheets("Impr_Finale").Range("b65536").End(xlUp).Row)
"La méthode Copy de la classe Range a échoué".

Sinon, je tourne sur Excel 2002 et l'erreur que j'ai est :
"La méthode Paste de l'objet Worksheet a échoué".
Et aprés j'ai Excel qui tourne en boucle, obligé de passer par un
Ctrl+Alt+Suppr pour terminer.

En fait je fais une copie de ma feuille Ascenseurs, je récupére mes données,
je les copie dans Impr_Finale, j'efface ma copie et je recommence ma manip
avec mes 7 autres onglets.

J'ai énormément de mal à compresser mes lignes. C'est pour cela que mes
macros font toujours 25 km de long.



"anonymousA" a écrit dans le message de
news:4390423c$0$29182$
Bonjour,

exécuté avec des chiffres bidon dans les onglets et dans les conditions
que to programme indique, il n'y a aucun plantage pour moi (Excel 2000).
Peux-tu en communiquer + ou carrément publier ton fichier ?
Par ailleurs , ton programme peut-être sans doute rendu plus compact,
enfin si j'en ai bien compris l'essence ! D'ailleurs toujours selon ce
que j'ai compris, et bien que je l'ai porté dans la proc ci-dessous, je
ne vois pas l'intéret de réaliser une copie de la feuille "ASCENSEURS"

Sheets("ASCENSEURS").Copy Before:=Sheets(10)
With ActiveSheet
.Unprotect
.Range("A3:Q" & .Range("b65536").End(xlUp).Row).Copy _
Sheets("Impr_Finale").Range("A" & Sheets("Impr_Finale") _
.Range("b65536").End(xlUp).Row)
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With

A+


Salut à tous,

Voici mon probléme.
Dans un classeur, j'ai des onglets (CHAUFFAGE, ASCENSEURS, IMP_FINALE
....).


Je veux récupérer les données de Ascenseurs que je colle dans
Imp-Finale,


puis je copie les données de Chauffage que je copie à la suite dans
Imp_Finale.
Hors j'ai une erreur au niveau de la ligne : ActiveSheet.Paste et je ne
vois


pas pourquoi.
Cette erreur est pénalisante, car j'ai plus de 7 onglets à copier les
uns à


la suite des autres.
Voici un bout du code. Si quelqu'un pouvez m'aider. D'avance merci.


Sheets("ASCENSEURS").Select
Sheets("ASCENSEURS").Copy Before:=Sheets(10)
Sheets("ASCENSEURS (2)").Select
Sheets("ASCENSEURS (2)").Name = "TEMPO"
ActiveSheet.Unprotect

Sheets("TEMPO").Select
derlig = ActiveSheet.Range("b65536").End(xlUp).Row
Sheets("TEMPO").Select
Sheets("TEMPO").Range("A3:Q" & derlig).Select
Range("Q" & derlig).Activate
Selection.Copy

Sheets("Impr_Finale").Select
derlig_Imp = ActiveSheet.Range("b65536").End(xlUp).Row
derlign_Imp = derlig_Imp + 1
Sheets("Impr_Finale").Select
Sheets("Impr_Finale").Range("A" & derlign_Imp).Select
ActiveSheet.Paste

Sheets("TEMPO").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True






Avatar
anonymousA
Pour ce qui est du plantage sur la proc envoyée, je ne vois pas de
problème particulier étant entendu que je l'ai essayée avant de la
poster. ceci dit, l'essai n'a evidemment pas eu lieu dans les mêmes
conditions.

Je te suggère de publier ton fichier car, je ne vois pas plus de
problèmes dans la syntaxe de ta proc.

A+
Avatar
Comres.metz
Voici joint le fichier excel incriminé.
Il y a un onglet Page de Garde sur lequel se trouve le bouton Command Button
qui doit lancer ma macro.
Il y a ensuite les onglets entre Chauffage et Conventions qui doivent etre
recopiés les uns en dessous des autres dans l'onglet Impr_Finale.
Dans la macro, il y a ensuite un appel vers "Cacher Colonne" qui me permet
de faire un traitement sur Impr_Finale.
Voici un résumé succinct de mon bazar.

Fichier Excel en PJ :
http://cjoint.com/?mcpNvgUdXl

Merci pour votre aide.

"anonymousA" a écrit dans le message de
news:
Pour ce qui est du plantage sur la proc envoyée, je ne vois pas de
problème particulier étant entendu que je l'ai essayée avant de la
poster. ceci dit, l'essai n'a evidemment pas eu lieu dans les mêmes
conditions.

Je te suggère de publier ton fichier car, je ne vois pas plus de
problèmes dans la syntaxe de ta proc.

A+
Avatar
anonymousA
Malheureusement, je n'arrive pas à reproduire le phénomène que tu décris
avec le fichier que tu as mis à dispo. J'ai Excel2000 et je ne rencontre
aucun souci pour faire fonctionner ta proc avec ce fichier.
Peut-être une bonne âme de ce forum qui lira ton message pourra le faire
tourner sur Excel 2002 et voir s'il y a un souci. Pourtant, j'en doute
car la syntaxe est correcte.

A+


Voici joint le fichier excel incriminé.
Il y a un onglet Page de Garde sur lequel se trouve le bouton Command Button
qui doit lancer ma macro.
Il y a ensuite les onglets entre Chauffage et Conventions qui doivent etre
recopiés les uns en dessous des autres dans l'onglet Impr_Finale.
Dans la macro, il y a ensuite un appel vers "Cacher Colonne" qui me permet
de faire un traitement sur Impr_Finale.
Voici un résumé succinct de mon bazar.

Fichier Excel en PJ :
http://cjoint.com/?mcpNvgUdXl

Merci pour votre aide.

"anonymousA" a écrit dans le message de
news:
Pour ce qui est du plantage sur la proc envoyée, je ne vois pas de
problème particulier étant entendu que je l'ai essayée avant de la
poster. ceci dit, l'essai n'a evidemment pas eu lieu dans les mêmes
conditions.

Je te suggère de publier ton fichier car, je ne vois pas plus de
problèmes dans la syntaxe de ta proc.

A+





Avatar
JLuc
*Bonjour Comres.metz*,
J'ai jete un coup d'oeil, Chez moi ca plante a :
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True '_
' , *AllowFormattingRows:=True, AllowSorting:=True,
AllowFiltering:=True*
'Call Imprim
Dans l'aide d'excel pour Protect je n'ai pas ces parametres, je les ai
mis en commentaire et la macro ne plante pas. De là a savoir si ca fait
avancer le schmilblic ...? :/
Je travail avec XP home et Excel 2000

Voici joint le fichier excel incriminé.
Il y a un onglet Page de Garde sur lequel se trouve le bouton Command Button
qui doit lancer ma macro.
Il y a ensuite les onglets entre Chauffage et Conventions qui doivent etre
recopiés les uns en dessous des autres dans l'onglet Impr_Finale.
Dans la macro, il y a ensuite un appel vers "Cacher Colonne" qui me permet
de faire un traitement sur Impr_Finale.
Voici un résumé succinct de mon bazar.

Fichier Excel en PJ :
http://cjoint.com/?mcpNvgUdXl

Merci pour votre aide.

"anonymousA" a écrit dans le message de
news:
Pour ce qui est du plantage sur la proc envoyée, je ne vois pas de
problème particulier étant entendu que je l'ai essayée avant de la
poster. ceci dit, l'essai n'a evidemment pas eu lieu dans les mêmes
conditions.

Je te suggère de publier ton fichier car, je ne vois pas plus de
problèmes dans la syntaxe de ta proc.

A+



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS

Avatar
anonymousA
si tu as Excel 2000 , c'est normal que ca plante à cet endoit là car les
paramètres de protect sont différents entre 2002 et 2000. En effet, 2002
permet des restructions sur la protection qui n'existe pas en 2000. Ceci
dit, ce n'est pas là dessus que plante notre correpondant puisque lui (
ou elle) a 2002, mais sur Activesheet.paste ce qui reste pour moi un
mystère total.

A+


*Bonjour Comres.metz*,
J'ai jete un coup d'oeil, Chez moi ca plante a :
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True '_
' , *AllowFormattingRows:=True, AllowSorting:=True,
AllowFiltering:=True*
'Call Imprim
Dans l'aide d'excel pour Protect je n'ai pas ces parametres, je les ai
mis en commentaire et la macro ne plante pas. De là a savoir si ca fait
avancer le schmilblic ...? :/
Je travail avec XP home et Excel 2000

Voici joint le fichier excel incriminé.
Il y a un onglet Page de Garde sur lequel se trouve le bouton Command
Button
qui doit lancer ma macro.
Il y a ensuite les onglets entre Chauffage et Conventions qui doivent
etre
recopiés les uns en dessous des autres dans l'onglet Impr_Finale.
Dans la macro, il y a ensuite un appel vers "Cacher Colonne" qui me
permet
de faire un traitement sur Impr_Finale.
Voici un résumé succinct de mon bazar.

Fichier Excel en PJ :
http://cjoint.com/?mcpNvgUdXl

Merci pour votre aide.

"anonymousA" a écrit dans le message de
news:
Pour ce qui est du plantage sur la proc envoyée, je ne vois pas de
problème particulier étant entendu que je l'ai essayée avant de la
poster. ceci dit, l'essai n'a evidemment pas eu lieu dans les mêmes
conditions.

Je te suggère de publier ton fichier car, je ne vois pas plus de
problèmes dans la syntaxe de ta proc.

A+







Avatar
lolo
Merci d'etre encore sur mon fichier.
Est ce que mon probléme ne pourrais pas venir d'une installation
"merdique" d'excel ou de macros complementaires non installées ?

Le probléme est qu'au bureau je n'ai pas la main pour refaire une
installation.

si tu as Excel 2000 , c'est normal que ca plante à cet endoit là car les
paramètres de protect sont différents entre 2002 et 2000. En effet, 2002
permet des restructions sur la protection qui n'existe pas en 2000. Ceci
dit, ce n'est pas là dessus que plante notre correpondant puisque lui (
ou elle) a 2002, mais sur Activesheet.paste ce qui reste pour moi un
mystère total.

A+



*Bonjour Comres.metz*,
J'ai jete un coup d'oeil, Chez moi ca plante a :
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True '_
' , *AllowFormattingRows:=True, AllowSorting:=True,
AllowFiltering:=True*
'Call Imprim
Dans l'aide d'excel pour Protect je n'ai pas ces parametres, je les ai
mis en commentaire et la macro ne plante pas. De là a savoir si ca
fait avancer le schmilblic ...? :/
Je travail avec XP home et Excel 2000

Voici joint le fichier excel incriminé.
Il y a un onglet Page de Garde sur lequel se trouve le bouton Command
Button
qui doit lancer ma macro.
Il y a ensuite les onglets entre Chauffage et Conventions qui doivent
etre
recopiés les uns en dessous des autres dans l'onglet Impr_Finale.
Dans la macro, il y a ensuite un appel vers "Cacher Colonne" qui me
permet
de faire un traitement sur Impr_Finale.
Voici un résumé succinct de mon bazar.

Fichier Excel en PJ :
http://cjoint.com/?mcpNvgUdXl

Merci pour votre aide.

"anonymousA" a écrit dans le message de
news:
Pour ce qui est du plantage sur la proc envoyée, je ne vois pas de
problème particulier étant entendu que je l'ai essayée avant de la
poster. ceci dit, l'essai n'a evidemment pas eu lieu dans les mêmes
conditions.

Je te suggère de publier ton fichier car, je ne vois pas plus de
problèmes dans la syntaxe de ta proc.

A+










Avatar
anonymousA
Non, je ne pense pas. Il n'est nul besoin d'avoir de macros
complémentaires pour faire fonctionner Paste qui est quand une méthode
des plus basiques de VBA.

Ceci dit, pour éliminer un problème lié au fichier, fais un essai avec
un fichier neuf et écris simplement dans un module nouveau la proc suivante:
Place dans la feuille 1 de ce fichier et déclenche la macro suivante

range("A1").copy
sheets(2).select
range("A2").select
activesheet.paste

Si cette macro s'exécute sans problème, c'est qu'il y a quelque chose
lié à ton fichier.
Dernière chose, vérifies que la feuille que tu copies et que tu renommes
Impr_Finale est bien déprotégée avant de vouloir copier quelquechose
dessus puis si la méthode unprotect de 2002 se comporte comme celle de 2000.

Sinon bien que je ne voies pas pourquoi, il y a un problème avec ton
Excel et/ou VBA. Mais peut-être un contributeur de ce forum aura déjà
rencontré le problème

Bon courage,


Merci d'etre encore sur mon fichier.
Est ce que mon probléme ne pourrais pas venir d'une installation
"merdique" d'excel ou de macros complementaires non installées ?

Le probléme est qu'au bureau je n'ai pas la main pour refaire une
installation.


si tu as Excel 2000 , c'est normal que ca plante à cet endoit là car
les paramètres de protect sont différents entre 2002 et 2000. En
effet, 2002 permet des restructions sur la protection qui n'existe pas
en 2000. Ceci dit, ce n'est pas là dessus que plante notre
correpondant puisque lui ( ou elle) a 2002, mais sur
Activesheet.paste ce qui reste pour moi un mystère total.

A+



*Bonjour Comres.metz*,
J'ai jete un coup d'oeil, Chez moi ca plante a :
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True '_
' , *AllowFormattingRows:=True, AllowSorting:=True,
AllowFiltering:=True*
'Call Imprim
Dans l'aide d'excel pour Protect je n'ai pas ces parametres, je les
ai mis en commentaire et la macro ne plante pas. De là a savoir si ca
fait avancer le schmilblic ...? :/
Je travail avec XP home et Excel 2000

Voici joint le fichier excel incriminé.
Il y a un onglet Page de Garde sur lequel se trouve le bouton
Command Button
qui doit lancer ma macro.
Il y a ensuite les onglets entre Chauffage et Conventions qui
doivent etre
recopiés les uns en dessous des autres dans l'onglet Impr_Finale.
Dans la macro, il y a ensuite un appel vers "Cacher Colonne" qui me
permet
de faire un traitement sur Impr_Finale.
Voici un résumé succinct de mon bazar.

Fichier Excel en PJ :
http://cjoint.com/?mcpNvgUdXl

Merci pour votre aide.

"anonymousA" a écrit dans le message de
news:
Pour ce qui est du plantage sur la proc envoyée, je ne vois pas de
problème particulier étant entendu que je l'ai essayée avant de la
poster. ceci dit, l'essai n'a evidemment pas eu lieu dans les mêmes
conditions.

Je te suggère de publier ton fichier car, je ne vois pas plus de
problèmes dans la syntaxe de ta proc.

A+













Avatar
lolo
J'ai pensé hier soir à un probléme de protection. Il va falloir que je
teste cela lundi matin au bureau.
Chez moi, à la maison sous Excel 2003, cela fonctionne.
Je vais tout revefier lundi. Je vous tiendrais au courant si je trouve
une soluce.

Non, je ne pense pas. Il n'est nul besoin d'avoir de macros
complémentaires pour faire fonctionner Paste qui est quand une méthode
des plus basiques de VBA.

Ceci dit, pour éliminer un problème lié au fichier, fais un essai avec
un fichier neuf et écris simplement dans un module nouveau la proc
suivante:
Place dans la feuille 1 de ce fichier et déclenche la macro suivante

range("A1").copy
sheets(2).select
range("A2").select
activesheet.paste

Si cette macro s'exécute sans problème, c'est qu'il y a quelque chose
lié à ton fichier.
Dernière chose, vérifies que la feuille que tu copies et que tu renommes
Impr_Finale est bien déprotégée avant de vouloir copier quelquechose
dessus puis si la méthode unprotect de 2002 se comporte comme celle de
2000.

Sinon bien que je ne voies pas pourquoi, il y a un problème avec ton
Excel et/ou VBA. Mais peut-être un contributeur de ce forum aura déjà
rencontré le problème

Bon courage,



Merci d'etre encore sur mon fichier.
Est ce que mon probléme ne pourrais pas venir d'une installation
"merdique" d'excel ou de macros complementaires non installées ?

Le probléme est qu'au bureau je n'ai pas la main pour refaire une
installation.


si tu as Excel 2000 , c'est normal que ca plante à cet endoit là car
les paramètres de protect sont différents entre 2002 et 2000. En
effet, 2002 permet des restructions sur la protection qui n'existe
pas en 2000. Ceci dit, ce n'est pas là dessus que plante notre
correpondant puisque lui ( ou elle) a 2002, mais sur
Activesheet.paste ce qui reste pour moi un mystère total.

A+



*Bonjour Comres.metz*,
J'ai jete un coup d'oeil, Chez moi ca plante a :
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True '_
' , *AllowFormattingRows:=True, AllowSorting:=True,
AllowFiltering:=True*
'Call Imprim
Dans l'aide d'excel pour Protect je n'ai pas ces parametres, je les
ai mis en commentaire et la macro ne plante pas. De là a savoir si
ca fait avancer le schmilblic ...? :/
Je travail avec XP home et Excel 2000

Voici joint le fichier excel incriminé.
Il y a un onglet Page de Garde sur lequel se trouve le bouton
Command Button
qui doit lancer ma macro.
Il y a ensuite les onglets entre Chauffage et Conventions qui
doivent etre
recopiés les uns en dessous des autres dans l'onglet Impr_Finale.
Dans la macro, il y a ensuite un appel vers "Cacher Colonne" qui me
permet
de faire un traitement sur Impr_Finale.
Voici un résumé succinct de mon bazar.

Fichier Excel en PJ :
http://cjoint.com/?mcpNvgUdXl

Merci pour votre aide.

"anonymousA" a écrit dans le message de
news:
Pour ce qui est du plantage sur la proc envoyée, je ne vois pas de
problème particulier étant entendu que je l'ai essayée avant de la
poster. ceci dit, l'essai n'a evidemment pas eu lieu dans les mêmes
conditions.

Je te suggère de publier ton fichier car, je ne vois pas plus de
problèmes dans la syntaxe de ta proc.

A+