PB d'affichage après exécution d'une macro

Version imprimable

Bonjour

j'ai enregistrer une macro (en exécutant mes manips) que j'ai sauvé dans pesonal.xlsb.
Cette macro redimensionne des cellules en masque 3 et crée une petite formule afin d'automatiser la mise en forme de fichiers générés par Covadis (un applicatif VRD pour autocad)
le problème, lorsque j'exécute ma macro, la 1ere cellule en haut à gauche devient la cellule O1, et je ne peu pas afficher les colonne avant.

Y a il un truc?
Merci pour vos lumières

je met ici le code de la macro récalcitrante

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub MEFcovadis()
'
' MEFcovadis Macro
' Mise en forme déblais remblais Covadis
'
 
'
    Columns("C:N").Select
    Range("C3").Activate
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Selection.ColumnWidth = 8.33
    Rows("11:11").RowHeight = 40.2
    Range("I:I,J:J,N:N").Select
    Range("N3").Activate
    Selection.EntireColumn.Hidden = True
    Range("D25").Select
    ActiveCell.FormulaR1C1 = "Total déblais = déblais + décapage"
    Range("D25").Select
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("E25").Select
    ActiveCell.FormulaR1C1 = "=R[-2]C+R[-2]C[7]"
    Range("E23").Select
    Selection.Copy
    Range("E25").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A3").Select
End Sub

Bonjour,

prise seule, sur une feuille vierge, cette procédure ne peut expliquer ton résultat avec les colonnes A à N qui sont masquées

il faut chercher ailleurs, peut être dans la structure de la feuille sur laquelle la macro s'exécute ? Il y a déjà des choses masquées ?
ou une autre procédure qui est lancée avant ou après ?

au passage, petite simplification rapide, regarde si ça tourne toujours (je ne l'ai pas testé) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub MEFcovadis() Columns("C:N").ColumnWidth = 8.33 Rows("11:11").RowHeight = 40.2 Range("I:I,J:J,N:N").EntireColumn.Hidden = True With Range("D25") .Value = "Total déblais = déblais + décapage" .HorizontalAlignment = xlRight .VerticalAlignment = xlBottom End With With Range("E25") .FormulaR1C1 = "=R[-2]C+R[-2]C[7]" Range("E23").Copy .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End With Application.CutCopyMode = False End Sub

24/03/2016, 09h56
x_all

super !!

Bonjour
Je ne comprend pas bien les tenants et aboutissants de ta simplification, mais force est de constater que ça marche !!!

ce n'est pas le temps que ça prend de faire ces manip, mais à la longue c'est lassant...
merci beaucoup pour t'être penché sur mon problème