Discussion :

[x_all]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[x_all]

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