erreur de macro

Re : erreur de macro

Bonsoir,

Pa trop compris ce que tu veux faire mais tu peux remplacet les lignes de
Range("D27:H27).select
....

jusqu'avant la ligne
range("I28:N29").select

en 1 seule instruction:
Range("D7:H29").Borders.Weight = xlThin

De m^me si tu veux copier les formules contenues dans I28:N29 en C28
tu peux écrire
range("I28:N29").copy range("C28")
à la place de copy paste

En début de macro écris cette instruction
Application.screenupdating=FALSE
pour figer le défilement de l'écran

Re : erreur de macro

Salut ti_jojo et les autres

Au lieu de faire une copie écran illisible, pourquoi tu ne copies pas tes macros entre deux balises code ? On pourrait les lire plus facilement et surtout les manipuler sans être obligé de tout retaper.
A+

Re : erreur de macro

bonjour tout le monde

tout d'abord merci à tous les 2 pour votre aide.
quelques précisions :

michel_m à dit:

Pa trop compris ce que tu veux faire

Cliquez pour agrandir...

j'ai une énorme base de donnée stockée verticalement dans les colonnes D à H que je dois stocker en ligne afin de pouvoir mettre des formules en dessous pour les comparer à un standard et ensuite compter celle qui correspondent en début de ligne. j'ai trouvé dernièrement comment faire pour que les formules soient juste sans devoir les retoucher grace à des $ placés à certains endroits et je voulais automatiser les déplacements de cellules et la copie des formules. n'ayant jamais travaillé sur une macro je lui ai simplement demandé de refaire ce que je fesais à l'ecran.

Gorfael à dit:

Au lieu de faire une copie écran illisible, pourquoi tu ne copies pas tes macros entre deux balises code ? On pourrait les lire plus facilement et surtout les manipuler sans être obligé de tout retaper.

Cliquez pour agrandir...

désolé je ne pensais pas que vous deviez la recopier. je pensais que vous pouviez trouver le problème en la voyant comme ça. remarque notée pour éventuelle prochaine fois

ma macro ressemble à ça maintenant (pas besoin de figer l'ecran):

Range("C27:H29").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight
Selection.Delete Shift:=xlUp
Range("D28:H29").Select
Selection.Insert Shift:=xlDown
Range("D27:H27").Borders.Weight = xlThin
Range("I28:N29").Copy Range("C28")
End Sub

elle fonctionne apparemment très bien encore merci à vous 2
bonne journée a+
jojo

Re : erreur de macro

Bonjour à tous,

moi, quand j'ai une base de données importante,
1. je me sers des fonctions de base de données
2. je laisse de la place au-dessus de la base et c'est là que je mets mes formules
cela m'évite le genre de manip que tu fais